m_s=ΔVolumen/Δcorte

INICIO

A = (1, 1)
B: (x(A) + 40, y(A))
C: (x(A), y(A) + 40)
D: (x(A) + 40, y(A) + 40)
corte_1 = 9.3 (slider from 0 to 20, step 0.05)
L: (x(C), y(C) - corte_1)
E: (x(C) + corte_1, y(C))
F: (x(D) - corte_1, y(D))
G: (x(D), y(D) - corte_1)
H: (x(B), y(B) + corte_1)
I: (x(B) - corte_1, y(B))
J: (x(A) + corte_1, y(A))
K: (x(A), y(A) + corte_1)
a = Segment(L, G)
b = Segment(K, H)
c = Segment(E, J)
d = Segment(F, I)
M = (64.38155294129824, 80.36304619265027)
e = Circle(M, Segment[J, I])
N = Point(e)
u = Vector(M, N)
O = (49.86, 1)
f = Circle(O, Segment[J, I])
g = Line(O, xAxis)
P_1 = Intersect(f, g, 2)
h = Segment(O, P_1)
O' = Translate(O, u)
P' = Translate(P_1, u)
h' = Segment(O', P')
i = Segment(O, O')
j = Segment(P_1, P')
k = Circle(O, corte_1)
l = OrthogonalLine(O, h)
m_3 = OrthogonalLine(O', h')
n = OrthogonalLine(P_1, h)
p = OrthogonalLine(P', h')
Q_1 = Intersect(k, l, 2)
q = Line(Q_1, h)
r = Line(Q_1, i)
R = Intersect(n, q)
s = Line(R, j)
S = Intersect(p, s)
T = Intersect(m_3, r)
t = Line(T, h')
a_1 = Segment(O, Q_1)
b_1 = Segment(Q_1, R)
c_1 = Segment(P_1, R)
d_1 = Segment(R, S)
e_1 = Segment(P', S)
f_1 = Segment(Q_1, T)
g_1 = Segment(T, S)
h_1 = Segment(T, O')
polígono1, q_1, r_1, p_1, o = Polygon(Q_1, R, P_1, O)
polígono2, r_2, s_1, p', p_2 = Polygon(R, S, P', P_1)
polígono3, q_2, t_1, o', o_1 = Polygon(Q_1, T, O', O)
polígono4, o_2, o'_1, p'_1, p_3 = Polygon(O, O', P', P_1)
polígono5, t_2, s_2, p'_2, o'_2 = Polygon(T, S, P', O')
U = Point(xAxis)
i_1 = OrthogonalLine(U, xAxis)
k_1 = Circle(U, corte_1)
distanciaOP = Distance(O, P_1)
TextoOP: Name[O] + (Name[P_1]) + " = " + distanciaOP
distanciaPP' = Distance(P_1, P')
distanciaP'S = Distance(P', S)
TextoP'S: Name[P'] + (Name[S]) + " = " + distanciaP'S
cajavol: (I^(2) * o)
c_2 = Circle(U, cajavol / 100)
V_3, corte = Intersect(k_1, xAxis)
Z, V = Intersect(c_2, i_1)
j_1 = OrthogonalLine(corte, xAxis)
l_1 = OrthogonalLine(V, i_1)
P = Intersect(l_1, j_1)
g_2 = Segment(F, D)
h_2 = Segment(O, Q_1)
cajavol2: cajavol / 100
volumencaja(corte) = If[110 ≤ corte ≤ 130, ((40 - (corte - 110))^(2) * (corte - 110) / 93)]
volcaja: y(V)
texto1: "" + volcaja + ""
V_1 = Point(volumencaja)
V_2 = Point(volumencaja)
m_4 = OrthogonalLine(V_1, i_1)
m_1 = OrthogonalLine(V_2, i_1)
n_1 = OrthogonalLine(V_2, m_1)
Q = Intersect(m_4, n_1)
Δcorte = Segment(V_1, Q)
ΔV = Segment(Q, V_2)
f_2 = Line(V_1, V_2)
m_s = Slope(f_2)
cambiodeV: y(V_2) - y(V_1)
texto2: "" + cambiodeV + ""
m = Slope(volumencaja)