C = (17.0701373666485, 8.19634763739567)
B = (23.621662904890893, -0.4585624157561768)
A = (5.0024735275409045, 0.16464801017316408)
k = Circle(A, B, C)
polígono1, c, a, b = Polygon(A, B, C)
d = Line(A, B)
e = Line(A, C)
b_1 = Line(B, C)
P = Point(k)
polígono2, D, E, F = TrianguloCeviano(A, B, C, P)
f = Line(A, P)
E_b = Midpoint(B, E)
F_c = Midpoint(C, F)
g = Line(E_b, F_c)
D_a = Midpoint(E, F)
h = Circle(E_b, F_c, D_a)
J = Center(h)
polígono3, f_1, d_1, e_1 = Polygon(D, E, F)
i = OrthogonalLine(J, d_1)
D' = Mirror(D_a, i)
A' = Mirror(D', g)
K = Midpoint(B, C)
L = Midpoint(C, A)
M = Midpoint(A, B)
p = Circle(K, L, M)
j = Line(A', K)
l = Line(A, A')
B', m, n = Herramienta3(B, C, A, P)
C', q, r = Herramienta3(C, A, B, P)
polígono4, o, i'', n_1 = Polygon(A', B', C')
Q = Intersect(m, q)
s = Line(P, Q)
X_2 = TriangleCenter(A, B, C, 2)

Tool: Triangulo Ceviano (command TrianguloCeviano)
Dar ABC y P
Input: A, B, C, P
Output: polígono2, A', B', C'

d = Line(B, C)
e = Line(C, A)
f = Line(A, B)
g = Line(A, P)
h = Line(B, P)
i = Line(C, P)
A' = Intersect(d, g)
B' = Intersect(e, h)
C' = Intersect(f, i)
polígono2, f_1, d_1, e_1 = Polygon(A', B', C')

Tool: Herramienta3
Input: A, B, C, P
Output: I'', l, j

polígono2, D, E, F = TrianguloCeviano(A, B, C, P)
G = Midpoint(B, E)
H = Midpoint(C, F)
g = Line(G, H)
I = Midpoint(E, F)
h = Circle(G, H, I)
J = Center(h)
polígono3, f_1, d_1, e_1 = Polygon(D, E, F)
i = OrthogonalLine(J, d_1)
I' = Mirror(I, i)
I'' = Mirror(I', g)
K = Midpoint(B, C)
j = Line(I'', K)
l = Line(A, I'')