X = (0, 0)
Y = (11.1, 0)
Z = (0, 6.36)
B = (7.3967619278505055, 5.995378087467211)
C = (9.393723923704744, 5.014013955684128)
D = (10.911415040553967, 2.4921363612182987)
A = (6.0958838276940295, 5.789976292442844)
f = Polynomial({A, B, C, D})
g = Function(f, 6.1, 11.1)
a = Integral(f, 6.1, 11.1)
E = Point(yAxis)
F = (6.954503419955302, 4.2468278423927615)
G = (8.75112404863754, 4.1703759045668525)
H = (8.75112404863754, 3.329404588481852)
I = (6.954503419955302, 3.3867435418512835)
poly1, f_1, g_1, h, i = Polygon(F, G, H, I)
J = (6.954503419955302, 2.1443995521802606)
K = (8.712898077814513, 2.1443995521802606)
L = (8.712898077814513, 1.3416542050082148)
M = (6.954503419955302, 1.3225412205517375)
poly2, j, k, l, m = Polygon(J, K, L, M)
b = Line(E, A)
c = Integral(-(x(b) / y(b)) * x - z(b) / y(b), 0, 1.1)
N = (9.553869435921102, 2.220851490006171)
O = (10.337501837793145, 2.2017385055496934)
P = Point(xAxis)
Q = Point(xAxis)
poly3, n, o, p, q = Polygon(N, O, P, Q)
Textepoly1: "Aire de  " + (Name[F]) + (Name[G]) + (Name[H]) + (Name[I]) + " = " + poly1
Textepoly2: "Aire de  " + (Name[J]) + (Name[K]) + (Name[L]) + (Name[M]) + " = " + poly2
Textepoly3: "Aire de  " + (Name[N]) + (Name[O]) + (Name[P]) + (Name[Q]) + " = " + poly3
texte1: "Aire partie verte = " + a + ""
texte2: "Aire partie violette = " + c + ""
r = Function(-(x(b) / y(b)) * x - z(b) / y(b), 0, 1.1)