Re: How to plot a Klein bottle
- To: mathgroup at yoda.ncsa.uiuc.edu
- Subject: Re: How to plot a Klein bottle
- From: ags at seaman.cc.purdue.edu (Dave Seaman)
- Date: Wed, 27 Feb 91 10:45:09 -0800
Sorry -- it turns out that the figure is a Klein bottle, after all. It's not
at all obvious when you plot it all at once, but it helps to do the plot in
four pieces. Instead of
ParametricPlot3D[{f,g,h},{t,0,2Pi,Pi/16},{u,0,2Pi,Pi/16}]
I used
Do[ParametricPlot3D[{f,g,h},{t,0,2Pi,Pi/16},{u,w,w+Pi/2,Pi/16}],
{w,0,3Pi/2,Pi/2}]
to get separate plots for each quadrant with the intersections clearly visible.
Dave Seaman