A = (1.58, -2.18)
B = Point(Circle[A, 7])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
d = Circle(A, 6)
e = Circle(B, 4)
D = Intersect(d, b, 2)
C = Intersect(e, c, 2)
f = Segment(D, A)
g = Segment(B, C)
E = Point(a)
h = Segment(D, E)
i = Segment(E, C)
poly1, d_1, a_1, e_1 = Polygon(A, E, D)
poly2, c_1, e_2, b_1 = Polygon(E, B, C)
Textepoly1: "Aire " + (Name[A]) + (Name[E]) + (Name[D]) + " = " + poly1
Textepoly2: "Aire " + (Name[E]) + (Name[B]) + (Name[C]) + " = " + poly2
distanceAE = Distance(A, E)
TexteAE: Name[A] + (Name[E]) + " \, = \, " + distanceAE
distanceAD = Distance(A, D)
TexteAD: Name[A] + (Name[D]) + " \, = \, " + distanceAD
distanceBC = Distance(B, C)
TexteBC: Name[B] + (Name[C]) + " \, = \, " + distanceBC
j = Segment(A, E)
k = Distance(A, E)
texte1: Name[A] + (Name[E]) + " \, = \, " + k