Solution

fz2[θ_, φ_ ] := Abs[SphericalHarmonicY[3, 0, θ, φ]]

figure1 = ParametricPlot3D[
{fz2[θ,φ] Sin[θ] Cos[φ],
fz2[θ,φ] Sin[θ] Sin[φ],
fz2[θ,φ] Cos[θ]},
{θ,0, π}, {φ, -π, π},
ViewPoint->{1.696, 1.670, 0.857},PlotPoints->50,AspectRatio -> Automatic,PlotLabel->"f\!\(z\^3\)",Boxed->False,Axes->False,PlotRange->{{-.65,.65},{-.65,.65},{-.8,.8}} ];


Created by Mathematica  (September 7, 2006) Valid XHTML 1.1!