Dodecaedro estrellado

Las pirámides de base pentagonal con el vértice en el centro del dodecaedro se llevan al exterior

Arista

Radio

Empaquetamiento

SI

SI

NO

NO

Animación

Dodecaedro

Triacontraedro Rómbico

Dodecaedro estrellado

Detener la animación en:

Pequeño dodecaedro estrellado

t = -1.26 (slider from -2 to 1, step 0.001)
t0 = Max(-1.26, Min[1, t])
t3 = Min(1, Max[0, t - 2])
O: (0, 0, 0)
L = 2 (slider from 1 to 4, step 0.1)
n = 5 (slider from 3 to 5, step 1)
c = 1.4142135623730951 (slider from -5 to 5, step 1)
t_1 = 1.7320508075688772
p = 1.1755705045849463
ar = If(n ≟ 3, L / t_1, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
RA = 1 (slider from 0 to 1, step 1)
des = If(RA ≟ 0, L, If[RA ≟ 1, ar])
ci = Circle(O, des, xOyPlane)
A = Point(ci)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
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.3 (slider from -5 to 5, step 0.1)
I = (-18, -6)
p12, B, C, D, E, F, G, H, J, K, M, N, P12, Q, R, S, T, U, caraAA'A''BC, caraACGPH, caraAA'DJH, caraA'A''EKD, caraA''BFME, caraBCGNF, caraGNTUP, caraHJQUP, caraDJQRK, caraEKRSM, caraFMSTN, caraQRSTU_1, aristaAC, aristaAA', aristaA'A'', aristaA''B, aristaBC, aristaAH, aristaCG, aristaGP, aristaHP, aristaHJ, aristaDJ, aristaA'D, aristaDK, aristaEK, aristaA''E, aristaEM, aristaFM, aristaBF, aristaFN, aristaGN, aristaNT, aristaTU_1, aristaPU_1, aristaQU_1, aristaJQ, aristaQR_1, aristaKR, aristaRS_1, aristaMS, aristaST_1 = Dodecahedron(A, A', A'')
V = Midpoint(U, A'')
PM = Midpoint(U, Q)
W = Midpoint(Q, R)
f = Segment(T, N)
g = Segment(W, T)
h = Segment(PM, S)
Z = Intersect(h, g)
t1: t0
P: Z + (t0 * (V - Z))
a0, caraQRSTU, caraPQR, caraPRS, caraPST, caraPTU, caraPQU, aristaQR, aristaRS, aristaST, aristaTU, aristaQU, aristaPQ, aristaPR, aristaPS, aristaPT, aristaPU = Pyramid(Q, R, S, T, U, P)
b = Plane(U, Q, B)
a1 = Mirror(a0, b)
a0' = Mirror(a0, V)
a1' = Mirror(a1, V)
a = Plane(Q, R, B)
a2 = Mirror(a0, a)
d = Plane(C, R, S)
a3 = Mirror(a0, d)
k = Plane(S, T, A)
a4 = Mirror(a0, k)
l = Plane(T, U, A')
a5 = Mirror(a0, l)
a2' = Mirror(a2, V)
a3' = Mirror(a3, V)
a4' = Mirror(a4, V)
a5' = Mirror(a5, V)
v10: (10 * v)
texto3: "Velocidad de giro " + v10 + ""
texto2: "Arista dodecaedro " + L + ""
fac: Distance[Z, P] / Distance[R, S]