Author: Batmath

Impatto!

y_0 = 1.2000000000000002 (slider from 0 to 3, step 0.1)
α = 1.0122909661567112 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
v_0 = 3.9000000000000004 (slider from 0.1 to 5, step 0.1)
v0x: v_0 cos(α)
v0y: v_0 sin(α)
g = 9.81
xf: (v0y + sqrt(v0y^(2) + 2 g y_0)) / g v0x
tf: xf / v0x
c = CurveCartesian(v0x t, y_0 + v0y t - 0.5 g t^(2), t, 0, tf)
c' = Derivative(c)
u = 0 (slider from 0 to 1, step 0.025)
t: u tf
A: (0, y_0)
P: (xf, 0)
w = Vector(c'(t) / 3)
Q: (v0x t, y_0 + v0y t - 1 / 2 g t^(2))
v = Vector(Q, Q + w)