Vecteurs

pas = 0.5
b_2 = 3
b_1 = -3
a = 1 (slider from -5 to 5, step 0.2)
f(x) = x^(2.0)
f_1(x) = a * f(x)
α = 2 (slider from -5 to 5, step 0.5)
β = -1 (slider from -5 to 5, step 0.5)
g(x) = a * f(x - α) + β
A = Extremum(f)
B = Extremum(g)
L1 = Sequence((i, f_1(i)), i, b_1, b_2, pas)
u = Vector(A, B)
L2 = Sequence((i + α, g(i + α)), i, b_1, b_2, pas)
vec = Sequence(Vector[Vector[Element[L1, i], Element[L2, i]]], i, 1.0, (b_2 - b_1) / pas + 1.0)
a_1 = true
b: -2.0 * a * α
c: a * α^(2.0) - β
h(x) = a * x^(2.0) + b * x + c