Nombre de segments

Nombre maxi de segments :

Approximation de l'exponentielle
         par la méthode d'Euler.

m = 14 (slider from 1 to smax, step 1)
liste1 = Sequence((n / m, (1 + 1 / m)^(n)), n, 0, m)
f(x) = If[-2 ≤ x ≤ 2,exp(x)]
A: (0, (1 + 1 / m)^(m))
liste2 = Sequence(Segment[Element[liste1, n], Element[liste1, n + 1]], n, 1, m)
smax = 30
ChampTexte1 = Textfield(smax)
a = Segment(A, (1, y(A)))
e: y(A)