Wolfram Language™

Planos incorporados

Use diferentes conjuntos de planos paralelos e que se cruzam como cortes.

In[1]:=

opts = {ColorFunction -> ColorData[{"Rainbow", {-2.5, 2.5}}], ColorFunctionScaling -> False, ClippingStyle -> Automatic, Axes -> False, Boxed -> False, SphericalRegion -> True, ImageSize -> 200, PlotPoints -> 32};

In[2]:=

slices = {"CenterPlanes", "BackPlanes", "XStackedPlanes", "YStackedPlanes", "ZStackedPlanes", "DiagonalStackedPlanes"};

In[3]:=

Grid[Partition[ Table[SliceContourPlot3D[ 1/Sqrt[(1 + x)^2 + (1 + y)^2 + z^2] - 1/ Sqrt[(-1 + x)^2 + (-1 + y)^2 + z^2], slice, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, Contours -> Range[-2.5, 2.5, 0.5], Evaluate@opts], {slice, slices}], 3]]

Out[3]=