最小距離の計算 

点と領域については，領域への最小距離が計算できる．最小距離はMinValue[, ∈ℛ]（ は与えられた点， は領域）で与えられる．

それぞれの点から領域への最小距離が0.25，0.5，1.0となるような曲線．

In[1]:=

X dline = RegionDistance[Line[{{0, 0}, {1, 0}, {0, 1}}]]; dtri = RegionDistance[Triangle[{{0, 0}, {1, 0}, {0, 1}}]];

In[2]:=

X Table[ContourPlot[df[{x, y}], {x, -2, 3}, {y, -2, 3}, Contours -> {0.25, 0.5, 1.0}, Exclusions -> None], {df, {dline, dtri}}]

Out[2]=

それぞれの点から領域への最小距離が0.25，0.5，1.0となるような曲面．

In[3]:=

X dline = RegionDistance[Line[{{0, 0, 0}, {1, 0, 0}, {0, 1, 0.}}]]; dtri = RegionDistance[Triangle[{{0, 0, 0}, {1, 0, 0}, {0, 1, 0.}}]]; dtet = RegionDistance[ Tetrahedron[{{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1.}}]];

In[4]:=

X Table[ContourPlot3D[df[{x, y, z}], {x, -2, 3}, {y, -2, 3}, {z, -2, 3}, Mesh -> None, Contours -> {0.25, 0.5, 1.0}, PlotPoints -> 50, MaxRecursion -> 0, ContourStyle -> ColorData[95, "ColorList"], BaseStyle -> Opacity[0.5], ImageSize -> Small], {df, {dline, dtri, dtet}}]

Out[4]=