v_0 [m/s] :

a_{B} = 8 (slider from -5 to 10)
t_{R} = 1 (slider from -5 to 5)
v_0: 40
t_{A}: t_{R} + v_0 / a_{B}
v(t) = If[0 ≤ t ≤ t_{R}, v_0, If[t_{R} ≤ t ≤ t_{A}, v_0 - (a_{B} * (t - t_{R}))]]
Eingabefeld1 = Textfield(v_0)
s(t) = If[0 ≤ t ≤ t_{R}, (v_0 * t), If[t_{R} ≤ t ≤ t_{A}, (v_0 * t) - ((0.5 * a_{B}) * (t - t_{R})^(2))]]
s_{A}: s(t_{A})