Achando o ponto mais próximo 

Compute o ponto mais próximo em qualquer dimensão.

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 o ponto mais próximo em uma região em qualquer dimensão.

In[3]:=

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

Out[3]=

Crie funções mais próximas que podem ser eficientemente reaplicadas a múltiplos pontos.

In[4]:=

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

Out[4]=

mostre o input completo de Wolfram Languageoculte o input

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]=