From: Robert Israel <israel@math.ubc.ca>
Newsgroups: sci.math.symbolic
Subject: Re: how to use Maple to plot Klein bottle or Mobius strip
Date: Mon, 14 Apr 1997 11:49:21 -0700

Nelson G. Rich wrote:

|> I know this sounds peculiar (it does to me too), but is there
|> any way to get a reasonbly good "picture" of a Klein bottle using
|> Maple's plot3D command?  And also for a Mobius strip?

For a Klein bottle, you might try something like this:

> with(plots):
> tubeplot([sin(t)^2, sin(t)^3*sin(2*t),0],t=0.. 3.13,
   numpoints=100,tubepoints=20, radius=.1 + .07*sin(2*t),
   scaling=constrained,style=PATCH,orientation=[150,50]);

For a Mobius strip, try

> plot3d([sin(t)*(1+v*cos(t/2)) , cos(t) *(1+v*cos(t/2)),
   v*sin(t/2)],t=0..2*Pi, v=-.2 .. 0.2, scaling=constrained); 

Robert Israel                            israel@math.ubc.ca
Department of Mathematics             (604) 822-3629
University of British Columbia            fax 822-6074
Vancouver, BC, Canada V6T 1Y4