A

B

C

K033

K345

L = (-2.3828666389197792, -2.2770855471977924)
M = (12.82576786706927, -3.506066113338319)
N = (8.319505791220662, 6.581816033731837)
X_{10} = TriangleCenter(L, M, N, 10)
polígono1, c, a, b = Polygon(L, M, N)
g = TriangleCurve(L, M, N, A^(2) * (a + b)^(2) * B - A * (a + b)^(2) * B^(2) + A^(2) * (a + b) * B * (-b - c) - A^(2) * (a + b) * B * (a + c) + A * (a + b) * B^(2) * (a + c) + A * (a + b) * B^(2) * (b + c) + A^(2) * (a + b) * (a + c) * C - A^(2) * (a + c)^(2) * C - (a + b) * B^(2) * (b + c) * C + A^(2) * (a + c) * (b + c) * C - B^(2) * (a + c) * (b + c) * C + B^(2) * (b + c)^(2) * C - A * (a + b) * (a + c) * C^(2) + A * (a + c)^(2) * C^(2) + (a + b) * B * (b + c) * C^(2) - A * (a + c) * (b + c) * C^(2) + B * (a + c) * (b + c) * C^(2) - B * (b + c)^(2) * C^(2) = 0)
U = Point(g)
polígono2, U_a, U_b, U_c = TrianguloAnticeviano(L, M, N, U)
P: X_{10}
R_a = Mirror(U_a, P)
R_b = Mirror(U_b, P)
R_c = Mirror(U_c, P)
polígono3, r_c, r_a, r_b = Polygon(R_a, R_b, R_c)
d = Line(L, R_a)
e = Line(M, R_b)
f = Line(N, R_c)
V = Intersect(e, f)
h = TriangleCurve(L, M, N, (a + b - c) * (A^(2) * b * (a + c) - a * B^(2) * (b + c)) * C + A * (-a + b + c) * ((a + b) * B^(2) * c - b * (a + c) * C^(2)) + B * (a - b + c) * (-A^(2) * (a + b) * c + a * (b + c) * C^(2)) = 0)
X_{37} = TriangleCenter(L, M, N, 37)
X_8 = TriangleCenter(L, M, N, 8)
X_1 = TriangleCenter(L, M, N, 1)

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: Triangulo Anticeviano (command TrianguloAnticeviano)
Dar ABC y P
Input: A, B, C, P
Output: polígono3, 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)
j = Line(B', C')
k = Line(C', A')
D = Intersect(h, k)
m = Line(A, D)
E = Intersect(m, d)
n = Line(C', E)
A'' = Intersect(g, n)
F = Intersect(g, j)
p = Line(B, F)
G = Intersect(p, e)
q = Line(C', G)
B'' = Intersect(h, q)
r = Line(C, D)
H = Intersect(r, f)
s = Line(A', H)
C'' = Intersect(i, s)
polígono3, c'', a'', b'' = Polygon(A'', B'', C'')