Octaedro estrellado

Hacemos la simetría de las pirámides que unen cada cara triangular con el centro del octaedro. Si hacemos que esas pirámides tengan todas sus caras como triángulos equiláteros, obtenemos la estrelal octángula.

Arista

Radio

Empaquetamiento

SI

SI

NO

NO

Animación

Octaedro

Pirámides Exteriores

Estrella octángula

Detener la animación en:

Pirámides Interiores

RA = 1 (slider from 0 to 1, step 1)
p = 1.1755705045849463
t_1 = 1.7320508075688772
c = 1.4142135623730951 (slider from -5 to 5, step 1)
n = 3 (slider from 3 to 5, step 1)
L = 4 (slider from 1 to 6, step 0.1)
ar = If(n ≟ 3, L / t_1, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
O: (0, 0, 0)
ci = Circle(O, des, xOyPlane)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
p08, B, C, D, caraAA'A'', caraAA''D, caraABD, caraAA'B, caraA'BC_1, caraA'A''C, caraA''CD, caraBCD, aristaAA'', aristaAA', aristaA'A'', aristaAD, aristaA''D, aristaAB, aristaBD, aristaA'B_1, aristaA'C_1, aristaBC_1, aristaA''C, aristaCD = Octahedron(A, A', A'')
E = Midpoint(B, A'')
E' = Mirror(E, caraA'BC_1)
F = Midpoint(E', E)
t = -1 (slider from -2 to 1, step 0.01)
t0 = Max(-1, Min[1, t])
t3 = Min(1, Max[0, t - 2])
t2 = Min(1, Max[0, t - 1])
v = 0.2 (slider from -1 to 1, step 0.1)
arista = Distance(A, A')
radio = Distance(O, A'')
i = 0 (slider from 0 to 1, step 1)
e = true
j = 1 (slider from 0 to 1, step 1)
nada = 3.9 (slider from -5 to 5, step 0.1)
I = (-18, -6)
v10: (10 * v)
texto3: "Velocidad de giro " + v10 + ""
texto2: "Arista dodecaedro " + L + ""
P0: F + (t * (E - F))
a, caraA'BC, caraA'CP0, caraBCP0, caraA'BP0, aristaA'C, aristaBC, aristaA'B, aristaA'P0, aristaCP0, aristaBP0 = Pyramid(A', C, B, P0)
f = Line(C, E)
a1 = Rotate(a, 90°, f)
a2 = Rotate(a1, 90°, f)
a3 = Rotate(a2, 90°, f)
b = Plane(B, D, A'')
a4 = Mirror(a, b)
a5 = Rotate(a4, 90°, f)
a6 = Rotate(a5, 90°, f)
a7 = Rotate(a6, 90°, f)
k = 1 (slider from 0 to 1, step 1)