A = Intersect(xAxis, yAxis)
B = Point(xAxis)
a = OrthogonalLine(B, xAxis)
D = Point(yAxis)
b = OrthogonalLine(D, yAxis)
C = Intersect(b, a)
poly1, a_1, b_1, c, d = Polygon(A, B, C, D)
e = Segment(A, B)
M = Point(e)
distanceAM = Distance(A, M)
TexteAM: "\overline{" + (Name[A]) + (Name[M]) + "} \, = \, " + distanceAM
f = Circle(D, distanceAM)
E = Intersect(d, yAxis)
N, J = Intersect(f, d)
poly2, n, m, c_1 = Polygon(M, C, N)
Textepoly2: "Aire " + (Name[M]) + (Name[C]) + (Name[N]) + " = " + poly2
S = (18.518631993511928, 8.027524669070962)
g = OrthogonalLine(S, xAxis)
h = OrthogonalLine(S, g)
k = Circle(S, distanceAM)
F, G = Intersect(k, h)
p = Circle(S, poly2)
j = OrthogonalLine(F, h)
H, I = Intersect(p, g)
i = OrthogonalLine(I, g)
K = Intersect(i, j)
l = Segment(I, K)
q = Segment(K, F)