f(x) = a x^3 + b x^2 + c x + d

d = 2 (slider from -5 to 5, step 0.1)
a = 0.9000000000000004 (slider from -5 to 5, step 0.1)
b = 0 (slider from -5 to 5, step 0.1)
c = -2 (slider from -5 to 5, step 0.1)
f(x) = a * x^(3.0) + b * x^(2.0) + c * x + d
I = TurningPoint(f)
f'' = Derivative(f, 2.0)
GY_1, GY_2, GY_3 = Root(f)
SZE_1, SZE_2 = Extremum(f)
f' = Derivative(f)
a_1 = Segment(SZE_1, (x(SZE_1), 0.0))
b_1 = Segment(SZE_2, (x(SZE_2), 0.0))
c_1 = Segment(I, (x(I), 0.0))
T2: "f(x) = " + (Polynomial[f])