Encuentre los puntos más cercanos 

Compute el punto más cercano en cualquier dimensión.

In[1]:=

X RegionNearest[Cylinder[], {1, 2, 3}]

Out[1]=

In[2]:=

X RegionNearest[Simplex[5], {1, 2, 3, 4, 5}]

Out[2]=

Compute fórmulas para el punto más cercano en una región de cualquier dimensión.

In[3]:=

X RegionNearest[Ball[4], {w, x, y, z}]

Out[3]=

Cree funciones de cercanía que pueden ser aplicadas nuevamente a múltiples puntos de manera eficiente.

In[4]:=

X nf = RegionNearest[Disk[{0, 0}, {2, 1}]]

Out[4]=

muestre la entrada completa de Wolfram Languageoculte la entrada

In[5]:=

X pts = Table[3 {Cos[k 2 \[Pi]/16], Sin[k 2 \[Pi]/16]}, {k, 0., 15}]; nst = nf[pts];

In[6]:=

X Legended[Graphics[{{LightBlue, EdgeForm[Darker@LightBlue], \[ScriptCapitalR]}, PointSize[Medium], {Thin, Gray, Line[Transpose[{pts, nst}]]}, {Red, Point[pts]}, {Blue, Point[nst]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Out[6]=