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 for problem 2.6 in Fowles Modern Optics.
Problem 2.9 in Fowles Modern Optics. General Jones vector
Problem set 1 numerical and plot stuff.
Attempt to verify the circular aperture Fourier transform result from the diffraction notes. Mathematica gives me a different result than what our Prof detailed.
Problem set 2 work. Verify some results. Do the plots and numerical work. This includes the integral that yields the first order Bessel function.
Thinking about problem set 2 problem 3b. Logical want to consider the solar originated rays as random variates in the lingo of mathematica ... functions that generate frequencies or frequency ranges as opposed to the probability that a frequency is found in a certain range.
Determine the scaling and variance for a Gaussian
Plot the Etalon function. Used Evaluate and the PlotLegends package to label the level curves automatically
Plots for lecture 14. One is a simple sine squared (using Ticks to mark only on 2 Pi multiples), and the other I was experimenting with Mathematica Text label placement.
Try out Belisaris's label placement "App" for the Etalon figure.
Results from Belisaris's label placement "App" for the Etalon figure.
likely using Belisaris's labeling app
Plot the single slit diffraction wavefunction and N slit intensity, the latter using a Manipulate so that various parameters can be played with
Plots and rough calculations for problem set 3
Plots for lecture 18. First couple 1D Quantum SHO solutions
Plot of decreasing exponential
Plots for lecture 20.
Plot of the lowest order Gaussian beam envelope. Verify normalization from page 2 of the notes. Use ContourPlot3D to plot the hyperboliod of revolution for the lowest order Gaussian beam mode.
Verify sign error in the characteristic poly in Fowles just before 10.28. Functions used: Collect, Solve. Also sets up a 2 by 2 matrix.
Compute characteristic equation coefficients for unequal focal radii. Functions used: Det, CoefficientList, Factor, FullSimplify.
Plot of Abs[Sinc[]] for Lloyd's mirror problem post midterm reflection
Bessel integral for 2010 question 3 exam practice
Numerical evaluation for 2010 question 5a and 5b exam practice. Used the new Mathematica 9 Quantity function for easy handling of units. Provides a nice check that the right numerical combinations end up dimensionless.
Here's the algebra for the Van Driel notes that give expressions for z1 z2 z0 in terms of g1 g2, and for w(z) at these points. Too hard to do it by hand. Mathematica functions used include Notation package for subscript variables, Flatten, Solve, Eliminate, FullSimplify, and Factor.