replotSphericalHarmonic[l_, m_] := Block[{saidai}, saidai = findmaxSphericalharmonic[l, m]; ParametricPlot3D[ {x[theta, phi], y[theta, phi], z[theta, phi], { EdgeForm[], GrayLevel[ (Re[SphericalHarmonicY[l, m, theta, phi]] + saidai)/(2 saidai) ] } }, {phi, 0, 2Pi}, {theta, 0, Pi}, Lighting -> False, Boxed -> False, PlotPoints -> 100, Axes -> False, PlotLabel -> SequenceForm["l=", l, ",m=", m] ]]
fat-cat 平成17年2月26日