nombre de rectangles

f(x) = x^(2)
liste = IterationList((10 * x), 10, 5)
a: 0
b: 1
n = SelectedElement(liste)
S = UpperSum(f, a, b, n)
d = 0.1
a_1: 1
a_2: 2
a_3: 3
a_n: n
e: n / (b - a)
f_1(x) = x^(2)
n_1 = 10 (slider from -5 to 20)
a_4: 0
b_1: 1
S_1 = UpperSum(f_1, a_4, b_1, n_1)
d_1 = 0.1
a_5: 1
a_6: 2
a_7: 3
a_8: n_1
e_1: n_1 / (b_1 - a_4)
texte1_1: "S_{" + (LaTeX[n]) + "}=\frac{" + (LaTeX[1]) + "}{" + (LaTeX[e]) + "}\times\left(\frac{" + (LaTeX[a_1]) + "}{" + (LaTeX[e]) + "}\right)^2+\frac{1}{ " + (LaTeX[e]) + "}\times\left(\frac{" + (LaTeX[a_2]) + "}{" + (LaTeX[e]) + "}\right)^2+\frac{1}{  " + (LaTeX[e]) + "}\times\left(\frac{" + (LaTeX[a_3]) + " }{" + (LaTeX[e]) + "}\right)^2+...+\frac{1}{  " + (LaTeX[e]) + "}\times\left(\frac{ " + (LaTeX[a_n]) + "}{ " + (LaTeX[e]) + "}\right)^2=" + (LaTeX[S]) + ""