a = 1 (slider from -5 to 5, step 0.1)
b = -6 (slider from -6 to 5, step 0.1)
c = 5 (slider from -5 to 5, step 0.1)
f(x) = a * x^(2) + b * x + c
X1, X2 = Intersect(f, xAxis)
tekst1: "D= \sqrt{ b²-4 a c }    =      " + (sqrt(b^(2) - 4 * a * c))
d = Line(X1, yAxis)
e = Line(X2, yAxis)
M = Intersect(f, yAxis)
szöveg1: "y=0  ⇒  " + d + "  ∨  " + e + ""
szöveg3: "x=0   ⇒  y=" + c + ""
ac: a * c
T: ((-b) / (2 * a), (4 * ac - b^(2)) / (4 * a))
Lépések = 4 (slider from 1 to 4, step 1)
szöveg2: "f(x)=" + (LaTeX[f]) + ""
szöveg4: "T(α,β) = " + T + ""