From: Robert Israel
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