changer la formule de f dans la barre d'algèbre,
puis déplacer le point M sur la courbe de f
pour voir se construire la courbe de f'

f(x) = 2 * x
E = Point(f)
a = Tangent(E, f)
a_1 = Slope(a)
M: (x(E), a_1)
g(x) = f'(x)
texte1: "$ f(x) = " + (LaTeX[f]) + " $"
texte2: "$ f'(x) = " + (LaTeX[g]) + " $"
x_M: x(M)
x_E: x(E)
y_E: y(E)
aa: g(x(E))
b = OrthogonalLine(E, c_1)
A = Point(b)
c = OrthogonalLine(A, b_1)
B = Point(c)
B' = Mirror(B, b)
poly1, c_2, b_2, b', C = Polygon(B, B', 3)
d = Segment(A, E)
texte4: "" + aa + ""