Mostrar la construcción

$\textbf{u}$

b = false
C = (-2.22, 2.02)
D = (-0.7983252696958998, 0.5885801648030039)
u = Vector(C, D)
A = (1.44, -0.44)
B = (5.52, 3.54)
h = Line(A, B)
Q = (7.3, 1.26)
F = (3.181185951617454, -0.9274241099830378)
G = (4.241049946565174, 4.981049946565174)
p_Q = Line(F, G)
a = Line(Q, h)
Q_1 = Intersect(p_Q, a)
P_1 = Midpoint(Q_1, Q)
c = Line(Q, u)
Q_2 = Intersect(p_Q, c)
P_2 = Midpoint(Q, Q_2)
J = Intersect(h, p_Q)
t_1 = Line(P_1, J)
d = Line(P_1, P_2)
K = Intersect(h, d)
e = Line(P_2, h)
L = Intersect(e, p_Q)
f = Line(L, K)
t_2 = Line(P_2, f)
M = Intersect(t_2, p_Q)
h_1 = Line(M, u)
O = Intersect(h, h_1)
P'_1 = Mirror(P_1, O)
P'_2 = Mirror(P_2, O)
k, L_2 = ConicaCuatroPuntosTangente(t_1, P_1, P_2, P'_1, P'_2)

Tool: Conica Cuatro Puntos Tangente (command ConicaCuatroPuntosTangente)
Dar una tangente, el punto de tangencia y tres puntos más
Input: t_P, P, P_1, P_3, P_2
Output: h, X

δ

Recta de Pascal

P = Point(t_P)
a = Line(P_2, P_3)
L = Intersect(a, t_P)
b = Line(L, P_1)
c = Line(P, P_2)
d = Line(P_3, P_1)
M = Intersect(c, d)
e = Line(M, L)
f = Line(P, P_3)
N = Intersect(e, f)
g = Line(P_2, N)
X = Intersect(b, g)
h = Conic(X, P_2, P, P_3, P_1)

Tool: Hiperbola hIp_Q (command HiperbolahIp_Q)
Dar un vector, una asintota, un punto y su polar
Input: u, h, Q, p_Q
Output: k, h_1

$\textbf{u}$

a = Line(Q, h)
Q_1 = Intersect(p_Q, a)
P_1 = Midpoint(Q_1, Q)
c = Line(Q, u)
Q_2 = Intersect(p_Q, c)
P_2 = Midpoint(Q, Q_2)
J = Intersect(h, p_Q)
t_1 = Line(P_1, J)
d = Line(P_1, P_2)
K = Intersect(h, d)
e = Line(P_2, h)
L_1 = Intersect(e, p_Q)
f = Line(L_1, K)
g = Line(P_2, f)
M = Intersect(g, p_Q)
h_1 = Line(M, u)
O = Intersect(h, h_1)
P'_1 = Mirror(P_1, O)
P'_2 = Mirror(P_2, O)
k, L = ConicaCuatroPuntosTangente(t_1, P_1, P_2, P'_1, P'_2)