Déplacer le point N le long de la courbe représentative de la fonction R à l'aide du curseur n

étape 1

étape2

Bourg_A

Bourg_B

n = 39 (slider from 0 to 50, step 1)
A = (0, 4300)
R(x) = If[0 ≤ x ≤ 50,(-15 * x) + 4300]
B = (20, 4000)
P(x) = If[0 ≤ x ≤ 50,3500 - x^(2) + (69 * x)]
N: (n, R(n))
M: (x(N), P(x(N)))
a = Segment(M, N)
T: (x(B), y(A))
b = Segment(A, T)
c = Segment(B, T)
d = false
yb: y(B)
ya: y(A)
xb: x(B)
xa: x(A)
e = false
texte2: "\text{Le coefficient directeur de la droite (AB) représentative de la fonction R est \\
a=\dfrac{y_A-y_B}{x_A-x_B}=\dfrac{" + (LaTeX[ya]) + "-" + (LaTeX[yb]) + "}{" + (LaTeX[xa]) + "-" + (LaTeX[xb]) + "}=\dfrac{-" + (LaTeX[c]) + "}{" + (LaTeX[b]) + "}=-15"
f = Segment((x(N), 0), N)
xn: x(N)
yn: y(N)
ym: y(M)
g = Segment((0, ym), M)
h = Segment((0, yn), N)
m1 = Max(ym, yn)
m2 = Min(yn, ym)
dif: m1 - m2
texte7: "\text{La différence positive entre " + (LaTeX[R]) + " \\
et " + (LaTeX[P]) + " est \\" + (LaTeX[m1]) + "-" + (LaTeX[m2]) + "=" + (LaTeX[dif]) + " pour x=" + (LaTeX[xn]) + "}"
texte5: "" + m1 + ""
texte6: "" + m2 + ""