Re:what mathematical formula can generate a mobius strip?
- To: mathgroup at smc.vnet.net
- Subject: [mg25059] Re:[mg25044] what mathematical formula can generate a mobius strip?
- From: "Ingolf Dahl" <f9aid at fy.chalmers.se>
- Date: Thu, 7 Sep 2000 22:28:02 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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