¿Por qué el resultado de cortar una banda de Möbius por la mitad longitudinalmente tiene dos giros completos? Puedo explicar un giro completo: la identificación de la esquina superior izquierda con la inferior derecha es un medio giro; del mismo modo, la identificación de la esquina superior derecha y la inferior izquierda contribuye a otro medio giro. Pero ¿dónde está la segunda completo ¿de dónde viene el giro?
Se valorarán mucho las explicaciones con ejemplos o analogías extraídas de la vida real.
edit: Estoy pegando la de J.M. Mathematica código aquí (ver su respuesta), modificado para la versión 5.2.
twist[{f_, g_}, a_, b_, u_] := {Cos[u] (a + f Cos[b u] - g Sin[b u]),
Sin[u] (a + f Cos[b u] - g Sin[b u]), g Cos[b u] + f Sin[b u]};
With[{a = 3, b = 1/2, f = 1/2},
Block[{$DisplayFunction = Identity},
g1 = ParametricPlot3D[Evaluate[Append[twist[{f - v, 0}, a, b, u],
{EdgeForm[], FaceForm[SurfaceColor[Red], SurfaceColor[Blue]]}]],
{u, 0, 2 Pi}, {v, 0, 2 f}, Axes -> None, Boxed -> False];
g2 = ParametricPlot3D[Evaluate[Append[twist[{f - v, 0}, a, b, u],
EdgeForm[]]], {u, 0, 4 Pi}, {v, 0, 2 f/3},
Axes -> None, Boxed -> False];
g3 = ParametricPlot3D[Evaluate[Append[twist[{f - v, 0}, a, b, u],
{EdgeForm[], FaceForm[SurfaceColor[Red], SurfaceColor[Blue]]}]],
{u, 0, 2 Pi}, {v, 2 f/3, 4 f/3}, Axes -> None, Boxed -> False,
PlotPoints -> 105]];
GraphicsArray[{{g1, Show[g2, g3]}}]];