Largo=10

Largo=10

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... m^{3
}

Volumen= ... \ m^{3}

A = Intersect(xAxis, yAxis)
B = (10.86, 6.27)
a = Ray(A, B)
C = (0, 6)
D = (10, 6)
E = (10, 4)
polígono1, a_1, c, d, e = Polygon(A, C, D, E)
t = 4.1 (slider from 0 to 20, step 0.01)
h_1: sqrt((8 / 5 * t))
F = (0, 4)
b = Segment(A, F)
G: (0, h_1)
f = OrthogonalLine(G, b)
H = Intersect(f, e)
I = Intersect(b, yAxis)
J = Intersect(b, f)
polígono2, j, a_2, h = Polygon(A, H, J)
g = Segment(F, C)
h_2: t / 5 - 2
K: (0, 4 + h_2)
i = OrthogonalLine(K, g)
L = Intersect(i, d)
M = Intersect(g, yAxis)
N = Intersect(i, g)
polígono3, f_1, e_1, l, n = Polygon(F, E, L, N)
polígono4, a_3, e_2, Largo_2, n_1 = Polygon(A, E, L, N)
k = Circle(A, 4)
O = Intersect(k, a, 1)
u = Vector(A, O)
A' = Translate(A, u)
C' = Translate(C, u)
D' = Translate(D, u)
E' = Translate(E, u)
polígono1', a', Largo_3, d', e' = Polygon(A', C', D', E')
A'_1 = Translate(A, u)
H' = Translate(H, u)
J' = Translate(J, u)
polígono2', j', a'_1, h' = Polygon(A'_1, H', J')
A'_2 = Translate(A, u)
E'_1 = Translate(E, u)
L' = Translate(L, u)
N' = Translate(N, u)
polígono4', a'_2, e'_1, l', n' = Polygon(A'_2, E'_1, L', N')
polígono5, h_3, h'_1, j'_1, Largo_2' = Polygon(H, H', J', J)
polígono6, l'_1, n'_1, n_2, l_2 = Polygon(L', N', N, L)
polígono7, a_4, o, Ancho, c_1 = Polygon(A, O, C', C)
polígono8, d_2, e_3, e'_2, d'_1 = Polygon(D, E, E', D')
polígono9, e_4, e'_3, l'_2, l_1 = Polygon(E, E', L', L)
te: (t * e)
v: (8 * t)
V: (t, v)
A1_1: "x(" + (Name[V] + ")")
B1_1: "y(" + (Name[V] + ")")
A1_2: "x(" + (Name[V] + ")")
B1_2: "y(" + (Name[V] + ")")
A1_3: "x(" + (Name[V] + ")")
B1_3: "y(" + (Name[V] + ")")
A1_4: "x(" + (Name[V] + ")")
B1_4: "y(" + (Name[V] + ")")
B1_5: "y(" + (Name[V] + ")")
A1_5: "x(" + (Name[V] + ")")
B1_6: "y(" + (Name[V] + ")")
A1_6 = Name(t)
A1_7 = Name(t)
A1_8 = Name(t)
A1_9 = Name(t)
A1_{10} = Name(t)
A1_{11} = Name(t)
A1_{12} = Name(t)
Altura = If(t ≤ 10, Segment[A, J], Segment[A, N])
A1 = Name(t)
A2 = 11.83
A3 = 11.87
A4 = 11.9
A5 = 11.93
A6 = 11.97
A7 = 12
A8 = 12.03
A9 = 12.07
A10 = 12.08
A11 = 9.3
A12 = 8.7
A13 = 8.2
A14 = 7.8
A15 = 7.5
A16 = 7.2
A17 = 6.8
A18 = 6.3
A19 = 6
A20 = 5.7
A21 = 5.3
A22 = 5.2
A23 = 5.1
A24 = 5
A25 = 4.8
A26 = 4.7
A27 = 4.5
A28 = 4.4
A29 = 4.3
A30 = 4.2
A31 = 4.1
Largo = If(t ≤ 10, Segment[J, H], Segment[L, N])
texto2_1: "tiempo=" + (LaTeX[t]) + "\ min"
texto1: "Volumen=" + (LaTeX[v]) + "\ m^{3}"
B2 = 94.64
B3 = 94.96
B4 = 95.2
B5 = 95.44
B6 = 95.76
B7 = 96
B8 = 96.24
B9 = 96.56
B10 = 96.64
B11 = 74.4
B12 = 69.6
B13 = 65.6
B14 = 62.4
B15 = 60
B16 = 57.6
B17 = 54.4
B18 = 50.4
B19 = 48
B20 = 45.6
B21 = 42.4
B22 = 41.6
B23 = 40.8
B24 = 40
B25 = 38.4
B26 = 37.6
B27 = 36
B28 = 35.2
B29 = 34.4
B30 = 33.6
B31 = 32.8