INICIO

m_t=dAltura/dtiempo

m_t=dtAltura/dtiempo

(tiempo, dAltura/dtiempo)

(tiempo,dAltura/dtiempo)

v_0 = 11.4 (slider from 5 to 20, step 0.1)
h_0 = 3.7 (slider from 2 to 5, step 0.1)
tiempo_1 = 1.25 (slider from 0 to tiempofinal, step 0.01)
h(tiempo) = h_0 + (v_0 * tiempo) - (4.9 * tiempo^(2))
A: (tiempo_1, h(tiempo_1))
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, tiempo_1)
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)
m_1 = Tangent(P, h_4)
m_T = Slope(m_1)
m_3 = Tangent(P, h_3)
m_T1 = Slope(m_3)
f1(x) = If[0 ≤ x < x(Máx), h_0 + (v_0 * x) - (4.9 * x^(2))]
tf = 1 (slider from -5 to 5)
alturainical = 1 (slider from -5 to 5)
f2(x) = If[x(Máx) < x < x(Tf), h_0 + (v_0 * x) - (4.9 * x^(2))]
v1(x) = If[0 ≤ x < x(Máx), v_0 - (9.8 * x)]
v2(x) = If[x(Máx) < x ≤ (x * tf), v_0 - (9.8 * x)]
P_m = Intersect(v1, i)
J = Intersect(h_4, i)
P_η = Intersect(v2, i)