Pequeño dodecaedro estrellado-gran dodecaedro

Anima

Detiene

Pequeño dodecaedro estrellado

Gran dodecaedro

Ver ejes

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

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

Ver Icosaedro

p = 2 (slider from 1 to 2, step 1)
r = 1.9 (slider from 0 to 5, step 0.05)
n = 3 (slider from 3 to 5, step 1)
O = (0, 0)
c = Circle(O, r)
A = Point(c)
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(H, A'')
polígono1 = pentapenta(b, E, p)
polígono2 = pentapenta(b, A, p)
d = Line(I, A)
polígono3 = pentapenta(d, H, p)
polígono4 = pentapenta(d, E, p)
e = Line(C, E)
polígono5 = pentapenta(e, I, p)
polígono6 = pentapenta(e, H, p)
f = Line(J, A')
polígono7 = pentapenta(f, I, p)
polígono8 = pentapenta(f, F, p)
g = Line(F, D)
polígono9 = pentapenta(g, H, p)
polígono10 = pentapenta(g, J, p)
K = Intersect(aristaCG, aristaA''G)
h = Line(B, K)
polígono11 = pentapenta(h, H, p)
polígono12 = pentapenta(h, I, p)
v = -1 (slider from -5 to 5, step 0.1)
i = false
j = false

Tool: pentapenta
Input: a, C, p
Output: polígono1

C' = Rotate(C, (72° * p), a)
C'' = Rotate(C', (72° * p), a)
C''' = Rotate(C'', (72° * p), a)
D = Rotate(C''', (72° * p), a)
polígono1, c, c', c'', c''', d, c_1 = Polygon(C, C', C'', C''', D, C)