Volúmenes incorporados
Utilice esferas con sectores de tamaño variable eliminados como los cortes de un gráfico de contorno.
In[1]:=
func = Simplify[
Sum[Cos[5 Norm[{x, y, z} - {Sin[\[Theta]], Cos[\[Theta]],
0}]], {\[Theta], 0., 2 \[Pi] - (2 \[Pi])/3, (2 \[Pi])/
3}], (x | y | z) \[Element] Reals];In[2]:=
opts = {ColorFunction -> (ColorData["SunsetColors",
Rescale[#, {-2.5, 2.5}]] &), ColorFunctionScaling -> False,
ClippingStyle -> Automatic, Axes -> False, Boxed -> False,
SphericalRegion -> True, ImageSize -> 250};In[3]:=
Grid[Partition[Table[With[{k = 1},
SliceContourPlot3D[func, s, {x, -2, 2}, {y, -2, 2}, {z, -2, 2},
Contours -> Subdivide[-2.5, 2.5, 2], Evaluate@opts,
PlotPoints -> 32, Method -> {"ShrinkWrap" -> True}]
], {s, {"CenterSphere",
"CenterCutSphere", {"CenterCutSphere",
3 Pi/4}, {"CenterCutSphere", Pi}}}], 2], Spacings -> {2, 2}]Out[3]=
