WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

RegionNearestFunction[reg,…]

値が領域 reg 内の最近点を与える関数を表す．

詳細
Details and Options Details and Options
例題  
例  
スコープ  
特別な領域  
数式定義領域  
メッシュ領域  
派生領域  
アプリケーション  
特性と関係  
考えられる問題  
関連項目
関連するガイド
履歴
引用書式

RegionNearestFunction

RegionNearestFunction[reg,…]

値が領域 reg 内の最近点を与える関数を表す．

詳細

例題

すべて開く すべて閉じる

例  (1)

単位円板についての領域内最近点関数を生成する：

Wolfram Language code: nf = RegionNearest[Disk[]]

距離関数を複数の点に適用する：

Wolfram Language code: pts = Tuples[Range[-2, 2], 2]; Short[nf[pts]]
Wolfram Language code: Legended[Graphics[{{LightBlue, EdgeForm[Gray], Disk[]}, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

スコープ  (16)

特別な領域  (7)

Point集合：

Wolfram Language code: RegionNearest[Point[{{1, 1}, {1, 2}}]][{3, 4}]

上記は任意の次元で使うことができる：

Wolfram Language code: RegionNearest[Point[{{0, 0, 0, 0}, {1, 2, 3, 4}}]][{2, 2, 2, 2}]

最近点を可視化する：

Wolfram Language code: ℛ = Point[{{1, 2}, {3, 4}, {5, 6}}]; pts = Table[{3, 4} + 4{Cos[k 2π / 16], Sin[k 2π / 16]}, {k, 0, 15}]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics[{ℛ, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Line：

Wolfram Language code: RegionNearest[Line[{{0, 0}, {1, 1}}]][{3, 4}]
Wolfram Language code: RegionNearest[Line[{{0, 0, 0}, {1, 1, 1}, {0, 0, 1}}]][{1, 0, 3}]

これを可視化する：

Wolfram Language code: ℛ = Line[{{0, 0}, {1, 2}, {1, 0}, {2, 2}}]; pts = Table[{1, 1} + 2{Cos[k 2π / 16], Sin[k 2π / 16]}, {k, 0, 15}]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics[{ℛ, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Rectangleは2Dで使うことができる：

Wolfram Language code: RegionNearest[Rectangle[{0, 0}, {1, 2}]][{3, 4}]

Cuboidは，これを任意の次元に一般化する：

Wolfram Language code: RegionNearest[Cuboid[{0, 0, 0, 0}, {1, 2, 3, 4}]][{1, 1, 1, 5}]

長方形上の最近点を可視化する：

Wolfram Language code: ℛ = Rectangle[{0, 0}, {2, 1}]; pts = Table[{1, 1 / 2} + 2{Cos[k 2π / 16], Sin[k 2π / 16]}, {k, 0, 15}]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics[{{LightBlue, EdgeForm[Gray], ℛ}, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Simplex：

Wolfram Language code: RegionNearest[Simplex[1]][{2}]
Wolfram Language code: RegionNearest[Simplex[3]][{1, 1, 1}]

2D単体上の最近点を可視化する：

Wolfram Language code: ℛ = Simplex[2]; pts = Table[{1 / 3, 1 / 3} + {Cos[k 2π / 16], Sin[k 2π / 16]}, {k, 0, 15}]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics[{{LightBlue, EdgeForm[Gray], ℛ}, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Polygon：

Wolfram Language code: RegionNearest[Polygon[{{0, 0}, {1, 0}, {0, 1}}]][{1, 1}]

六角形中の最近点を可視化する：

Wolfram Language code: ℛ = Polygon[{{-2, 0}, {-1, 3 / 2}, {1, 3 / 2}, {2, 0}, {1, -3 / 2}, {-1, -3 / 2}}]; pts = Table[4{Cos[k 2 π / 25], Sin[k 2π / 25]}, {k, 0., 24}]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics[{{LightBlue, EdgeForm[Gray], ℛ}, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Diskは2Dで使うことができる：

Wolfram Language code: RegionNearest[Disk[{0, 0}, 1]][{3, 4}]

Ballは，任意次元の円板を一般化する：

Wolfram Language code: RegionNearest[Ball[{0, 0, 0}, 1]][{3, 4, 5}]

3D球体上の最近点を可視化する：

Wolfram Language code: ℛ = Ball[{0, 0, 0}, 1]; pts = Flatten[Table[2{Cos[k 2π / 8]Cos[l π / 8], Sin[k 2π / 8]Cos[l π / 8], Sin[l π / 8]}, {k, 0, 7}, {l, -3, 3}], 1]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics3D[{{LightBlue, EdgeForm[Gray], ℛ}, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Diskは2Dでは楕円形のこともある：

Wolfram Language code: RegionNearest[Disk[{0, 0}, {1, 2}]][{0, 4}]

Ellipsoidを一般化すると任意次元の楕円形になる：

Wolfram Language code: RegionNearest[Ellipsoid[{0, 0, 0}, {1, 2, 3}]][{0, 3, 4}]

楕円上の最近点をプロットする：

Wolfram Language code: ℛ = Disk[{0, 0}, {2, 1}]; pts = Table[3{Cos[k 2π / 16], Sin[k 2π / 16]}, {k, 0., 15}]; nf = RegionNearest[ℛ];
Wolfram Language code: Legended[Graphics[{{LightBlue, EdgeForm[Gray], ℛ}, {Thin, Gray, Line[Transpose[{pts, nf[pts]}]]}, {Red, Point[pts]}, {Blue, Point[nf[pts]]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

数式定義領域  (2)

ImplicitRegionとして表された円板上の最近点：

Wolfram Language code: ℛ = ImplicitRegion[x^2 + y^2 ≤ 1, {x, y}];
Wolfram Language code: Region[ℛ]
Wolfram Language code: nf = RegionNearest[ℛ]
Wolfram Language code: nf /@ RandomReal[1, {5, 2}]

円柱：

Wolfram Language code: ℛ = ImplicitRegion[x^2 + y^2 ≤ 1, {x, y, {z, 0, 2}}];
Wolfram Language code: RegionNearest[ℛ][{3, 4, 5}]

ParametricRegionとして表された円板上の最近点：

Wolfram Language code: ℛ = ParametricRegion[{r Cos[θ], r Sin[θ]}, {{r, 0, 1}, {θ, 0, 2π}}];
Wolfram Language code: nf = RegionNearest[ℛ]
Wolfram Language code: nf /@ RandomReal[1, {5, 2}]

円板の有理パラメータ化を使う：

Wolfram Language code: ℛ = ParametricRegion[{r(1 - t^2/1 + t^2), r(2t/1 + t^2)}, {t, {r, 0, 1}}];
Wolfram Language code: RegionNearest[ℛ][{3, 4}]

円柱：

Wolfram Language code: ℛ = ParametricRegion[{r Cos[θ], r Sin[θ], z}, {{r, 0, 1}, {θ, 0, 2π}, {z, 0, 2}}];
Wolfram Language code: RegionNearest[ℛ][{3, 4, 5}]
Wolfram Language code: FullSimplify[%]

メッシュ領域  (4)

1DのBoundaryMeshRegion中の最近点：

Wolfram Language code: ℛ = BoundaryMeshRegion[{{0}, {1}}, Point[{{1}, {2}}]]
Wolfram Language code: RegionNearest[ℛ][{2}]

2D：

Wolfram Language code: ℛ = ConvexHullMesh[RandomReal[1, {10, 2}]];
Wolfram Language code: Show[ℛ, Graphics[{Red, Point[{1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1}]

3D：

Wolfram Language code: ℛ = ConvexHullMesh[RandomReal[1, {20, 3}]];
Wolfram Language code: Show[ℛ, Graphics3D[{Red, Point[{1, 1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1, 1}]

1D中の0DのMeshRegionの最近点：

Wolfram Language code: ℛ = MeshRegion[{{0}, {1}}, Point[{{1}, {2}}]]
Wolfram Language code: RegionNearest[ℛ][{1 / 2}]

1D領域：

Wolfram Language code: ℛ = MeshRegion[{{0}, {1}}, Line[{1, 2}]]
Wolfram Language code: RegionNearest[ℛ][{2}]

2D中の0DMeshRegion中の最近点：

Wolfram Language code: ℛ = MeshRegion[{{0, 0}, {1, 0}, {0, 1}}, Point[{{1}, {2}, {3}}]];
Wolfram Language code: Show[ℛ, Graphics[{Red, Point[{1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1}]

1D領域：

Wolfram Language code: ℛ = MeshRegion[{{0, 0}, {1, 0}, {0, 1}}, Line[{1, 2, 3, 1}]];
Wolfram Language code: Show[ℛ, Graphics[{Red, Point[{1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1}]

2D領域：

Wolfram Language code: ℛ = MeshRegion[{{0, 0}, {1, 0}, {0, 1}}, Polygon[{1, 2, 3}]];
Wolfram Language code: Show[ℛ, Graphics[{Red, Point[{1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1}]

3D中の0DMeshRegion中の最近点：

Wolfram Language code: ℛ = MeshRegion[{{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {1, 0, 0}}, Point[{{1}, {2}, {3}, {4}}]];
Wolfram Language code: Show[ℛ, Graphics3D[{Red, Point[{1, 1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1, 1}]

1D領域：

Wolfram Language code: ℛ = MeshRegion[{{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {1, 0, 0}}, Line[{{1, 2, 3, 4, 1}}]];
Wolfram Language code: Show[ℛ, Graphics3D[{Red, Point[{1, 1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1, 1}]

2D領域：

Wolfram Language code: ℛ = MeshRegion[{{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {1, 0, 0}}, Polygon[{{1, 2, 3}, {2, 3, 4}}]];
Wolfram Language code: Show[ℛ, Graphics3D[{Red, Point[{1, 1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1, 1}]

3D領域：

Wolfram Language code: ℛ = MeshRegion[{{0, 0, 0}, {0, 0, 1}, {0, 1, 0}, {1, 0, 0}}, Tetrahedron[{{1, 2, 3, 4}}]];
Wolfram Language code: Show[ℛ, Graphics3D[{Red, Point[{1, 1, 1}]}]]
Wolfram Language code: RegionNearest[ℛ][{1, 1, 1}]

派生領域  (3)

RegionIntersectionまでの距離：

Wolfram Language code: ℛ = RegionIntersection[Disk[{0, 0}, 1], Disk[{0, 1}, 1]];
Wolfram Language code: Show[Graphics[{Red, Point[{1, 1}]}], Region[ℛ]]
Wolfram Language code: RegionNearest[ℛ][{1, 1}]

TransformedRegionまでの距離：

Wolfram Language code: ℛ = TransformedRegion[Disk[], ScalingTransform[{3, 2}]];
Wolfram Language code: Show[Region[ℛ], Graphics[{Red, Point[{4, 3}]}]]
Wolfram Language code: RegionNearest[ℛ][{4, 3}]

RegionBoundaryまでの距離：

Wolfram Language code: ℛ = RegionBoundary[Disk[]];
Wolfram Language code: Graphics[{ℛ, Red, Point[{1 / 2, 1 / 2}]}]
Wolfram Language code: RegionNearest[ℛ][{1 / 2, 1 / 2}]

アプリケーション  (2)

領域内の最近点を可視化する：

Wolfram Language code: ℛ = BoundaryDiscretizeRegion[ImplicitRegion[Abs[x]^1 / 2 + Abs[y]^1 / 2 ≤ 1, {x, y}], {{-1, 1}, {-1, 1}}]; nf = RegionNearest[ℛ]; pts = Flatten[Table[r{Cos[k 2π / 128], Sin[k 2π / 128]}, {k, 0, 127}, {r, 1, 2}], 1]; nst = nf[pts];
Wolfram Language code: Show[ℛ, Graphics[{Thin, Gray, Line[Transpose[{pts, nst}]]}]]

Locatorを使って国の領域に対する最近点を求める：

Wolfram Language code: ℛ = DiscretizeGraphics[CountryData["Italy", "Shape"]];
Wolfram Language code: nf = RegionNearest[ℛ]
Wolfram Language code: DynamicModule[{p = {0.05, 0.05}}, Show[ℛ, Graphics[{Locator[Dynamic[p]], Red, Dynamic@Line[{nf[p], p}]}, PlotRange -> RegionBounds[ℛ]]], SaveDefinitions -> True]

特性と関係  (2)

RegionNearestFunctionは，点に適用された場合には，RegionNearest[r,p]と同じ結果を返す：

Wolfram Language code: ℛ = Triangle[]; nf = RegionNearest[ℛ]
Wolfram Language code: pts = RandomReal[1, {100, 2}];
Wolfram Language code: nf[pts] == RegionNearest[ℛ, pts]

RegionNearestに返された式は，点で評価されると，RegionNearestFunctionと同じになる：

Wolfram Language code: ℛ = Circle[]; nf = RegionNearest[ℛ]
Wolfram Language code: pts = RandomReal[1, {100, 2}];
Wolfram Language code: f[{x_, y_}] = RegionNearest[ℛ, {x, y}]
Wolfram Language code: nf[pts] == f /@ pts

考えられる問題  (1)

RegionNearestFunctionはConstantRegionQ領域についてのみ生成される：

Wolfram Language code: c = Circle[{0, 0}, r];
Wolfram Language code: ConstantRegionQ[c]
Wolfram Language code: RegionNearest[c]
Wolfram Research (2014), RegionNearestFunction, Wolfram言語関数， https://reference.wolfram.com/language/ref/RegionNearestFunction.html.

テキスト

Wolfram Research (2014), RegionNearestFunction, Wolfram言語関数， https://reference.wolfram.com/language/ref/RegionNearestFunction.html.

CMS

Wolfram Language. 2014. "RegionNearestFunction." Wolfram Language & System Documentation Center. Wolfram Research. https://reference.wolfram.com/language/ref/RegionNearestFunction.html.

APA

Wolfram Language. (2014). RegionNearestFunction. Wolfram Language & System Documentation Center. Retrieved from https://reference.wolfram.com/language/ref/RegionNearestFunction.html

BibTeX

@misc{reference.wolfram_2026_regionnearestfunction, author="Wolfram Research", title="{RegionNearestFunction}", year="2014", howpublished="\url{https://reference.wolfram.com/language/ref/RegionNearestFunction.html}", note=[Accessed: 13-November-2026]}

BibLaTeX

@online{reference.wolfram_2026_regionnearestfunction, organization={Wolfram Research}, title={RegionNearestFunction}, year={2014}, url={https://reference.wolfram.com/language/ref/RegionNearestFunction.html}, note=[Accessed: 13-November-2026]}