INICIO

m_s=ΔAltura/Δtiempo

v_0 = 11.4 (slider from 5 to 20, step 0.1)
h_0 = 4.1 (slider from 2 to 5, step 0.1)
t = 2.6431034277782284 (slider from 0 to tiempofinal, step 0.01)
h(tiempo) = h_0 + (v_0 * tiempo) - (4.9 * tiempo^(2))
A: (t, h(t))
B = (0.2, 0.2)
C: (x(B) + h_0 / 2.5, y(B))
E: (x(B), y(B) + h_0)
tiempofinal: ((-v_0) - sqrt(v_0^(2) + ((4 * 4.9) * h_0))) / -9.8
D: (x(C) + 0.25, 7.17513)
a = OrthogonalLine(D, xAxis)
F = Intersect(xAxis, yAxis)
c = Circle(F, t)
G, tiempo = Intersect(c, xAxis)
h2(tiempo) = If[0 ≤ tiempo ≤ tiempofinal, h(tiempo)]
Tf = Intersect(h2, xAxis)
x_1 = 1.1 (slider from 0 to tiempofinal)
f(x) = h_0 + (v_0 * x) - (4.9 * x^(2))
Máx = Max(f, 0, 2.5)
b: x(Máx)
h_3(tiempo) = If[0 ≤ tiempo < b, h_0 + (v_0 * tiempo) - (4.9 * tiempo^(2))]
h_4(tiempo) = If[b < tiempo < x(Tf), h_0 + (v_0 * tiempo) - (4.9 * tiempo^(2))]
g = OrthogonalLine(tiempo, xAxis)
i = OrthogonalLine(tiempo, xAxis)
P = Intersect(h, i)
j = Segment(tiempo, P)
k = OrthogonalLine(P, yAxis)
Altura = Intersect(yAxis, k)
l = Segment(Altura, P)
A_1 = Point(h)
A_2 = Point(h)
m = OrthogonalLine(A_1, yAxis)
n = OrthogonalLine(A_2, xAxis)
Secante = Line(A_1, A_2)
m_S = Slope(Secante)
H = Intersect(m, n)
Δtiempo = Segment(A_1, H)
ΔAltura = Segment(H, A_2)