modified:   mathematica/ps5p1Plot.nb