Mathematica Notebooks

     Listed below are links to a number of Mathematica subroutines and notebooks associated with Introductory Quantum Mechanics: A Traditional Approach Emphasizing Connections with Classical Physics. Although the programs have been tested, there is always the possibility that some errors remain. First I list some simple subroutines. Note that you can also use the built-in functions in Mathematica for the Clebsh-Gordan, 3-J, and 6-J symbols, but you will have to change some of the code in the programs where these quantities are used. If you click on any subroutine or notebook below, it may come up as a text file in your browser - simply use "Save Page as" to save the file to the directory of your choice.

    If you use the subroutines below, you must import them into your program with the <<location\subroutine, where location is where you have copied the subroutines. See the programs for examples.

clebsh.m

Clebsch-Gordan coefficient: output of this subroutine is

CG[{J₁,m₁},{J₂,m₂},{J,m}],

corresponding to

threej.m

 Three-J symbol: output of this subroutine is

T3[{J₁,m₁},{J₂,m₂},{J,m}],

corresponding to

sixj.m

 Six-J symbol: output of this subroutine is

sixj[{J₁,G₂},{J₂,G₂},{J₃,G₃}],

corresponding to

ninej.m

 9-J symbol: Nine-J symbol: output of this subroutine is

nj[{J₁,J₂,J₁₂},{J₃,J₄,J₃₄},{J₁₃,J₂₄,J}],

corresponding to

rotation.m

  Irreducible matrix representations of the rotation group: output of this subroutine is

rotm[j,m,m′,α,β,γ],

corresponding to     defined in chapter 19.

Notebooks

Some notebooks will be added from time to time:

squarewell.nb This notebook has quantum dynamics for an intial packet in the well.