c = -3.4 (slider from -5 to 5, step 0.1)
a = 0.4 (slider from -5 to 5, step 0.1)
b = -2.7 (slider from -5 to 5, step 0.1)
funkce = Function(a * (x + b)^(2) + c, -10, 10)
derivace = Derivative(funkce)
A = Intersect(derivace, xAxis)
d = OrthogonalLine(A, xAxis)
B = Intersect(funkce, d)
text1: "$ f:y=" + (LaTeX[funkce]) + ""