INICIO

velocidadinicial = 11.3 (slider from 5 to 20, step 0.1)
alturainicial = 4 (slider from 2 to 5, step 0.1)
tiempo_1 = 2.617942352101915 (slider from 0 to tiempofinal, step 0.01)
h(tiempo) = alturainicial + (velocidadinicial * tiempo) - (4.9 * tiempo^(2))
A: (tiempo_1, h(tiempo_1))
B = (0.2, 0.2)
C: (x(B) + alturainicial / 2.5, y(B))
E: (x(B), y(B) + alturainicial)
tiempofinal: ((-velocidadinicial) - sqrt(velocidadinicial^(2) + ((4 * 4.9) * alturainicial))) / -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]
Tf = Intersect(h2, xAxis)
x_1 = 1.1 (slider from 0 to tiempofinal)
f(x) = alturainicial + (velocidadinicial * x) - (4.9 * x^(2))
Máx = Max(f, 0, 2.5)
b: x(Máx)
h_3(tiempo) = If[0 ≤ tiempo < b, alturainicial + (velocidadinicial * tiempo) - (4.9 * tiempo^(2))]
h_4(tiempo) = If[b < tiempo < x(Tf), alturainicial + (velocidadinicial * 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)