A = (-0.9141879048294994, 4.04290604758525)
B = (7.085812095170501, 4.04290604758525)
poly3, f, g, h, i, C, D = Polygon(A, B, 4)
E = Point(poly3)
poly2, j, k, l, m, F, G = Polygon(A, E, 4)
n = Line(G, F)
H = Intersect(n, g)
p = Segment(F, H)
poly1, q, r, s, t, I_1, I = Polygon(F, H, 4)
distanceAE = Distance(A, E)
TexteAE: Name[A] + (Name[E]) + " = " + distanceAE
texte1 = LaTeX(poly1, true, true)
aireP: j^(2) + p^(2)
texte2 = LaTeX(aireP, true, true)