Here is a listing of my mathematica notebooks. The most recent of any of these notebooks can all be obtained from my github Mathematica repository.
The Wolfram CDF player can also be used to view a number of these notebooks after download.
Plots of index of refraction and relative permittivity for passive and active media.
A verification of the hand calculated result.
Quadropole expansion comparison attempt.
ps9, p1, Slab transfer matrix eigenvalues.
Problem set 9, problem 2. Plots of transmission magnitude and phase for a one dimensional photonic crystal. Plots assume: $\mu_1 = \mu_2 = 1$, normal incidence, and use the Fresnel reflection coefficient $\rho_{ij}$ for the TE mode polarization.
Total internal reflection critical angle.