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.

Cubo

Octaedro

Poliedro dual

Intersección

Envolvente

Cuboctaedro

Dodecaedro rómbico

Cubo

Ver poliedros encajados

Oculta cubo

Oculta octaedro

Octaedro

Cubo

Octaedro

Cubo ↔ Octaedro

Longitud arista

t = 1 (slider from 1 to 2, step 0.01)
p = 1.1755705045849463
L = 2.8 (slider from 1 to 3.5, step 0.1)
ar: L / p
O: (0, 0, 0)
ci = Circle(O, ar, xOyPlane)
C1 = Point(ci)
C2 = Rotate(C1, 90°, zAxis)
C3 = Rotate(C2, 90°, zAxis)
a, C4, C5, C6, C7, C8, caraAD1D2D3, caraAD1BE, caraBCD2D1, caraCDD3D2, caraAD3DE, caraBCDE_1, aristaAD1, aristaD1D2, aristaD2D3, aristaAD3, aristaBD1, aristaAE, aristaBE_1, aristaBC_1, aristaCD2, aristaCD_1, aristaDD3, aristaDE_1 = Cube(C1, C2, C3)
O' = Midpoint(C8, C2)
t_1 = 1.7320508075688772
c = 1.4142135623730951
caso: 1
i1: false
i3: false
i4: false
j: true
e: false
e1: false
O2 = Dilate(Midpoint[C7, C5], t, O')
O3 = Dilate(Midpoint[C7, C4], t, O')
O1 = Dilate(Midpoint[C7, C2], t, O')
b, O4, O5, O6, caraABC, caraACF, caraADF, caraABD, caraBDE, caraBCE, caraCEF, caraDEF, aristaAC, aristaAB, aristaBC_2, aristaAF, aristaCF, aristaAD, aristaDF, aristaBD, aristaBE_2, aristaDE_2, aristaCE, aristaEF = Octahedron(O1, O2, O3)
M1 = Midpoint(aristaBC_1)
M2 = Midpoint(aristaCD_1)
M3 = Midpoint(aristaDE_1)
M4 = Midpoint(aristaBE_1)
M5 = Midpoint(aristaAE)
M6 = Midpoint(aristaDD3)
M7 = Midpoint(aristaCD2)
M8 = Midpoint(aristaBD1)
M10 = Midpoint(aristaD2D3)
M11 = Midpoint(aristaD1D2)
M12 = Midpoint(aristaAD1)
cua1, m1, m4, m3, m2 = Polygon(M1, M4, M3, M2)
cua3, m6_1, m2_1, m7, m10 = Polygon(M6, M2, M7, M10)
M9 = Midpoint(aristaAD3)
cua2, m3_1, m5, m9, m6 = Polygon(M3, M5, M9, M6)
cua4, m8, m1_1, m7_1, m11 = Polygon(M8, M1, M7, M11)
cua5, m5_1, m4_1, m8_1, m12 = Polygon(M5, M4, M8, M12)
cua6, m9_1, m10_1, m11_1, m12_1 = Polygon(M9, M10, M11, M12)
tri1, m7_2, m1_2, m2_2 = Polygon(M1, M2, M7)
lista1 = Sequence(Rotate[tri1, ((i * 90))°, zAxis], i, 0, 3)
lista1' = Mirror(lista1, O')
lista2: {lista1, lista1'}
listatrian = Translate(lista2, Vector[O, O])
rom1, o2, c6, o4, c5 = Polygon(O2, C6, O4, C5)
rom2, o1, c6_1, o4_1, c2 = Polygon(O1, C6, O4, C2)
A = Intersect(aristaDF, aristaEF)
rom3, c2_1, o4_2, c1, o6 = Polygon(C2, O4, C1, O6)
lista3: {rom1, rom2, rom3}
listarombos = Sequence(Rotate[lista3, ((i * 90))°, zAxis], i, 0, 3)
f = OrthogonalLine(O', caraABC)
g = OrthogonalLine(O', caraABD)
h = OrthogonalLine(O', caraADF)
B = Intersect(h, caraADF)
C = Intersect(g, caraABD)
D = Intersect(f, caraABC)
d, E, F, G, H, I, caraBCDE, caraBEIF, caraBCGF, caraCDHG, caraDEIH, caraFGHI, aristaBE, aristaBC, aristaCD, aristaDE, aristaBF, aristaEI, aristaFI, aristaFG, aristaCG, aristaGH, aristaDH, aristaHI = Cube(B, C, D)