lengthplotSphericalHarmonic[l_, m_] := ParametricPlot3D[ {Abs[ SphericalHarmonicY[l, m, theta, phi] ]^2 x[theta, phi], Abs[ SphericalHarmonicY[l, m, theta, phi] ]^2 y[theta, phi], Abs[ SphericalHarmonicY[l, m, theta, phi] ]^2 z[theta, phi], EdgeForm[] } , {theta, 0, Pi}, {phi, 0, 2 Pi} , PlotPoints -> 100, Boxed -> False, Axes -> None, PlotLabel -> SequenceForm["l=", l, ",m=", m] ]
fat-cat 平成17年2月26日