Re: mobius strip
- To: mathgroup at smc.vnet.net
- Subject: [mg25066] Re: [mg25044] mobius strip
- From: Hugh Walker <hwalker at gvtc.com>
- Date: Thu, 7 Sep 2000 22:28:07 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
VIKTORA6 at aol.com asks what mathematical formula can generate a mobius strip?
=========
Alfred Gray's Modern Differential Geometry of Curves and Surfaces is a
great source for Mathematica applied to such topics. In Section 12.3 the
Mobius strip is paramamaterized and plotted according to
moebiusstrip[a_][u_,v_]:= a{Cos[u]+v Cos[u/2] Cos[u],Sin[u]+v
Cos[u/2]Sin[u],v Sin[u/2]};
ParametricPlot3D[moebiusstrip[1][u,v]//Evaluate,{u,0,2
Pi},{v,-0.3,0.3},PlotPoints->{40,10},Axes->None,Boxed->False];
Here, a governs the scale of the strip's radius and v its thickness.
==
Hugh Walker
Gnarly Oaks