Plantilla 2

Esta plantilla permite construir poliedros regulares controlando valor de arista o radio del poliedro.
Si RA=0, el valor que muestra L es el radio. SI RA=1 el valor de L es la arista.

Borra el cubo representado y construye el poliedro que se desee.

Arista

Animación del corte

Tetraedro truncado

Tetraedro

Octaedro

Detener la animación en:

t = 0.333 (slider from 0 to 0.5, step 0.001)
O: (0, 0, 0)
L = 5.5 (slider from 1 to 7, step 0.1)
n = 3 (slider from 3 to 5, step 1)
c = 1.4142135623730951
t_4 = 1.7320508075688772
p = 1.1755705045849463
ar = If(n ≟ 3, L / t_4, If[n ≟ 4, L / c, If[n ≟ 5, L / p]])
RA = 0 (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)
P04, B, caraAA'A'', caraAA''B, caraAA'B, caraA'A''B, aristaAA'', aristaAA', aristaA'A'', aristaAB, aristaA''B, aristaA'B = Tetrahedron(A, A', A'')
v = 1 (slider from -2 to 2, step 0.2)
b = Distance(A, A')
arista = Distance(A, A')
radio = Distance(O, A'')
f = Segment(O, B)
C = Midpoint(aristaA''B)
D = Midpoint(aristaAB)
g = Segment(A, C)
h = Segment(A'', D)
E = Intersect(g, h)
i = Segment(A', E)
F = Intersect(f, i)
A0: A + ((B - A) * t)
a = Sphere(F, A0)
G, H = Intersect(aristaAB, a)
I, J = Intersect(aristaA''B, a)
K, M = Intersect(aristaAA'', a)
N, P = Intersect(aristaAA', a)
Q, R = Intersect(aristaA'B, a)
S, T = Intersect(aristaA'A'', a)
polígono1, s, t_1, i_1, j, q, r = Polygon(S, T, I, J, Q, R)
polígono2, k, m, h_1, g_1, j_1, i_2 = Polygon(K, M, H, G, J, I)
polígono3, n_1, p_1, r_1, q_1, g_2, h_2 = Polygon(N, P, R, Q, G, H)
polígono4, m_1, k_1, t_2, s_1, p_2, n_2 = Polygon(M, K, T, S, P, N)
t1, g_3, q_2, j_2 = Polygon(Q, J, G)
t2, r_2, p_3, s_2 = Polygon(P, S, R)
t3, i_3, t_3, k_2 = Polygon(T, K, I)
t4, n_3, m_2, h_3 = Polygon(M, H, N)
o1 = 0 (slider from 0 to 1, step 1)
v5: (5 * v)
texto2: "Velocidad de giro " + v5 + ""
texto1: "Arista del tetraedro " + L + ""