L=2 H-Atom Wave Functions Contour Plots:
ContourPlot3D[Evaluate[Y3dxz^2],{x,-9,9},
{y,-9,9},{z,-9,9},Contours->{0.000002}]
-Graphics3D-
ContourPlot3D[Evaluate[Y3dyz^2],{x,-9,9},
{y,-9,9},{z,-9,9},Contours->{0.000002}]
-Graphics3D-
ContourPlot3D[Evaluate[Y3dx2y2^2],{x,-9,9},
{y,-9,9},{z,-9,9},Contours->{0.00002}]
-Graphics3D-
ContourPlot3D[Evaluate[Y3dxy^2],{x,-9,9},
{y,-9,9},{z,-9,9},Contours->{0.000002}]
-Graphics3D-
ContourPlot3D[Evaluate[Y3dz2^2],{x,-9,9},
{y,-9,9},{z,-9,9},Contours->{0.000007}]
-Graphics3D-
(* Continuing to Explore Suitable
ContourPlot3D Parameters *)
ContourPlot3D[Evaluate[(Y3dx2y2)^2],{x,-9,9},
{y,-9,9},{z,-9,9},Contours->{0.00008}]
-Graphics3D-
H-AtomWF's;l=2.ContourPlot3D.JKB
This ends the Mathematica files for this section. You can now
return to the notes.