ContourPlot3D[Evaluate[Y2pz^2],{x,-5,5},
{y,-5,5},{z,-5,5},Contours->{0.0004}]

-Graphics3D-

ContourPlot3D[Evaluate[Y2px^2],{x,-5,5},
{y,-5,5},{z,-5,5},Contours->{0.0002}]

-Graphics3D-

ContourPlot3D[Evaluate[Y2py^2],{x,-5,5},
{y,-5,5},{z,-5,5},Contours->{0.0002}]

-Graphics3D-

ContourPlot3D[Evaluate[Y3pz^2],{x,-7,7},
{y,-7,7},{z,-7,7},Contours->{0.0007}]

-Graphics3D-

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

-Graphics3D-

H-AtomWF's;l=1.ContourPlot3D.JKB

This ends the Mathematica files for the L=1 Hydrogen Atom Wave Functions. You can now return to the notes.