%n = %v s

t = -1.5 (slider from -1.5 to 2, step 0.01)
h(x) = If[(x ≥ -3) ∧ (x ≤ 0), 20, If[(x ≤ 4) ∧ (x > 0), 20 - (1.25 * x^(2))]]
f(t) = If[0 ≤ t ≤ 4, 20 - (1.25 * t^(2))]
lista1: {Polygon[(0, 0), (-5, 0), (-5, 19.5), (0, 19.5)]}
g = Segment((-3, 20), (0, 20))
v(x) = If[(x ≥ -2) ∧ (x ≤ 0), 2, If[x ≤ 2, sqrt(4 + (100 * x^(2)))]]
a = 0.1 (slider from -5 to 5, step 0.1)
A = If(t ≥ 0, ((2 * t), 20 - (5 * t^(2))), ((2 * t), 20))
k: v(x(A))
u = Vector(A, A + (0.5, 0))
w = Vector(A, A - (0, (2.5 * t)))
b = Vector(A, A + u + w)