A = (-0.01688345806313879, -1.5906503741894196)
B = (9.14311654193686, -1.6906503741894197)
C = (5.745350794264785, 4.668574708926119)
polígono1, c, a, b = Polygon(A, B, C)
X_4 = TriangleCenter(A, B, C, 4)
polígono2, A', B', C' = TrianguloCeviano(A, B, C, X_4)
g = circunferenciaEuler(B, C', X_4)
h = circunferenciaEuler(C, B', X_4)
N_{ab} = Center(g)
N_{ac} = Center(h)
d_a = EjeRadical(N_{ab}, C', N_{ac}, B')
k, N_{bc}, p, N_{ba}, d_b = Anopolis1947Ortocentro(B, C, A)
q, N_{ca}, r, N_{cb}, d_c = Anopolis1947Ortocentro(C, A, B)
X_{3574} = Intersect(d_b, d_c)
d = EjeRadical(N_{ac}, B', N_{bc}, A')
e = EjeRadical(N_{ca}, B', N_{ba}, C')
f = EjeRadical(N_{ab}, C', N_{cb}, A')
X_5 = TriangleCenter(A, B, C, 5)

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: circunferencia Euler (command circunferenciaEuler)
Dar un triángulo ABC
Input: D, E, F
Output: k

polígono2, f_1, d_1, e_1 = Polygon(D, E, F)
G = Midpoint(d_1)
H = Midpoint(e_1)
I = Midpoint(f_1)
k = Circle(G, H, I)

Tool: EjeRadical
Dar centro, punto y centro, punto
Input: A, B, C, D
Output: i

e = Circle(B, D, A)
E = Center(e)
a = Segment(A, E)
b = Segment(E, C)
B' = Mirror(B, a)
D' = Mirror(D, b)
f = Segment(A, C)
g = Line(B, B')
h = Line(D', D)
F = Intersect(g, h)
i = OrthogonalLine(F, f)

Tool: Anopolis1947 Ortocentro (command Anopolis1947Ortocentro)
Dar ABC
Input: A, B, C
Output: g, N_{ab}, h, N_{ac}, i

X_4 = TriangleCenter(A, B, C, 4)
polígono2, A', B', C' = TrianguloCeviano(A, B, C, X_4)
g = circunferenciaEuler(B, C', X_4)
h = circunferenciaEuler(C, B', X_4)
N_{ab} = Center(g)
N_{ac} = Center(h)
i = EjeRadical(N_{ab}, C', N_{ac}, B')