a = 0.3 (slider from -5 to 5, step 0.1)
b = -2.2 (slider from -5 to 5, step 0.1)
c = 2.6 (slider from -5 to 5, step 0.1)
funkce = Function((a * (x + b)^(3)) + c, -10, 10)
derivace = Derivative(funkce)
A = Intersect(derivace, xAxis)
d = OrthogonalLine(A, xAxis)
B = Intersect(funkce, d, 1)
text1: "$ f:" + (LaTeX[funkce]) + " $"