$a$

$b$

Aire

Moyenne

A = (-1.64, 1.94)
B = (1.62, 3.74)
C = (4.08, 0.62)
D = (7.22, 1.76)
E = (11, -2)
F = (14.38, 0.64)
P = Polynomial({A, B, C, D, E, F})
M1 = (-2.32, -0.06)
M2 = (15, 0)
f(x) = If[x(M1) ≤ x ≤ x(M2), P]
G = Point(xAxis)
H = Point(xAxis)
a: x(G)
b: x(H)
AA = Integral(f, a, b)
m: AA / (b - a)
moy: y = m
G1: (a, m)
H1: (b, m)
rectmoy, g, g1, h1, h = Polygon(G, G1, H1, H)
texte1: "\int_a^bf(x)dx=" + (LaTeX[AA]) + ""
texte2: "\text{Moyenne : } m=\frac{1}{b-a} \int_a^b f(x)dx=" + (LaTeX[m]) + ""
c = true
d = true