Planos incorporados
Use diferentes conjuntos de planos paralelos e que se cruzam como cortes.
mostre o input completo da Wolfram Language
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]=
