Dodecaedro+Icosaedro

Poliedro compuesto por un dodecaedro y un icosaedro cuyas aristas se cortan en los puntos medios.

Arista

Radio

Icosaedro

Dodecaedro

Cubo

Tetraedro

Octaedro

RA = 1 (slider from 0 to 1, step 1)
p = 1.1755705045849463
t = 1.7320508075688772
c = 1.4142135623730951
n = 3 (slider from 3 to 5, step 1)
L = 3.4 (slider from 1 to 4, step 0.1)
ar = If(n ≟ 3, L / t, 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)
v = 0.5 (slider from -5 to 5, step 0.1)
b = Distance(A, A')
arista = Distance(A, A')
radio = Distance(O, A'')
distanciaAA' = Distance(A, A')
P20, 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'')
a = true
K = Midpoint(I, A)
M = Midpoint(I, J)
N = Midpoint(aristaGI)
f = Segment(G, M)
g = Segment(J, N)
P = Intersect(g, f)
Q = Midpoint(aristaCI)
R = Midpoint(aristaFI)
i = Segment(C, R)
j = Segment(F, Q)
k = Segment(Q, G)
l = Segment(C, N)
S = Intersect(l, k)
T = Intersect(i, j)
U = Intersect(k, l)
r20: (L * 0.95106)
r12: (L * 0.86598)
d = Sphere(K, r12)
KU = Distance(K, U)
P2D: K + ((S - K) * 0.86598 / 0.75576)
P3D: K + ((T - K) * 0.86598 / 0.75576)
P1D: K + ((P - K) * 0.86598 / 0.75576)
P12, V, W, Z, A_1, B_1, C_1, D_1, E_1, F_1, G_1, H_1, I_1, J_1, K_1, L_1, M_1, N_1, caraP1DP2DP3DVW, cara4, cara2, cara1, cara3, cara5, cara9, cara10, cara6, cara7, cara8, cara11, aristaP1DW, aristaP1DP2D, aristaP2DP3D, aristaP3DV, aristaVW, arista2, arista4, arista12, arista14, arista13, arista5, aristaP2DZ, arista6, arista7, arista1, arista8, arista9, arista3, arista10, arista11, arista18, arista24, arista19, arista21, arista15, arista20, arista16, arista22, arista17, arista23 = Dodecahedron(P1D, P2D, P3D)
e = true
P06, O_1, P_1, Q_1, R_1, S_1, cara12, cara16, cara15, cara13, cara14, cara17, arista29, arista27, aristaP1DP3D, arista25, arista30, arista31, arista33, arista32, arista28, arista34, arista26, arista35 = Cube(C_1, P1D, P3D)
T_1: P1D
U_1: P3D
V_1: C_1
h = false
P04, W_1, cara18, cara20, cara21, cara19, arista37, arista39, arista36, arista41, arista38, arista40 = Tetrahedron(T_1, R_1, O_1)
X_1: T_1
Y_1: R_1
Z_1: O_1
m = false
A_2 = Midpoint(arista39)
B_2 = Midpoint(arista40)
C_2 = Midpoint(arista41)
P08, D_2, E_2, F_2, cara22, cara24, cara28, cara26, cara27, cara23, cara25, cara29, arista43, arista46, arista42, arista50, arista45, arista49, arista52, arista47, arista48, arista51, arista44, arista53 = Octahedron(C_2, B_2, A_2)
o = false
fo: (f * o)
v11: floor((v * 10))
texto2: "Arista del cubo " + L + ""
texto1: "Velocidad de giro " + v11 + ""