Banda de Moebius como superfie reglada

Modifica los parametros, especialmente el parametro p. 
Gira la vista grafica, aparecen curiosas vistas de la cinta.

Modifica el parámetro p. 

p = 1 (slider from 0 to 10, step 1)
n = 288 (slider from 10 to 300, step 1)
t = 2.5 (slider from 1 to 5, step 0.1)
r = 3.2 (slider from 0 to 4, step 0.1)
O = Intersect(xAxis, yAxis)
c = Circle(O, r)
A = Point(c)
lista1 = Sequence(Rotate[A, ((i * 360) * ° / n), zAxis], i, 1, n)
lista6 = Zip(Tangent[A, c], A, lista1)
lista7 = Translate(lista6, Vector[(0, 0, t / 2)])
lista2 = Translate(lista1, Vector[(0, 0, t)])
c' = Translate(c, Vector[(0, 0, t)])
lista3 = Zip(Segment[A, B], A, lista1, B, lista2)
lista4 = Zip(Midpoint[A, B], A, lista1, B, lista2)
B: (0, 0, t / 2)
lista5 = Zip(Segment[B, C], C, lista4)
a = Plane(B, xOyPlane)
d = Circle(zAxis, Element[lista4, 1])
lista10 = Sequence(Rotate[Element[lista2, i], (((p * (i - 1)) * 180) * ° / n), Element[lista7, i]], i, 1, n)
lista9 = Sequence(Rotate[Element[lista1, i], (((p * (i - 1)) * 180) * ° / n), Element[lista7, i]], i, 1, n)
lista11 = Sequence(Segment[Element[lista9, i], Element[lista9, i + 1]], i, 1, n)
lista12 = Sequence(Segment[Element[lista10, i], Element[lista10, i + 1]], i, 1, n)
b = Segment(Element[lista9, 1], Element[lista9, n])
e = Segment(Element[lista10, 1], Element[lista10, n])
lista8 = Sequence(Rotate[Element[lista3, i], ((((i - 1) * p) * 180) * ° / n), Element[lista7, i]], i, 1, n)