a = 0.5 (slider from -5 to 5, step 0.1)
x_s = 2 (slider from -5 to 5, step 0.1)
y_s = -4 (slider from -5 to 5, step 0.1)
f_s(x) = (a * (x - x_s)^(2)) + y_s
SP: (x_s, y_s)
b: ((-2 * a) * x_s)
c: (a * x_s^(2)) + y_s
C: (0, c)
g(x) = (b * x) + c
x_1: x_s + sqrt(((-y_s)) / a)
x_2: x_s - sqrt(((-y_s)) / a)
X_1: (x_1, 0)
X_2: (x_2, 0)
X_s: (x_s, 0)
Y_s: (0, y_s)
f = Segment(X_s, SP)
h = Segment(SP, Y_s)
Text1: "f(x)=" + (LaTeX[a]) + "x²+(" + (LaTeX[b]) + ")x+(" + (LaTeX[c]) + ")\\
     \;\;\;\;\;\;\;\; =" + (LaTeX[a]) + "(x-(" + (LaTeX[x_s]) + "))²+" + (LaTeX[y_s]) + "\\
     \;\;\;\;\;\;\;\; =" + (LaTeX[a]) + "(x-(" + (LaTeX[x_1]) + "))(x-(" + (LaTeX[x_2]) + "))"