Новое в системе 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]=