Re: Re : Moebius strip

*To*: mathgroup at smc.vnet.net*Subject*: [mg2952] Re: [mg2946] Re : Moebius strip*From*: Robert Pratt <rpratt at math.unc.edu>*Date*: Mon, 15 Jan 1996 03:39:53 -0500

Stan Wagon's book Mathematica in Action includes commands for such a plot, generated by rotating a rotating line segment about a circle (Figure 7.8 on p. 230). circle[t_] := {4, 0, 0} + s {Cos[t], 0, Sin[t]} ParametricPlot3D[rotate[theta] . circle[theta/2], {s, -1, 1, 2}, {theta, 0, 2 Pi, Pi/30}, Boxed->False, ViewPoint->{2.7, -1.7, 2.3}] If this doesn't do what you want, you might also consult Alfred Gray's book Modern Differential Geometry of Curves and Surfaces, published by CRC Press in 1993. Rob Pratt Department of Mathematics The University of North Carolina at Chapel Hill CB# 3250, 331 Phillips Hall Chapel Hill, NC 27599-3250 rpratt at math.unc.edu On Sun, 14 Jan 1996 marshall at cis.edu.hk wrote: > How can I obtain a 3D rendering of a Moebius strip using Mathematica ? > > > > ==== [MESSAGE SEPARATOR] ====