(* SetDirectory[$HomeDirectory<>"\\My Documents\\Academic\\Quantum Mechanics\\figures"];
<<Graphics`; *)

g=GraphicsArray[
Table[
PolarPlot[
Abs[SphericalHarmonicY[3,m,t,0]]^2,{t,0,2π}, Ticks->None,DisplayFunction->Identity],
{m,0,3}
]
];
(* Export["sphericalharmonic3.eps",g] *)
Show[g]

g=GraphicsArray[
Table[
PolarPlot[
Abs[SphericalHarmonicY[2,m,t,0]]^2,{t,0,2π}, Ticks->None,DisplayFunction->Identity],
{m,0,2}
]
];
(* Export["sphericalharmonic2.eps",g] *)
Show[g]

g=GraphicsArray[
Table[
PolarPlot[
Abs[SphericalHarmonicY[1,m,t,0]]^2,{t,0,2π}, Ticks->None,DisplayFunction->Identity],
{m,0,1}
]
];
(* Export["sphericalharmonic1.eps",g] *)
Show[g]

g=GraphicsArray[
Table[
PolarPlot[
Abs[SphericalHarmonicY[0,m,t,0]]^2,{t,0,2π}, Ticks->None,DisplayFunction->Identity],
{m,0,0}
]
];
(* Export["sphericalharmonic0.eps",g] *)
Show[g]