(H)

(L)

K389

Animar P o Q

A = (-6.690012630506409, -4.591682975408666)
B = (9.31590718202296, -4.476636128701542)
C = (4.477902641106901, 5.046380889134326)
d = Cubic(A, B, C, 389)
X_3 = TriangleCenter(A, B, C, 3)
polígono1, c, a, b = Polygon(A, B, C)
P = Point(d)
m = Line(P, X_3)
polígono2, P_a, P_b, P_c = TrianguloPedal(A, B, C, P)
polígono3, f, d_1, e = Polygon(P_a, P_b, P_c)
Q = Point(m)
polígono4, Q_a, Q_b, Q_c = TrianguloPedal(A, B, C, Q)
polígono5, i, g, h = Polygon(Q_a, Q_b, Q_c)
k = OrthogonalLine(Q_b, e)
l = OrthogonalLine(Q_c, f)
X = Intersect(k, l)
n = OrthogonalLine(P_a, g)
p = OrthogonalLine(P_b, h)
q = OrthogonalLine(P_c, i)
Y = Intersect(p, q)
H_P = TriangleCenter(P_a, P_b, P_c, 4)
r = Conic(P_a, P_c, P_b, Y, H_P)
j = Line(H_P, X_3)
D = SegundoPuntoRectaConica(H_P, P_a, P_c, P_b, Y, j)
P' = Mirror(P, X_3)
s = OrthogonalLine(Q_a, d_1)
X_{24} = TriangleCenter(A, B, C, 24)
X_{64} = TriangleCenter(A, B, C, 64)
X_{155} = TriangleCenter(A, B, C, 155)
X_{2353} = TriangleCenter(A, B, C, 2353)
X_{3053} = TriangleCenter(A, B, C, 3053)
X_{960} = TriangleCenter(A, B, C, 960)
t = Line(X_3, X_{960})
X_{104} = TriangleCenter(A, B, C, 104)
a_1 = Line(X_{24}, X_{104})
c_1 = Circle(X_3, C)
b_1 = Tangent(C, c_1)
e_1 = Tangent(B, c_1)
f_1 = Tangent(A, c_1)
T_b = Intersect(b_1, f_1)
T_a = Intersect(e_1, b_1)
T_c = Intersect(f_1, e_1)

Tool: Triangulo Pedal (command TrianguloPedal)
Dar ABC y P
Input: A, B, C, E
Output: polígono2, F, G, H

polígono1, c, a, b = Polygon(A, B, C)
e = OrthogonalLine(E, a)
f = OrthogonalLine(E, b)
g = OrthogonalLine(E, c)
h = Line(B, C)
i = Line(C, A)
j = Line(A, B)
F = Intersect(e, h)
G = Intersect(i, f)
H = Intersect(j, g)
polígono2, h_1, f_1, g_1 = Polygon(F, G, H)

Tool: Segundo Punto Recta Conica (command SegundoPuntoRectaConica)
Dar ABCDE y recta por A
Input: A0, B0, C0, D0, E0, b
Output: A'

e = Line(A0, C0)
f = Line(B0, E0)
P0 = Intersect(e, f)
g = Line(B0, D0)
Q0 = Intersect(b, g)
h = Line(C0, D0)
i = Line(P0, Q0)
R0 = Intersect(h, i)
j = Line(E0, R0)
A' = Intersect(b, j)