Gran dodecaedro estrellado

Ver ejes

Ver poliedro estrellado

Gran dodecaedro estrellado

\left\{ \frac{5}{2},3 \right\} 

Animar

Detener

r = 1.2 (slider from 0 to 5, step 0.05)
O = (0, 0)
c = Circle(O, r)
A = Point(c)
n = 3 (slider from 3 to 5, step 1)
A' = Rotate(A, (360 * ° / n), O)
A'' = Rotate(A', (360 * ° / n), O)
a, B, C, D, E, F, G, H, I, J, caraAA'A'', caraAA''D, caraADE, caraABE, caraAA'B, caraA'BF, caraA'CF, caraA'A''C, caraA''CG, caraA''DG, caraCFI, caraCGI, caraGIJ, caraDGJ, caraFHI, caraHIJ, caraEHJ, caraDEJ, caraBFH, caraBEH, aristaAA'', aristaAA', aristaA'A'', aristaAD, aristaA''D, aristaAE, aristaDE, aristaAB, aristaBE, aristaA'B, aristaA'F, aristaBF, aristaA'C, aristaCF, aristaA''C, aristaA''G, aristaCG, aristaDG, aristaCI, aristaFI, aristaGI, aristaGJ, aristaIJ, aristaDJ, aristaHI, aristaFH, aristaHJ, aristaEJ, aristaEH, aristaBH = Icosahedron(A, A', A'')
b = Line(I, J)
e = Line(B, E)
f = Line(A', A)
M = Intersect(aristaAD, aristaA''D)
g = Line(G, M)
d = Line(J, A')
K = puntopentagrama(G, I, E, H)
L = puntopentagrama(A'', C, B, A)
polígono1 = pentagrama(d, K)
polígono2 = pentagrama(d, L)
h = Line(I, A)
N = puntopentagrama(G, C, H, F)
P = puntopentagrama(E, B, A'', A')
polígono3 = pentagrama(h, N)
polígono4 = pentagrama(h, P)
i = Line(M, F)
Q = puntopentagrama(C, A', H, B)
R = puntopentagrama(G, A'', E, A)
polígono5 = pentagrama(i, Q)
polígono6 = pentagrama(i, R)
j = Line(E, C)
S = puntopentagrama(A'', G, F, I)
polígono7 = pentagrama(j, S)
V = puntopentagrama(H, B, D, A)
polígono8 = pentagrama(j, Q)
k = Line(B, G)
T = puntopentagrama(C, I, M, J)
polígono9 = pentagrama(k, T)
polígono10 = pentagrama(k, R)
l = Line(H, A'')
U = puntopentagrama(C, A', M, A)
W = puntopentagrama(A', C, M, G)
polígono11 = pentagrama(l, W)
Z = puntopentagrama(I, F, E, B)
A_1 = puntopentagrama(E, B, I, F)
B_1 = puntopentagrama(E, B, I, F)
polígono12 = pentagrama(l, B_1)
v = 1 (slider from -5 to 5, step 0.5)
m = false
o = true

Tool: pentagrama
eje, punto
Input: a, C
Output: penta

C' = Rotate(C, 144*°, a)
C'' = Rotate(C', 144*°, a)
C''' = Rotate(C'', 144*°, a)
D = Rotate(C''', 144*°, a)
penta, c, c', c'', c''', d, c_1 = Polygon(C, C', C'', C''', D, C)

Tool: puntopentagrama
Input: B, E, F, I
Output: K

d = Line(I, F)
h = Line(E, B)
K = Intersect(d, h)