Wolfram
Mathematica
8의 신기능: 새롭게 향상된 핵심 알고리즘
◄
이전
|
다음
►
핵심 알고리즘
라플라스 방정식의 고유 함수
구형 좌표에서 라플라스 방정식의 고유 함수를 나타냅니다.
In[1]:=
X
table = ParallelTable[ SphericalPlot3D[ Re[WignerD[{j, Mod[j, 1], i}, 0, \[Theta], \[Phi]]], {\[Theta], 0, Pi}, {\[Phi], 0, 4 Pi}, PlotLabel -> {j, Mod[j, 1], i}, PlotPoints -> 50, MeshFunctions -> {#4 &, #5 &}, MeshShading -> {{Orange, None}, {None, Darker[Green]}}, Lighting -> "Neutral", PlotRange -> All, Ticks -> None, ImageSize -> 125], {j, {1/2, 3/2}}, {i, -j, j}];
In[2]:=
X
Grid[{Join[{Null}, table[[1]], {Null}], table[[2]]}, Alignment -> Center]
Out[2]=