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.54 (slider from -1 to 1, step 10^(p))
M: (x(A) + h, f(x(A) + h))
d = Line(A, M)
p = -2 (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))
x_M: x(A) + h
y_A: f(x(A))
x_A: x(A)
y_M: f(x_M)
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}"
texte4: "\dfrac{y_M-y_A}{x_M-x_A}=\dfrac{f (" + (LaTeX[x_A]) + "+(" + (LaTeX[h]) + "))-f(" + (LaTeX[x_A]) + ")}{" + (LaTeX[x_M]) + "-" + (LaTeX[y_A]) + "}
=\dfrac{f(" + (LaTeX[x_M]) + ")-f(" + (LaTeX[x_A]) + ") }{" + (LaTeX[h]) + "}
=\dfrac{" + (LaTeX[y_M]) + "-" + (LaTeX[y_A]) + "}{" + (LaTeX[h]) + "}
=" + (LaTeX[coeff]) + ""