A = (14.433636363636333, 44.24272727272736)
B = (-27.94545454545454, -11.91363636363643)
C = (30.97, -11.414090909090966)
a = Segment(B, C)
b = Segment(C, A)
c = Segment(A, B)
k = Line(A, B)
i = Line(B, C)
j = Line(C, A)
α = Angle(B, A, C)
β = Angle(C, B, A)
γ = Angle(A, C, B)
A_1 = Barycenter({A, B, C}, {(2 * a), (b * sec(Angle[A, C, B] / 3)), (c * sec(Angle[C, B, A] / 3))})
B_1 = Barycenter({A, B, C}, {(a * sec(Angle[A, C, B] / 3)), (2 * b), (c * sec(Angle[B, A, C] / 3))})
C_1 = Barycenter({A, B, C}, {(a * sec(Angle[C, B, A] / 3)), (b * sec(Angle[B, A, C] / 3)), (2 * c)})
A_b = Barycenter({A, B, C}, {0, sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) + ((a * b) * sec(Angle[A, C, B] / 3)))), (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) + ((a * c) * sec(Angle[C, B, A] / 3))))})
A_c = Barycenter({A, B, C}, {0, (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) + ((a * b) * sec(Angle[A, C, B] / 3)))), sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) + ((a * c) * sec(Angle[C, B, A] / 3))))})
f = Segment(A_1, B_1)
g = Segment(B_1, C_1)
h = Segment(C_1, A_1)
l = Segment(A_1, A_b)
m = Segment(A_b, A_c)
n = Segment(A_c, A_1)
B_c = Barycenter({A, B, C}, {(-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) + ((a * b) * sec(Angle[A, C, B] / 3)))), 0, sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) + ((b * c) * sec(Angle[B, A, C] / 3))))})
B_a = Barycenter({A, B, C}, {sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) + b^(2) - c^(2) + ((a * b) * sec(Angle[A, C, B] / 3)))), 0, (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) + ((b * c) * sec(Angle[B, A, C] / 3))))})
p = Segment(B_1, B_c)
q = Segment(B_c, B_a)
r = Segment(B_a, B_1)
C_a = Barycenter({A, B, C}, {sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) + ((a * c) * sec(Angle[C, B, A] / 3)))), (-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) + ((b * c) * sec(Angle[B, A, C] / 3)))), 0})
C_b = Barycenter({A, B, C}, {(-sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c)))) + (sqrt(3) * (a^(2) - b^(2) + c^(2) + ((a * c) * sec(Angle[C, B, A] / 3)))), sqrt(((((a + b - c) * (a - b + c)) * ((-a) + b + c)) * (a + b + c))) + (sqrt(3) * ((-a^(2)) + b^(2) + c^(2) + ((b * c) * sec(Angle[B, A, C] / 3)))), 0})
s = Segment(C_1, C_a)
t = Segment(C_a, C_b)
f_1 = Segment(C_b, C_1)
D = Midpoint(C_a, B_a)
E = Midpoint(C_b, A_b)
F = Midpoint(A_c, B_c)
g_1 = Segment(D, E)
h_1 = Segment(E, F)
i_1 = Segment(F, D)
j_1 = Line(A, D)
k_1 = Line(B, E)
l_1 = Line(C, F)
X16839 = Intersect(k_1, l_1)
d = Segment(C_a, B_a)
e = Segment(C_b, A_b)
m_1 = Segment(A_c, B_c)
A_2 = Text("A_1B_1C_1 is the 1st Morley Adjunct triangle
A_1A_bA_c form an equilateral triangle on BC
D is the midpoint of BaCa.")