Code for the Guide series
Each of the three Guide books works its calculations and visualizations in Mathematica. The notebooks are available from JR Enterprises as digital downloads, so the calculations in the text can be run, altered and extended rather than only read.
See also Modern Physics from α to Z0 and ElectroDynamics, listed with the others on the main page.