Entre l'expression de la fonction f :

f(x) =

Fais varier l'abscisse de A.

Soit M(x_A + h , f( x_A + h ) ), fais varier h:

f(x_A+h)

f(x_A)

x_A

f(x_A+h)

h

f(x_A+h)-f(x_A)

Le coefficient directeur de la droite (AM) 
est :

f(x) = x^(2)
ChampTexte1 = Textfield(f)
x_A = 0.5 (slider from -5 to 5, step 0.1)
A: (x_A, f(x_A))
h = 1.1 (slider from -5 to 5, step 0.1)
M: (x_A + h, f(x_A + h))
a = Line(A, M)
b: y = (f'(x_A) * (x - x_A)) + f(x_A)
c = OrthogonalLine(M, xAxis)
d = OrthogonalLine(A, xAxis)
e = OrthogonalLine(M, yAxis)
g = OrthogonalLine(A, yAxis)
B = Intersect(yAxis, e)
C = Intersect(yAxis, g)
D = Intersect(xAxis, d)
E = Intersect(xAxis, c)
F = Intersect(g, c)
i = Segment(M, B)
j = Segment(F, A)
k = Segment(A, C)
l = Segment(D, A)
m = Segment(E, F)
n = Segment(F, M)
p = Segment(M, B)
texte5: "\frac{f(x_A+h)-f(x_A)}{h} = " + (LaTeX[(f(x_A + h) - f(x_A)) / h]) + ""
G: (x_A + 1, f(x_A))
q = OrthogonalLine(G, xAxis)
r = OrthogonalLine(G, yAxis)
H = Intersect(b, r)
I = Intersect(b, r)
J = Intersect(q, b)
s = Segment(H, G)
t = Segment(J, G)
texte6: "f'( " + (LaTeX[x_A]) + " ) = " + (LaTeX[t]) + ""