Pensieve Header: The Cubic Saddle, as at http://www.math.toronto.edu/drorbn/papers/Cobordism/.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2004-03"]

CubicSaddle=ParametricPlot3D[
{
{r Cos[t],r Sin[t],3r^3 Cos[3t]},
{r Cos[t],r Sin[t],1+r^2}/2,
{r Cos[t],r Sin[t],-1-r^2}/2
},
{r,0,1},{t,0,2Pi},
PlotRange->{-1,1},Boxed->False,Axes->False,PlotPoints->{10,30},ViewPoint->0.8{2.4,-1.2,1.5}, PlotStyle->Opacity[0.75]
]

Export["CubicSaddle.jvx", CubicSaddle]