Mathematica script to plot results of Excercise 3.7