This notebook prepares the cusp picture for the route 81
slides.

ParametricPlot[{t^2,t^3},{t,-2,2},AspectRatio->Automatic,
Axes->None,PlotRange->{{0,.5},{-.5,.5}},PlotStyle->
AbsoluteThickness[2]]

ParametricPlot[{0,t
},{t,-.5^(3/2),.5^(3/2)},AspectRatio->Automatic,
Axes->None,PlotRange->{{0,.5},{-.5,.5}},PlotStyle->AbsoluteThickness[2]]

Here I have attempted to make the curves the same height.

?Display

The next two commands save the pictures in an
.eps file. The line numbers get lost in the
notebook, but line 13 created the cusp picture
and line 14 created the line.

Display["c:\\emtex\\leslie\\cusp.ps",%13,"EPS"]

Display["c:\\emtex\\leslie\\line.ps",%14,"EPS"]