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.

Ocultar octaedro

Truncamiento a 1/3

Simetria respecto a centros cuadrados

Simetria respecto a centros hexágonos

Reiniciar

Octaedro truncado, sólido de Kelvin

t = 0 (slider from 0 to 1 / 3, step 0.01)
O: (0, 0, 0)
L = 2.5 (slider from 1 to 3.2, step 0.1)
p = 1.1755705045849463
ar: L / p
ci = Circle(O, ar, xOyPlane)
A = Point(ci)
A' = Rotate(A, 120°, zAxis)
A'' = Rotate(A', 120°, zAxis)
a, B, C, D, caraAA'A'', caraAA''D, caraABD, caraAA'B, caraA'BC, caraA'A''C, caraA''CD, caraBCD, aristaAA'', aristaAA', aristaA'A'', aristaAD, aristaA''D, aristaAB, aristaBD, aristaA'B, aristaA'C, aristaBC, aristaA''C, aristaCD = Octahedron(A, A', A'')
O' = Midpoint(A'', B)
R: D + (t * (A - D))
R' = Mirror(R, O')
Q: D + (t * (A'' - D))
Q' = Mirror(Q, O')
P: C + (t * (A'' - C))
P' = Mirror(P, O')
N: C + (t * (A' - C))
N' = Mirror(N, O')
M: C + (t * (D - C))
M'_1 = Mirror(M, O')
K = Midpoint(aristaCD)
M' = Mirror(M, K)
M'' = Mirror(M', O')
J = Midpoint(aristaBC)
I = Midpoint(aristaBD)
H: B + (t * (A - B))
H' = Mirror(H, O')
G: B + (t * (A' - B))
hexa3, h_1, g_2, q'_2, m''_1, m'_3, p'_1 = Polygon(H, G, Q', M'', M'_1, P')
hexa6 = Mirror(hexa3, O')
G' = Mirror(G, O')
F: B + (t * (C - B))
F'_1 = Mirror(F, O')
F' = Mirror(F, J)
hexa2, g_1, f_2, f'_2, n, r'_1, q'_1 = Polygon(G, F, F', N, R', Q')
hexa5 = Mirror(hexa2, O')
F'' = Mirror(F', O')
cuad5, p', m'_1, f'', n' = Polygon(P', M'_1, F'', N')
E: B + (t * (D - B))
E'_1 = Mirror(E, O')
cuad4, h', g', f'_1, e'_1 = Polygon(H', G', F'_1, E'_1)
E' = Mirror(E, I)
hexa1, m'_2, m, f', f_1, e_1, e'_2 = Polygon(M', M, F', F, E, E')
hexa4 = Mirror(hexa1, O')
E'' = Mirror(E', O')
hexa7, e''_1, r'_2, n_1, p_1, h'_1, e'_3 = Polygon(E'', R', N, P, H', E'_1)
hexa8 = Mirror(hexa7, O')
cuad6, r', q', m'', e'' = Polygon(R', Q', M'', E'')
cuad3, m', e', r, q = Polygon(M', E', R, Q)
cuad1, e, f, g, h = Polygon(E, F, G, H)
cuad2 = Rotate(cuad1, 120°, zAxis)
lista1: {cuad1, cuad2, cuad3, cuad4, cuad5, cuad6, hexa1, hexa2, hexa3, hexa4, hexa5, hexa6, hexa7, hexa8}
i: false
lista1' = Translate(lista1, Vector[A, A])
S = Midpoint(E, M)
lista5 = Mirror(lista1', S)
T = Midpoint(E, G)
lista2 = Mirror(lista1', T)
U = Midpoint(H, R)
lista6 = Mirror(lista1', U)
V = Midpoint(E', Q)
lista3 = Mirror(lista1', V)
W = Midpoint(Q, P)
lista7 = Mirror(lista1', W)
Z = Midpoint(F', Q')
lista8 = Mirror(lista1', Z)
A_1 = Midpoint(M, N)
lista4 = Mirror(lista1', A_1)
lista5' = Mirror(lista5, O')
lista8' = Mirror(lista8, O')
lista6' = Mirror(lista6, O')
lista7' = Mirror(lista7, O')
lista2' = Mirror(lista2, O')
lista3' = Mirror(lista3, O')
lista4' = Mirror(lista4, O')
i1: false
i2: false
b = Distance(A, A')
texto1: "Arista del octaedro = " + b + " cm"
B_1 = (-10, -10)
D_1 = (-2, -10)