A: (342549133 / 30368338, sqrt(68143844781297815) / 30368338)
B: (0, 0)
C: (197 / 13, 0)
a = Segment(B, C)
b = Segment(C, A)
c = Segment(A, B)
AB = Line(A, B)
BC = Line(B, C)
CA = Line(C, A)
aa: acosd(((-a^(2)) + b^(2) + c^(2)) / (((2 * b) * c)))
bb: acosd((a^(2) - b^(2) + c^(2)) / (((2 * a) * c)))
cc: acosd((a^(2) + b^(2) - c^(2)) / (((2 * a) * b)))
w1b: (((1 + cos(aa / 2)) * (1 + cos(cc / 2)))) / (1 + cos(bb / 2))
w1c: (((1 + cos(aa / 2)) * (1 + cos(bb / 2)))) / (1 + cos(cc / 2))
w1a: (((1 + cos(bb / 2)) * (1 + cos(cc / 2)))) / (1 + cos(aa / 2))
Oa = Barycenter({A, B, C}, {((2 * a) * (-1 + (2 * w1a))), (2 * b), (2 * c)})
Ob = Barycenter({A, B, C}, {(2 * a), ((2 * b) * (-1 + (2 * w1b))), (2 * c)})
Oc = Barycenter({A, B, C}, {(2 * a), (2 * b), ((2 * c) * (-1 + (2 * w1c)))})
Ab = Barycenter({A, B, C}, {((a + b - c) * ((-a) + b + c)) - (((4 * a) * c) * w1a), ((a - b - c) * (a + b + c)), 0})
Bc = Barycenter({A, B, C}, {0, ((a - b + c) * ((-a) + b + c)) - (((4 * a) * b) * w1b), (((-a) + b - c) * (a + b + c))})
Ca = Barycenter({A, B, C}, {(((-a) - b + c) * (a + b + c)), 0, ((a + b - c) * (a - b + c)) - (((4 * b) * c) * w1c)})
d = Circle(Oa, Ab)
e = Circle(Ob, Bc)
f = Circle(Oc, Ca)
Ba = Barycenter({A, B, C}, {(((-a) + b - c) * (a + b + c)), ((a + b - c) * (a - b + c)) - (((4 * b) * c) * w1b), 0})
Ac = Barycenter({A, B, C}, {((a - b + c) * ((-a) + b + c)) - (((4 * a) * b) * w1a), 0, ((a - b - c) * (a + b + c))})
Cb = Barycenter({A, B, C}, {0, (((-a) - b + c) * (a + b + c)), ((a + b - c) * ((-a) + b + c)) - (((4 * a) * c) * w1c)})
g = Line(Ab, Ac)
h = Line(Ba, Bc)
i = Line(Ca, Cb)
A2 = Intersect(h, i)
B2 = Intersect(g, i)
C2 = Intersect(g, h)
A1 = Barycenter({A, B, C}, {0, a + b - c, a - b + c})
B1 = Barycenter({A, B, C}, {(-a) - b + c, 0, a - b - c})
C1 = Barycenter({A, B, C}, {(-a) + b - c, a - b - c, 0})
j = Segment(B1, C1)
k = Segment(C1, A1)
l = Segment(A1, B1)
m = Line(A1, A2)
n = Line(B1, B2)
p = Line(C1, C2)
X46891 = Barycenter({A, B, C}, {1 / (-1 + cot(aa / 4)), 1 / (-1 + cot(bb / 4)), 1 / (-1 + cot(cc / 4))})