Wolfram言語

立体の可視化

組込み立体

さまざまな大きさの扇型を削除した球面を等高線プロットの球面スライスとして使う.

完全なWolfram言語入力を表示する
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]=

関連する例

de en es fr ko pt-br ru zh