임베디드 입체
다양한 크기의 부채형을 삭제한 구면 등고선 플롯의 구면 슬라이스로 사용합니다.
전체 Wolfram 언어 입력 표시하기
In[2]:=
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]:=
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]=