Nächste Punkte ermitteln 

Berechnen Sie den nächsten Punkt in jeder beliebigen Dimension.

In[1]:=

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

Out[1]=

In[2]:=

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

Out[2]=

Berechnen Sie Formeln für den nächsten Punkt in einer Region in jeder beliebigen Dimension.

In[3]:=

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

Out[3]=

Stellen Sie die Funktion der nächsten Punkte auf, die effizient auf mehrere Punkte angewendet werden kann.

In[4]:=

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

Out[4]=

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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