Cas où AB = 8

Cas où AB = 7

A = (0, 0)
B = (8, 0)
a = Segment(A, B)
M = Point(a)
poly1, b, c, d, e, C, D = Polygon(A, M, 4)
poly2, f, g, h, i, E, F = Polygon(M, B, 4)
totale: poly1 + poly2
texte2: "aire(AMCD)=" + poly1 + ""
texte1: "aire totale = " + totale + ""
texte3: "aire(MBEF)=" + poly2 + ""
distanceAM = Distance(A, M)
Midpoint(A, M)
TexteAM: "" + (LaTeX[Name[A] + (Name[M])]) + " \, = \, " + (LaTeX[distanceAM]) + ""