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