Hiperboloide 1

Hiperboloide como superficie reglada

r = 2.2 (slider from 1 to 4, step 0.1)
O = (0, 0)
c = Circle(O, r)
A = Point(c)
n = 43 (slider from 1 to 100, step 1)
lista1 = Sequence(Rotate[A, ((i * 360) * ° / n), O], i, 1, n)
h = 5 (slider from 1 to 5, step 0.1)
v: (0, 0, h)
c' = Translate(c, v)
A' = Translate(A, v)
α = 1.7627825445142729 rad (slider from 0 to 6.283185307179586, step 1*°)
B = Rotate(A', α, zAxis)
lista2 = Sequence(Rotate[B, ((i * 360) * ° / n), zAxis], i, 1, n)
lista3 = Zip(Segment[A, B], A, lista1, B, lista2)