C_f

Quand on fait tendre $h$ vers 0,
la corde $(AB)$ se rapproche de la tangente à $C_f$ en $x=x_A$

f(x) = (5 * sin(x / 5))
h_1 = 0 (slider from -3 to 3, step 0.1)
a = 5.237259496755359
A: (a, f(a))
b = Segment((a, 0), (a, f(a)))
c = Segment((0, f(a)), (a, f(a)))
B: (a + h_1, f(a + h_1))
corde = Line(A, B)
g = Derivative(f)
tangente(x) = (g(a) * (x - a)) + f(a)
x_B: (x(B), 0)
x_A: (x(A), 0)
y_A: (0, y(A))
y_B: (0, y(B))
G: (x(B), 1)
H: (x(A), 1)
h = Vector(G, H)
i = Segment(y_B, B)
j = Segment(B, x_B)