INICIO_CRECIMIENTO

H_1(t) = If[0 ≤ t ≤ 60, 174.521 - ((2 * (174.521 - 161.39))) / (ℯ^((0.088 * (t - 13.959))) + ℯ^((0.905 * (t - 13.959))))]
M_1(t) = If[0 ≤ t ≤ 60, 165.909 - ((2 * (160.909 - 151.92))) / (ℯ^((0.133 * (t - 12.238))) + ℯ^((1.365 * (t - 12.238))))]
t = 40.46 (slider from 0 to 60)
A = Intersect(xAxis, yAxis)
c = Circle(A, t)
B, C = Intersect(c, xAxis)
f = OrthogonalLine(C, xAxis)
P_H = Intersect(H_1, f)
P_M = Intersect(M_1, f)
F = Point(xAxis)
G = Point(xAxis)
g = OrthogonalLine(F, xAxis)
h = OrthogonalLine(G, xAxis)
i = OrthogonalLine(P_M, yAxis)
j = OrthogonalLine(P_H, yAxis)
H_2 = Intersect(g, i)
I = Intersect(h, j)
k = Segment(P_M, H_2)
l = Segment(P_H, I)
V_H(t) = If[0 ≤ t ≤ 60, Derivative[H_1]]
V_M(t) = If[0 ≤ t ≤ 60, Derivative[M_1]]
J = Intersect(V_M, V_H, (15.31467595072306, 3.99904374850596))