G

g = (-11.172536578247724, 2.982607908453842)
n = (-13.259152059612966, 2.364351469530806)
p = Point(Ray[n, n + (1, 0)])
m = Rotate(p, 60°, n)
m' = Intersect(Line[m, g], Line[n, p])
kg: (-AffineRatio[g, m', m])
aM: 1 / (1 + kg)
km: (-AffineRatio[m', n, p])
aP: kg / (((1 + kg) * (1 + km)))
aN: (kg * km / (((1 + kg) * (1 + km))))
F = (-1.7441258846714576, 1.4369668111462526)
C = (-2.3193349598935926, 3.795025265047378)
B = Point(xAxis)
cA = Circle(C, F, B)
M = Point(cA)
mn = Line(M, B)
mn_{1} = Line(C, M)
A = Point(xAxis)
cB = Circle(C, F, A)
N = Mirror(C, OrthogonalLine[Center[cB], mn_{1}])
np = Line(N, A)
P = Intersect(np, mn)
G: (aM * M) + (aN * N) + (aP * P)
mg = Line(M, G)
ac = Line(C, A)
ab = Line(A, B)
bc = Line(B, C)
cC = Circle(A, F, B)
AC = Segment(C, A)
BC = Segment(B, C)
AB = Segment(A, B)
MN = Segment(M, N)
NP = Segment(N, P)
mp = Segment(P, M)
smn = Segment(m, n)
snp = Segment(n, p)
smp = Segment(p, m)
n' = Intersect(Line[n, g], Line[m, p])
p' = Intersect(Line[p, g], Line[m, n])
mm' = Segment(m, m')
nn' = Segment(n, n')
pp' = Segment(p, p')
mn' = Segment(m, n')
pm' = Segment(p, m')
np' = Segment(n, p')
gn' = Segment(g, n')
gm' = Segment(g, m')
gp' = Segment(g, p')
M' = Intersect(np, mg)
texte1: "G = " + aM + "M + " + aN + "N + " + aP + "P"
g_0: (m + n + p) / 3
ng = Line(N, G)
pg = Line(P, G)
N' = Intersect(ng, mn)
P' = Intersect(pg, mn_{1})
I = Mirror(M, OrthogonalLine[Center[cA], mg])
J = Mirror(N, OrthogonalLine[Center[cB], ng])
K = Mirror(P, OrthogonalLine[Center[cC], pg])
cG = Circle(J, I, K)