中心力場内の粒子の運動/メモ の履歴(No.4)

球関数 $Y^m_l(\theta,\phi)$：角運動量の固有関数†

LANG:mathematica
Table[
  Table[
    ParametricPlot3D[
      Module[{r = Abs[SphericalHarmonicY[l, m, theta, phi]]^2},
        {r Sin[theta] Cos[phi], r Sin[theta] Sin[phi], r Cos[theta]}
      ], {theta, 0, Pi}, {phi, 0, 2 Pi}, 
      PlotPoints -> 100, ImageSize -> Large,
      PlotRange -> {{-0.20, 0.20}, {-0.20, 0.20}, {-0.4, 0.4}}
    ],
    {m, 0, l}
  ],
  {l, 0, 4}
]