l = 2 H-Atom Wave Functions:

(* GRAPHICS--Hydrogen Atom Wave-Functions *)
Needs["Graphics`ParametricPlot3D`"]

(* Third, for [l=2, n=3] ie., 3d Orbitals *)

(* the Angular Part Squared for n=3,l=2,m=0 ie., 3dz2 *)

SphericalPlot3D[Evaluate[((3(Cos[th])^2)-1)^2],
{th,0,Pi},{ph,0,2Pi}]


-Graphics3D-

(* the (x,y=0,z)-Section of the Wave-Function Squared
for n=3,l=2,m=0 ie., 3dz2 *)

Plot3D[((x^2+z^2)Exp[-Sqrt[x^2+z^2]/3]
(3z^2/(x^2+z^2)-1))^2,{x,-15,15},{z,-15,15},
PlotRange->{0,80}]

-SurfaceGraphics-

Show[%,ViewPoint->{0,-2,2}]

-SurfaceGraphics-

(* the Angular Part Squared for n=3,l=2,m=+1 ie.,
3dxz *)


SphericalPlot3D[Evaluate[(Sin[th]Cos[th]Cos[ph])^2],
{th,0,Pi},{ph,0,2Pi}]

-Graphics3D-

(* the Angular Part Squared for n=3,l=2,m=-1 ie.,
3dyz *)


SphericalPlot3D[Evaluate[(Sin[th]Cos[th]Sin[ph])^2],
{th,0,Pi},{ph,0,2Pi}]

-Graphics3D-

L=2 Wave Functions/Pt.1.JKB

(* the Angular Part Squared for n=3,l=2,m=+2 ie.,
3dx2-y2 *)

SphericalPlot3D[Evaluate[((Sin[th])^2Cos[2ph])^2],
{th,0,Pi},{ph,0,2Pi}]

-Graphics3D-

(* the Angular Part Squared for n=3,l=2,m=-2 ie.,
3dxy *)

SphericalPlot3D[Evaluate[(((Sin[th])^2)Sin[2ph])^2],
{th,0,Pi},{ph,0,2Pi}]

-Graphics3D-

(* the (x,y,z=0)-Section of the Wave-Function Squared
for n=3,l=2,m=-2 ie., 3dxy *)

Plot3D[((x^2+y^2)Exp[-Sqrt[x^2+y^2]/3]
(x/Sqrt[x^2+y^2])(y/Sqrt[x^2+y^2]))^2,
{x,-10,10},{y,-10,10},PlotRange->{0,10}]

-SurfaceGraphics-

L=2 Wave Functions/Pt. 2.JKB
This ends part 1 of the L=2 H-Atom Wave Functions Mathematica files. You can now go on to the second and final part, L=2 H-Atom Wave Functions Contour Plots, or return to the notes.