g(x)=a(x-n)(x-r)

a = 1 (slider from -5 to 5, step 0.1)
r = 1 (slider from -10 to 10, step 0.01)
n = 3 (slider from -10 to 10, step 0.01)
g(x) = a * (x - n) * (x - r)
text6: "g(x)=" + (LaTeX[g]) + ""
A = Extremum(g)
B, C = Intersect(g, xAxis)