partie A

partie B

Afficher le coefficient directeur de (AM)

f(x) = If[0 ≤ x ≤ 4,(-x^(4)) + (4 * x^(3)) + 1]
A: (1, f(1))
zoom_A = 0 (slider from 0 to 4, step 0.1)
a: 10^(zoom_A)
b = false
c = false
h = 0.0509 (slider from -1 to 1, step 10^(p))
M: (x(A) + h, f(x(A) + h))
d = Line(A, M)
p = -5 (slider from -10 to 0, step 1)
g(x, y) = (x  <  1.2) ∧ (y > 22)
texte2: "\text{Déplacer le point M sur la courbe en modifiant h \\à la souris ou avec les flèches du clavier.\\
p permet \ de définir le pas pour le curseur h.
\\Ce pas est alors égal à 10^p=10^{" + (LaTeX[p]) + "}"
e = false
coeff: (y(M) - y(A)) / (x(M) - x(A))
texte3: "" + coeff + ""
texte1: "\text{Utiliser le curseur pour zoomer sur A.\\
Attention, la fenêtre d'affichage est fixée autour de A qui ne bouge pas.\\
Vous avez zoomé " + (LaTeX[a]) + " fois}"