plots of G. Schwarz's flat moebius

Sha Xin Wei
Stanford, 415-725-3152

definitions

g[t_] := {Sin[t], (1-Cos[t])^3, Sin[t](1-Cos[t])}

central curve of strip, with Frenet Frame

DrawTNBFrame[{gc,tv,nv,bv }, 0., 6.8 , 1.0 , 17, 
	PlotRange->{{-2.2,2.2},{0,8},{-2.,2.}}]

TO ANIMATE, SELECT THE GROUP OF CELLS (BY CLICKING BETWEEN THE VERTICAL LINES AT THE RIGHT, AND THEN PRESS COMMAND-Y.
At g[0] = {0,0,0}, curvature (kappa) vanishes and  the Frenet frame apparently flips.

surface

OPEN  OR CLOSE PICTURE CELLS BY CLICKING BETWEEN THE VERTICAL LINES AT THE RIGHT.

Show[%, ViewPoint->{-0.296, 2.432, 1.061}]

Show[gmob, Boxed->False, Axes->True,
	AxesEdge->{{-1,-1},{-1,-1},{-1,-1}}, ViewPoint->{0.572, -3.208, 0.910}]

Show[%40, Boxed->False, Axes->True,
	AxesEdge->{{-1,-1},{-1,-1},{-1,-1}},ViewPoint->{-0.078, -3.292, 0.779}]

gl = SpinShow[gmobLined, Frames->12]

TO SPIN, SELECT THE GROUP OF CELLS (BY CLICKING BETWEEN THE VERTICAL LINES AT THE RIGHT, AND THEN PRESS COMMAND-Y.

Show /@ gl1