Author: Angel Montesdeoca
Date: 5 Noviembre 2014

Recta Euler

A = (6.9940296686456405, -3.1032157455020983)
B = (19.94030251722772, -3.585578987375419)
C = (15.595558922097688, 5.297825893088462)
X_{74} = TriangleCenter(A, B, C, 74)
d_2 = rectaEuler(A, B, C)
polígono1, c, a, b = Polygon(A, B, C)
d_c = Mirror(d_2, c)
d_b = Mirror(d_2, b)
X_{110} = Intersect(d_b, d_c)
d = Line(X_{110}, X_{74})
d_a = Mirror(d_2, a)
P = Point(d)
P_a = Mirror(P, d_a)
P_b = Mirror(P, d_b)
P_c = Mirror(P, d_c)
f = Circle(A, B, C)
g = Tangent(A, f)
h = Tangent(B, f)
i = Tangent(C, f)
polígono2, p_c, p_a, p_b = Polygon(P_a, P_b, P_c)
T_a = Intersect(h, i)
T_b = Intersect(g, i)
T_c = Intersect(g, h)
j = Line(T_a, P_a)
k = Line(T_b, P_b)
l = Line(T_c, P_c)
Q = Intersect(l, k)
p = Circle(P_a, P_b, P_c)
polígono3, f_1, d_1, e_1 = Polygon(T_a, T_b, T_c)
X_3 = TriangleCenter(A, B, C, 3)
X_{26} = TriangleCenter(A, B, C, 26)
d' = Line(X_{26}, X_{110})
q = Circle(T_a, T_b, T_c)
e = Line(Q, P)
T_1 = Trilinear(A, B, C, -a * (a^(10) - b^(10) + b^(8) * c^(2) + b^(2) * c^(8) - c^(10) - a^(8) * (b^(2) + c^(2)) + 2 * a^(4) * (b^(2) - c^(2))^(2) * (b^(2) + c^(2)) + a^(6) * (-2 * b^(4) + 5 * b^(2) * c^(2) - 2 * c^(4)) + a^(2) * (b^(2) - c^(2))^(2) * (b^(4) - b^(2) * c^(2) + c^(4))), -b * (-a^(10) + a^(8) * (b^(2) + c^(2)) + (b^(2) - c^(2))^(3) * (b^(2) + c^(2))^(2) + a^(6) * (2 * b^(4) - 3 * b^(2) * c^(2)) - 2 * a^(4) * (b^(6) + b^(4) * c^(2) - 2 * b^(2) * c^(4)) + a^(2) * (-b^(8) + 5 * b^(6) * c^(2) - 2 * b^(4) * c^(4) - 3 * b^(2) * c^(6) + c^(8))), -c * (-a^(10) + a^(8) * (b^(2) + c^(2)) - (b^(2) - c^(2))^(3) * (b^(2) + c^(2))^(2) + a^(6) * (-3 * b^(2) * c^(2) + 2 * c^(4)) + a^(4) * (4 * b^(4) * c^(2) - 2 * b^(2) * c^(4) - 2 * c^(6)) + a^(2) * (b^(8) - 3 * b^(6) * c^(2) - 2 * b^(4) * c^(4) + 5 * b^(2) * c^(6) - c^(8))))

Tool: rectaEuler
Dar los vértices de un triángulo
Input: D, E, F
Output: m

G = TriangleCenter(D, E, F, 4)
H = TriangleCenter(D, E, F, 3)
m = Line(H, G)