Superficie reglada 2

Similar a la anterior, su vista de frente es un rombo. Segmentos de diferente longitud.

Velocidad animación plano

Parque de las Américas. Burgos

p = 3 (slider from 1 to 4, step 0.1)
a = 4.3 (slider from 0 to 5, step 0.1)
n = 137 (slider from 3 to 300, step 1)
A = Point(yAxis)
C: A + (0, 0, (-a))
B: A + (0, 0, a)
p_1 = 1.1755705045849463
t = 1.7320508075688772
c = 1.4142135623730951
O = Intersect(xAxis, yAxis)
b = 1.5 (slider from 0 to a, step 0.1)
D: A + (b, 0, 0)
E: A + ((-b), 0, 0)
poli1, d, e, f, g = Polygon(B, D, C, E)
k = Circle(yAxis, B)
lista1 = Sequence(Segment[Rotate[C, (((i * p) * 180) * ° / n), yAxis], Rotate[B, (((i * p) * 180) * ° / n), yAxis]], i, 1, n)
s = Segment(C, B)
av = 0.2 (slider from 0 to 0.5, step 0.05)
lista2 = Sequence(Intersect[Element[lista1, i], poli1], i, 1, n)
lista3 = Zip(Mirror[H, A], H, lista2)
lista4 = Zip(Segment[A, B], A, lista2, B, lista3)
lista5 = Sequence(Translate[Element[lista4, i], Vector[(i * (0, av, 0))]], i, 1, n)
α = 3.0543261909900767 rad (slider from 0 to 180*°, step 1*°)
lista5' = Rotate(lista5, α, yAxis)
C' = Rotate(C, α, yAxis)
B' = Rotate(B, α, yAxis)
s' = Segment(C', B')
F = (-3, -2)
G = (2, -2)