MathGroup Archive 2000

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

Search the Archive

Re:what mathematical formula can generate a mobius strip?


VIKTORA6 at aol.com asked the following question:
"what mathematical formula can generate a mobius strip?"

If you only want to plot it, use

<< Graphics`Shapes`
Show[Graphics3D[MoebiusStrip[2, 1, 80]]]

If you want to play more, and have control over the parameters, use

r1 = 5; r2 = 2.5; theta0 = 6*Pi/2.;
ParametricPlot3D[{(r1 - r2*u*Sin[(theta - theta0)/2])*Cos[theta],
(r1 - r2*u*Sin[(theta - theta0)/2])*Sin[theta],
r2*u*Cos[(theta - theta0)/2]}, {theta, 0, 2*Pi}, {u, -1, 1}]

With the given values of r1, r2 and theta0, you get almost the same curve as
the curve from MoebiusStrip, but you can also experiment with other values.
If you only want the outer edge, use

r1 = 5; r2 = 2.5; theta0 = 6*Pi/2.;
ParametricPlot3D[{(r1 - r2*Sin[(theta - theta0)/2])*Cos[theta],
(r1 - r2*Sin[(theta - theta0)/2])*Sin[theta],
 r2*Cos[(theta - theta0)/2]}, {theta, 0, 4*Pi}]

Ingolf Dahl
Chalmers University
f9aid at fy.chalmers.se





  • Prev by Date: Re: Fourier Transform & Data imported from Excel
  • Next by Date: How to keep things real?
  • Previous by thread: Re: what mathematical formula can generate a mobius strip?
  • Next by thread: Fourier Transform & Data imported from Excel