Vous pouvez modifier le pas du cruseur a pour affiner votre recherche.

R(x) = If[0 ≤ x ≤ 40,(-50 * x^(2)) + (2000 * x)]
C(x) = If[0 ≤ x ≤ 40,(1 / 3 * x^(3)) + 620]
B(x) = R(x) - C(x)
a = 13 (slider from 0 to 40, step 0.1)
M: (a, C(a))
N: (a, R(a))
P: (a, B(a))
b = Tangent(M, C)
c = Tangent(P, B)
d = Tangent(N, R)
benf: y(P)
a_2 = Slope(b)
a_1 = Slope(d)
a_3 = Slope(c)
texte1: "Les points M, N et P ont tous la même abscisse a=" + a + ". 
a_1=" + a_1 + ", a_2=" + a_2 + " et a_3=" + a_3 + " sont respectivement 
les coefficients directeurs des tangentes aux courbes donnant 
la recette, le coût et le bénéfice en leur  point M, N et P. 
Pour une quantité produite et vendue a=" + a + ", le bénéfice est " + benf + ""