A = (-2.2745454545454544, -0.78)
D = Point(Circle[A, 7])
a = Segment(A, D)
b = OrthogonalLine(A, a)
c = Circle(A, 6)
B = Intersect(c, b, 2)
d = OrthogonalLine(B, b)
e = OrthogonalLine(D, a)
C = Intersect(d, e)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
M = Point(poly1)
poly2, b_2, m, f, g, E, F = Polygon(B, M, 4)
h = Line(F, E)
i = Line(M, E)
H = Intersect(h, a)
G = Intersect(i, c_1)
poly3, e_1, g_1, d_2, h_1 = Polygon(E, G, D, H)
Textepoly3: "Aire " + (Name[E]) + (Name[G]) + (Name[D]) + (Name[H]) + " = " + poly3
poly4, b_3, m_1, e_2, f_1 = Polygon(B, M, E, F)
Textepoly4: "Aire " + (Name[B]) + (Name[M]) + (Name[E]) + (Name[F]) + " = " + poly4
distanceAM = Distance(A, M)
TexteAM: Name[A] + (Name[M]) + " \, = \, " + distanceAM
A1: Area[B, M, E, F] + Area[D, H, E, G]
j = Segment(A, M)
k = Segment(M, A)
l = Segment(A, M)
n = Distance(A, M)
texte1: Name[A] + (Name[M]) + " \, = \, " + n
o = Distance(A, M)
p = Distance(A, M)
q = Distance(A, M)
texte3: "" + (LaTeX[Name[A] + (Name[M])]) + " \, = \, " + (LaTeX[q]) + ""