New in Wolfram
Mathematica
8: New and Improved Core Algorithms
◄
previous
|
next
►
Core Algorithms
Eigenfunctions of the Laplace Equation
Eigenfunctions of the Laplace equation in spherical coordinates.
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]=