P_1 = (0.06, -0.84)
P_2 = (9.88, -1.42)
P_3 = (6.32, 4.68)
polígono1, c, a, b = Polygon(P_1, P_2, P_3)
N = (2.64, -0.54)
M = (10.58, 2.1)
d = Line(N, M)
e = Line(P_2, P_3)
f = Line(P_3, P_1)
g = Line(P_1, P_2)
D = Intersect(e, d)
E = Intersect(f, d)
F = Intersect(g, d)
M_a = Midpoint(P_2, P_3)
M_b = Midpoint(P_3, P_1)
M_c = Midpoint(P_1, P_2)
D' = Mirror(D, M_a)
N' = Mirror(N, E)
E' = Mirror(E, M_b)
F' = Mirror(F, M_c)
h = Line(F', E')
k, J, K, L, O = HiperbolaPuntoDosAsintotas(P_1, d, h)

Tool: Hiperbola Punto Dos Asintotas (command HiperbolaPuntoDosAsintotas)
Dar un punto y las dos asíntotas
Input: P, h_1, h_2
Output: p, P', P'_1, P_1, P_2

E = Intersect(h_1, h_2)
P' = Mirror(P, E)
b = Line(P, h_2)
c = Line(P', h_1)
d = Line(P, h_1)
e = Line(P', h_2)
F = Intersect(e, d)
G = Midpoint(P', F)
f = Line(P, G)
H = Intersect(b, c)
g = Line(H, G)
h = Line(P', g)
P_1 = Intersect(f, h)
P'_1 = Mirror(P_1, E)
J = Midpoint(G, F)
i = Line(P, J)
j = Line(H, i)
K = Intersect(h_2, j)
k = Line(K, P')
P_2 = Intersect(i, k)
p = Conic(P', P_1, P_2, P, P'_1)