Icosaedro estrellado

Las pirámides de base triangular con el vértice en el centro del icosaedro se llevan al exterior.

Arista

Radio

Empaquetamiento

SI

SI

NO

NO

Ver empaquetamiento

Animación

Empaquetamiento

Detener la animación en:

Iccosaedro

Gran dodecaedro

Pirámides Exteriores

Gran dodecaedro estrellado

t = -2 (slider from -2 to 1.5, step 0.001)
t0 = Max(-2, Min[1, t])
t3 = Min(1, Max[0, t - 2])
O: (0, 0, 0)
L = 2.2 (slider from 1 to 4, step 0.1)
n = 3 (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.5 (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_1 = 4.1 (slider from -5 to 5, step 0.1)
I = (-18, -6)
p12, B, C, D, E, F, G, H, J, K, cara1, cara2, cara3, cara4, cara5, cara6, cara7, cara8, cara9, cara10, cara11, cara12, cara13, cara14, cara15, cara16, cara17, cara18, cara19, cara20, arista1, arista2, arista3, arista4, arista5, arista6, arista7, arista8, arista9, arista10, arista11, arista12, arista13, arista14, arista15, arista16, arista17, arista18, arista19, arista20, arista21, arista22, arista23, arista24, arista25, arista26, arista27, arista28, arista29, arista30 = Icosahedron(A, A', A'')
t1: t0
M = Midpoint(A', K)
N = Midpoint(J, G)
PM = Midpoint(J, K)
f = Segment(G, PM)
g = Segment(N, K)
Q, R = Intersect(f, cara13)
S = Intersect(f, g)
P: S + (t * (M - S))
a0, caraJKQ, caraJPQ, caraKPQ, caraJKP, aristaJQ, aristaKQ, aristaJK, aristaJP, aristaPQ, aristaKP = Pyramid(J, Q, K, P)
b = Plane(J, Q, A)
d = Plane(Q, K, A')
a1 = Mirror(a0, b)
a2 = Mirror(a0, d)
a = Plane(K, J, A)
a3 = Mirror(a0, a)
h = Plane(D, K, A')
a4 = Mirror(a2, h)
a5 = Mirror(a0, h)
a6 = Mirror(a1, h)
k = Plane(B, D, Q)
a7 = Mirror(a2, k)
a8 = Mirror(a7, h)
a9 = Mirror(a5, k)
b0 = Mirror(a3, k)
b1 = Mirror(a6, k)
b2 = Mirror(a1, a)
b3 = Mirror(b0, a)
b4 = Mirror(a2, b)
b5 = Mirror(a5, b)
b6 = Mirror(a3, b)
b7 = Mirror(b1, b)
b8 = Mirror(a4, k)
b9 = Mirror(b7, d)
c0 = Mirror(a5, k)
l: (v * 10) = (10 * v)
v10: (10 * v)
texto3: "Velocidad de giro " + v10 + ""
texto2: "Arista del icosaedro " + L + ""
fac: Distance[Q, P] / Distance[K, Q]
nada = -1.9 (slider from -5 to 5, step 0.1)