a = -2 (slider from -5 to 5, step 0.1)
b = 1.9 (slider from -5 to 5, step 0.1)
c: x = a
d: x = b
e = -0.4 (slider from -5 to 5, step 0.1)
f = 1.5 (slider from -5 to 5, step 0.1)
g = 1.6 (slider from -5 to 5, step 0.1)
n = 3 (slider from -5 to 5, step 1)
h = Function(e * x^(n) + f * x + g, a, b)
Α = Intersect(h, c)
i = Line(Α, xAxis)
Β, Γ, B = Intersect(h, i)
j = Segment(Α, B)
M = Point(h)
k = Tangent(M, h)
l = Line(M, xAxis)
α = Slope(k)
α_1 = Slope(k)