α

x0 = 0 (slider from -5 to 5)
α = 0.6981317007977318 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
b: tan(α)
v0 = 13 (slider from -5 to 20)
a: (-0.5 * 10 / ((v0 * cos(α)))^(2))
h = 1.8 (slider from -5 to 5)
c: h
f(x) = (a * x^(2)) + (b * x) + c
A, B = Root(f)
x1: x(B)
g(x) = If[x0 ≤ x ≤ x1, f(x)]
C = Extremum(f)
Text1: "f(x) = " + f + ""
i = Segment((0, h), (1, h))
m: f'(0)
k = Segment((0, h), (1, h + m))
β = Angle(i, k)
d = Circle((0, h), 1)
D = Intersect(d, k)
j = Segment((0, h), D)
E = Intersect(k, j)