Computando distâncias e pontos mais próximos 

Compute a distância até o ponto mais próximo em uma malha.

In[1]:=

X mesh2d = BoundaryDiscretizeGraphics[Text[Style["\[Pi]", Bold]], _Text, MaxCellMeasure -> 0.1]; pt2d = {0, 0};

In[2]:=

X RegionDistance[mesh2d, pt2d]

Out[2]=

Faça o gráfico das distâncias.

mostre o input completo de Wolfram Languageoculte o input

In[3]:=

X df = RegionDistance[mesh2d]; {Plot3D[df[{x, y}], {x, -5, 5}, {y, -4, 4}, MeshFunctions -> {#3 &}, Mesh -> 5], ContourPlot[df[{x, y}], {x, -5, 5}, {y, -4, 4}, Contours -> {{0.5, Red}, {1, Green}, {1.5, Blue}}]}

Out[3]=

Visualize os pontos mais próximos em uma malha.

mostre o input completo de Wolfram Languageoculte o input

In[4]:=

X pts = Table[4 {Cos[k 2 \[Pi]/24], Sin[k 2 \[Pi]/24]}, {k, 0., 23}]; nst = RegionNearest[mesh2d][pts]; Legended[Show[mesh2d, Graphics[{{Thin, Gray, Line[Transpose[{pts, nst}]]}, {Red, Point[pts]}, {Blue, Point[nst]}}]], PointLegend[{Red, Blue}, {"start", "nearest"}]]

Out[4]=