Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

Re: Re : Moebius strip

  • Subject: [mg2952] Re: [mg2946] Re : Moebius strip
  • From: rpratt at math.unc.edu (Robert Pratt)
  • Date: 15 Jan 1996 05:37:05 -0600
  • Approved: usenet@wri.com
  • Distribution: local
  • Newsgroups: wri.mathgroup
  • Organization: Wolfram Research, Inc.
  • Sender: mj at wri.com

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 ?
> 
> 
> 
> 


  • Prev by Date: Re: Re : Moebius strip
  • Next by Date: Re: Unix Kernel with Windows frontend?
  • Previous by thread: Re: Re : Moebius strip
  • Next by thread: Re: Re : Moebius strip