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.

3 rombos

Dodecaedro rómbico

Ocultar cubo

Simetria respecto a centro de rombos

panal de abejas

Celdilla

Reiniciar

p = 1.1755705045849463
L = 1.5 (slider from 1 to 2, step 0.1)
ar: L / p
O: (0, 0, 0)
ci = Circle(O, ar, xOyPlane)
V1 = Point(ci)
V2 = Rotate(V1, 90°, zAxis)
V3 = Rotate(V2, 90°, zAxis)
a, V4, V5, V6, V7, V8, caraAD1D2D3, caraAD1BE, caraBCD2D1, caraCDD3D2, caraAD3DE, caraBCDE_1, aristaAD1, aristaD1D2, aristaD2D3, aristaAD3, aristaBD1, aristaAE, aristaBE_1, aristaBC_1, aristaCD2, aristaCD_1, aristaDD3, aristaDE_1 = Cube(V1, V2, V3)
C = Midpoint(V8, V2)
C1 = Mirror(C, caraAD3DE)
C5 = Mirror(C, caraBCDE_1)
C2 = Mirror(C, caraCDD3D2)
C3 = Mirror(C, caraBCD2D1)
C4 = Mirror(C, caraAD1BE)
C6 = Mirror(C, caraAD1D2D3)
rombo1, c1, v7, c5, v8 = Polygon(C1, V7, C5, V8)
i2: false
rombo2, c1_1, v7_1, c2, v3 = Polygon(C1, V7, C2, V3)
rombo3_1, v2, c2_1, v3_1, c6 = Polygon(V2, C2, V3, C6)
lista1: {rombo1, rombo2, rombo3_1}
lista2 = Sequence(Rotate[lista1, ((i * 90))°, zAxis], i, 0, 3)
i1 = false
i: false
b = Distance(V4, V1)
texto6: "Longitud arista cubo = " + b + " cm"
i5_1: false
rombo3, v6, c5_1, v7_2, c2_2 = Polygon(V6, C5, V7, C2)
f = Line(V7, C)
g = Line(C5, f)
h = Line(C2, f)
j = Line(V8, f)
k = Line(C1, f)
c = 2.7 (slider from 0 to 5, step 0.1)
u = Vector(V8, C4)
B: V8 + (c * u)
d = OrthogonalPlane(B, j)
D = Intersect(g, d)
F = Intersect(k, d)
G = Intersect(h, d)
l = Line(V6, f)
E = Intersect(l, d)
i_1 = Line(V3, f)
A = Intersect(i_1, d)
hexa1, a_1, g_1, e, d_1, b_1, f_1 = Polygon(A, G, E, D, B, F)
cara1, a_2, v3_2, c1_2, f_2 = Polygon(A, V3, C1, F)
cara2, c2_3, v3_3, a_3, g_2 = Polygon(C2, V3, A, G)
cara3, e_1, v6_1, c2_4, g_3 = Polygon(E, V6, C2, G)
cara4, d_2, e_2, v6_2, c5_2 = Polygon(D, E, V6, C5)
cara5, b_2, d_3, c5_3, v8_1 = Polygon(B, D, C5, V8)
cara6, c1_3, v8_2, b_3, f_3 = Polygon(C1, V8, B, F)
H = Midpoint(V6, V7)
I = Midpoint(V8, V7)
J = Midpoint(V7, V3)
lista3: {cara1, cara2, cara3, cara4, cara5, cara6, rombo1, rombo2, rombo3}
celda = Translate(lista3, Vector[B, B])
celda' = Mirror(celda, H)
i4: false
celda'_1 = Mirror(celda, J)
celda'_2 = Mirror(celda, I)
celda'_3 = Mirror(celda, cara1)
celda'_4 = Mirror(celda, cara2)
celda'_5 = Mirror(celda, cara3)
celda'_6 = Mirror(celda, cara4)
celda'_7 = Mirror(celda, cara6)
celda'_8 = Mirror(celda, cara5)
i5: false
i3: false