Wolfram Language

Visualisation de volume

Volumes intégrés

Utilisez des sphères avec les secteurs de taille variable enlevés comme les coupes pour un tracé de contour.

Montrer l'entrée complète de Wolfram Language
In[1]:=
Click for copyable input
opts = {ColorFunction -> (ColorData["SunsetColors", Rescale[#, {-2.5, 2.5}]] &), ColorFunctionScaling -> False, ClippingStyle -> Automatic, Axes -> False, Boxed -> False, SphericalRegion -> True, ImageSize -> 250, PlotPoints -> 32, Method -> {"ShrinkWrap" -> True}};
In[2]:=
Click for copyable input
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[3]:=
Click for copyable input
Grid[Partition[ Table[SliceContourPlot3D[func, s, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, Contours -> Subdivide[-2.5, 2.5, 2], Evaluate@opts], {s, {"CenterSphere", "CenterCutSphere", {"CenterCutSphere", 3 Pi/4}, {"CenterCutSphere", Pi}}}], 2], Spacings -> {2, 2}]
Out[3]=

Exemples connexes

de en es ja ko pt-br ru zh