Pensieve Header: The Figure-8 Klein Bottle.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Classes\\1617-257b-AnalysisII"]

MakeImage["Figure8Klein", ParametricPlot3D[
r={Cos[2t], Sin[2t], 0}; n={0,0,1};
3r+(Cos[t]r-Sin[t]n)Sin[2s]+(Sin[t]r+Cos[t]n)Sin[s],
{t,0,7Pi/8}, {s,0,2Pi},
 PlotStyle->Opacity[0.6], Axes -> None, Boxed -> False, Background -> White,
ViewPoint->{4.174,-1.30341,2.20881},ViewVertical->{-0.317433,0.524238,2.7058}
], ImageSize -> 720]