\text{Vous pouvez changer l'expression de la fonction f.}

f(x) = x^(2)
n = 5 (slider from 0 to 20, step 1)
pas = 0.3 (slider from 0.01 to 2, step 0.01)
liste1 = Sequence(Tangent[(h, f(h)), f], h, 0, n, pas)
liste2 = Sequence(Tangent[(h, f(h)), f], h, 0, (-n), (-pas))
a: n / pas
b: (floor(a) * 2) + 1
c: floor(a)
texte2: "\text{On a tracé " + (LaTeX[b]) + " tangentes à la courbe représentative de la fonction f.\\
Les tangentes sont construites aux points de la courbe d'abscisses ( ±  k\times" + (LaTeX[pas]) + ") \\
avec k entier compris entre 0 et " + (LaTeX[c]) + "."