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.

1

2

3

1

2

3

Recta por vértices opuestos

Recta por aristas opuestas

Recta por aristas cualesquiera

Anima punto P

r = 2.12 (slider from 1 to 3, step 0.01)
O: (0, 0, 0)
c = Circle(O, r, zAxis)
A = Point(c)
A' = Rotate(A, 90°, zAxis)
P13 = Rotate(A', 90°, zAxis)
a, B, C, P9, P1, P5, caraAA'A''B, caraABFC, caraAA'DC, caraA'A''ED, caraA''BFE, caraCDEF, aristaAB, aristaAA', aristaA'A'', aristaA''B, aristaAC, aristaBF, aristaCF, aristaCD, aristaA'D, aristaDE, aristaA''E, aristaEF = Cube(A, A', P13)
O' = Midpoint(P1, A)
P3 = Midpoint(aristaEF)
P4 = Midpoint(P3, P5)
P2 = Midpoint(P1, P3)
P11 = Midpoint(P1, P13)
P10 = Midpoint(P1, P11)
P12 = Midpoint(P11, P13)
P7 = Midpoint(P1, P9)
P8 = Midpoint(P7, P9)
P6 = Midpoint(P1, P7)
lista3: {P1, P2, P3, P4, P5, P6, P7, P8, P9, P10, P11, P12, P13}
lista3' = Mirror(lista3, O')
lista2: {P1, P2, P3, P4, P5}
lista2' = Mirror(lista2, O')
lista1: {P1}
e = Sphere(O', (1.8 * r))
lista1' = Mirror(lista1, O')
H = Point(lista1)
I = Point(lista1')
f = Line(H, I)
R, S = Intersect(f, e)
k = Segment(R, S)
caso = 1 (slider from 1 to 3, step 1)
D = Point(lista1)
E = Point(lista2)
F = Point(lista3)
G = If(caso ≟ 1, Point[lista1], caso ≟ 2, Point[lista2], caso ≟ 3, Point[lista3])
lista2'' = Mirror(lista2', O')
lista3'' = Mirror(lista3', O')
J = Point(f)
K = Point(f)
P = Point(k)
b = OrthogonalPlane(P, f)
poli, L, M, N, Q, Z, A_1, g, h, i, j, s, t = IntersectPath(b, a)
d = Distance(A, A')
texto5: "Arista = " + d + " cm"
texto6: "Área = " + (LaTeX[poli]) + " \:cm^2"
l = Perimeter(poli)
texto7: "Perímetro = " + (LaTeX[l]) + "\:cm"