Peq.

Med.

Gra.

SGr

Ver altura

b = 8 (slider from 4 to 15, step 0.1)
a = 11 (slider from 5.5 to 18, step 0.1)
c = 20.2 (slider from 10 to 30, step 0.1)
altura: sqrt(c^(2) - (2 * (a / 2 - b / 2)^(2)))
escala = 5 (slider from 2 to 10, step 1)
b': b / escala
B: (((-b')) / 2, b' / 2, 0)
A: (b' / 2, b' / 2, 0)
altura': altura / escala
a': a / escala
F: (((-a')) / 2, a' / 2, altura')
l = Line(F, B)
E: (a' / 2, a' / 2, altura')
i = Line(E, A)
j = OrthogonalPlane(A, i)
H: (a' / 2, ((-a')) / 2, altura')
D: (b' / 2, ((-b')) / 2, 0)
k = Line(H, D)
c': c / escala
C: (((-b')) / 2, ((-b')) / 2, 0)
base, a_1, d, c_1, b_1 = Polygon(A, D, C, B)
texto1: "escala: 1/" + (LaTeX[escala]) + ""
G: (((-a')) / 2, ((-a')) / 2, altura')
cara1, d_1, h, g, c_2 = Polygon(D, H, G, C)
cara2, a_2, e, h_1, d_2 = Polygon(A, E, H, D)
cara3, b_2, f, e_1, a_3 = Polygon(B, F, E, A)
cara4, c_3, g_1, f_1, b_3 = Polygon(C, G, F, B)
distanciaEA = Distance(E, A)
vol: (altura * ((a * a) + (b * b) + (a * b)) / 3)
texto3: "" + a + "cm"
texto4: "" + b + "cm"
texto5: "" + c + "cm"
I = Intersect(k, j)
J = Intersect(l, j)
α = Angle(J, A, I)
despliega = 0 (slider from 0 to 1, step 0.01)
cara1' = Rotate(cara1, (-((despliega * (π - α)))), k)
cara2' = Rotate(cara2, (-((despliega * (π - α)))), i)
cara1'' = Rotate(cara1', (-((despliega * (π - α)))), i)
cara4' = Rotate(cara4, (-(((-despliega) * (π - α)))), l)
β = Angle(E, A, D)
m = Line(B, A)
base' = Rotate(base, (despliega * (π - β)), m)
H' = Rotate(H, (-((despliega * (π - α)))), i)
G' = Rotate(G, (-((despliega * (π - α)))), i)
h' = Segment(H', G')
C' = Rotate(C, (-((despliega * (π - α)))), i)
D' = Rotate(D, (-((despliega * (π - α)))), i)
n = Segment(C', D')
H'_1 = Rotate(H, (-((despliega * (π - α)))), i)
D'_1 = Rotate(D, (-((despliega * (π - α)))), i)
p = Segment(H'_1, D'_1)
H'' = Rotate(H', (-((despliega * (π - α)))), p)
G'' = Rotate(G', (-((despliega * (π - α)))), p)
h'' = Segment(H'', G'')
C'' = Rotate(C', (-((despliega * (π - α)))), p)
D'' = Rotate(D', (-((despliega * (π - α)))), p)
n' = Segment(C'', D'')
q = Segment(A, C)
r = Segment(E, G)
s = OrthogonalLine(A, base)
K = Intersect(r, s)
polígono1, k_1, a_4, e_2 = Polygon(A, E, K)
γ = Angle(A, K, E)
o = false
texto6: "h = " + altura + " cm"
altura_1: sqrt(c^(2) - (2 * (a / 2 - b / 2)^(2)))
vol_1: (altura_1 * ((a * a) + (b * b) + (a * b)) / 3)
texto3_1: "" + a + "cm"
texto4_1: "" + b + "cm"
texto5_1: "" + c + "cm"
texto2_1: "Capacidad = " + (LaTeX[vol_1 / 1000]) + " \space  litros"
texto6_1: "h = " + altura_1 + " cm"
altura_2: sqrt(c^(2) - (2 * (a / 2 - b / 2)^(2)))
vol_2: (altura_2 * ((a * a) + (b * b) + (a * b)) / 3)
texto3_2: "" + a + "cm"
texto4_2: "" + b + "cm"
texto5_2: "" + c + "cm"
texto6_2: "h = " + altura_2 + " cm"
texto2: "Área \space  total = " + (LaTeX[(((4 * cara1) + base) * escala^(2))]) + " \space  cm^2"
t = Segment(E, H'')
i_1 = Segment(A, D'')
tapa, e_3, f_2, g_2, h_2 = Polygon(E, F, G, H)
j_1 = Segment(D, H)
l_1 = Segment(C, G)