Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1991
*January
*February
*March
*August
*September
*October
*November
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1991

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: List contour plots
  • Next by Date: Re: Plotting
  • Previous by thread: How to plot a Klein bottle
  • Next by thread: List contour plots