f(x)

f(x)=-x³ /50+ 2

Abscisse_A = -6.25 (slider from -20 to 20, step 0.25)
f(x) = -1.0 * x^(3.0) / 32.0 + x^(2.0) / 4.0 + x / 8.0 - 4.0
g(x) = 2.0 * f(x)
A: (Abscisse_A, -1.0 * 1.0 * 1.0 * Abscisse_A^(3.0) / 32.0 + Abscisse_A^(2.0) / 4.0 + Abscisse_A / 8.0 - 4.0)
a = OrthogonalLine(A, xAxis)
G = Point(xAxis)
I = Point(xAxis)
b = Line(G, I)
B = Intersect(g, a)
H = Intersect(a, xAxis)
c = Segment(A, H)
d1: y(B)
d2: y(A)
d: 2.0 * d1
texte1: "Ordonnée de A  = " + d2
e = Segment(B, H)
texte3: "Ordonnée de B = 2*Ordonnée de A  =   " + d1