A = (3.0859882623611585, 4.366706606080563)
B = (18.30598143692159, 2.608132236144457)
C = (11.567304222960775, 12.704271448703961)
polígono1, c, a, b = Polygon(A, B, C)
P = (13.547373193713842, 6.134806241238155)
d, D0 = ConicaCircunscrita(A, B, C, P)
e = Line(B, C)
f = Line(C, A)
g = Line(A, B)
h = Tangent(A, d)
i = Tangent(B, d)
j = Tangent(C, d)
D = Intersect(e, h)
E = Intersect(f, i)
F = Intersect(g, j)
k = Polar(P, d)
l = AngularBisector(A, D, B)
m = AngularBisector(B, E, A)
n = AngularBisector(C, F, B)
A' = Intersect(m, n)
B' = Intersect(l, n)
C' = Intersect(l, m)
p = Line(A', A)
q = Line(B, B')
r = Line(C, C')
Q = Intersect(r, q)
polígono2, c', a', b' = Polygon(A', B', C')

Tool: TrianguloETC
Dar el vértice A
Input: A_{etc}
Output: B_{etc}, C_{etc}, a, polígono1

c = Circle(A_{etc}, 13)
B_{etc} = Point(c)
d = Circle(A_{etc}, 9)
e = Circle(B_{etc}, 6)
C_{etc} = Intersect(d, e, 1)
polígono1, c_{etc}, a_{etc}, b_{etc} = Polygon(A_{etc}, B_{etc}, C_{etc})
a = Line(B_{etc}, C_{etc})

Tool: Coordenadas Trilineales (command CoordenadasTrilineales)
Dar los vértices de ABC y un  punto P
Input: A, B, C, P
Output: texto2, CoordTrilineales

q_1 = Segment(B, P)
e = Line(A, C)
E_1 = Intersect(e, q_1)
d = Line(C, B)
p_1 = Segment(A, P)
D_1 = Intersect(d, p_1)
ABC, c, a, b = Polygon(A, B, C)
e_1 = OrthogonalLine(P, a)
D = Intersect(e_1, d)
p = Segment(P, D)
α = If(Defined[D_1], -p, p)
f_1 = OrthogonalLine(P, b)
g = OrthogonalLine(P, c)
f = Line(A, B)
E = Intersect(f_1, e)
F = Intersect(g, f)
r_1 = Segment(P, C)
q = Segment(P, E)
r = Segment(P, F)
F_1 = Intersect(f, r_1)
β = If(Defined[E_1], -q, q)
γ = If(Defined[F_1], -r, r)
CoordTrilineales: {α, β, γ}
texto2: "" + CoordTrilineales + ""

Tool: cociente ceviano (command cocienteceviano)
Input: A, B, C, P, Q
Output: P_Q

d = Line(A, B)
e = Line(B, C)
f = Line(A, C)
g = Line(Q, C)
h = Line(Q, B)
i = Line(Q, A)
D = Intersect(i, e)
E = Intersect(h, f)
F = Intersect(g, d)
j = Line(E, D)
l = Line(F, E)
n = Line(F, D)
I = Intersect(f, n)
p = Line(I, B)
G = Intersect(d, j)
k = Line(C, G)
H = Intersect(e, l)
m = Line(A, H)
J = Intersect(k, p)
K = Intersect(k, m)
q = Line(P, A)
r = Line(B, P)
N = Intersect(f, r)
O = Intersect(q, e)
t = Line(O, J)
a_1 = Line(N, K)
P_Q = Intersect(a_1, t)

Tool: Conica Circunscrita (command ConicaCircunscrita)
Dar ABC y el perspector P
Input: A, B, C, P
Output: d, Q

X_2 = TriangleCenter(A, B, C, 2)
Q = cocienteceviano(A, B, C, X_2, P)
B' = Mirror(B, Q)
C' = Mirror(C, Q)
d = Conic(A, B, C, B', C')