Superficie reglada sobre un cubo

Construir sobre dos diagonales de caras opuestas una secuencia de puntos y construir los segmentos correspondientes.

Puede hacerse una construcción similar sobre otros poliedros regulares. Se obtienen superficies muy vistosas

Velocidad animación plano

Simetria central

RA = 0 (slider from 0 to 1, step 1)
p = 1.1755705045849463
t = 1.7320508075688772
c = 1.4142135623730951
n = 4 (slider from 3 to 5, step 1)
L = 4 (slider from 1 to 4, step 0.1)
ar = If(n ≟ 3, L / t, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
O = Intersect(xAxis, yAxis)
ci = Circle(O, des)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
v = 2.6 (slider from -5 to 5, step 0.1)
b = Distance(A, A')
a, B, C, D, E, F, caraAA'A''B, caraABFC, caraAA'DC, caraA'A''ED, caraA''BFE, caraCDEF, aristaAB, aristaAA', aristaA'A'', aristaA''B, aristaAC, aristaBF, aristaCF, aristaCD, aristaA'D, aristaDE, aristaA''E, aristaEF = Cube(A, A', A'')
m = 54 (slider from 1 to 100, step 1)
lista1 = Sequence(B + (i * (C - B) / m), i, 1, m)
lista2 = Sequence(E + (i * (A' - E) / m), i, 1, m)
lista3 = Zip(Segment[A, B], A, lista1, B, lista2)
G = Midpoint(E, A)
lista3' = Mirror(lista3, G)
d = false