A = (6.4, 0.86)
a_2 = 6
B = Point(Circle[A, 6])
a = Segment(A, B)
poly1, b, c, d, e, C, D = Polygon(A, B, 4)
M = Point(a)
f = Segment(A, M)
g = Circle(D, f)
N = Intersect(g, e, 1)
h = OrthogonalLine(N, e)
i = OrthogonalLine(M, a)
P = Intersect(h, i)
poly2, a_1, m, p, n = Polygon(A, M, P, N)
E: (f, poly2)
j = Segment(D, N)
texte1: "M'=(x ; f(x))=" + (LaTeX[E]) + ""