Wolfram言語™

カスタム平面

立体のサブサンプリングに使うスライスを方程式で指定する．

In[1]:=

opts = {ColorFunction -> ColorData[{"GreenPinkTones", {-2.5, 2.5}}], ColorFunctionScaling -> False, ClippingStyle -> Automatic, PlotTheme -> "Bare", SphericalRegion -> True, ImageSize -> 500, PlotPoints -> 32};

In[2]:=

SliceContourPlot3D[ 1/Sqrt[(1 + x)^2 + (1 + y)^2 + z^2] - 1/ Sqrt[(-1 + x)^2 + (-1 + y)^2 + z^2], {x == -1, x == 1, y == -1, y == 1, z == -1, z == 1}, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, Contours -> Range[-2.5, 2.5, 0.5], Evaluate@opts]

Out[2]=