Mostrar la construcción

A = (2.32, 6.86)
B = (2.56, -1.88)
t = Line(A, B)
C = (0.6028284151195069, 4.499545168563112)
D_1 = (13.015117508251747, 9.899530732791778)
t_1 = Line(C, D_1)
E = (0.06538909356120373, 0.9933934041113245)
F_1 = (3.92983373905186, -0.10707758765091539)
t_2 = Line(E, F_1)
I = Intersect(t, t_2)
H = Intersect(t, t_1)
f = OrthogonalLine(H, t_1)
g = OrthogonalLine(I, t_2)
F = Intersect(f, g)
D = Mirror(F, t)
d = Line(D, t)
e = Parabola(F, d)
eje = Line(D, F)
F' = Mirror(F, t_1)
G = Intersect(d, g)
h = OrthogonalLine(G, t)
i = OrthogonalLine(F', t)
J = Intersect(h, t_2)
K = Intersect(i, t_1)
a = true

Tool: Conica Punto Tangente Tangente_Punto (command ConicaPuntoTangenteTangente_Punto)
Dar el foco, dos tangentes y el punto de contacto de la última
Input: F, t, t_P, P
Output: e, g, f, F_2

P = Point(t_P)
S_1 = Mirror(F, t)
S_2 = Mirror(F, t_P)
a = Line(S_2, P)
b = LineBisector(S_1, S_2)
F_2 = Intersect(a, b)
e = Ellipse(F, F_2, P)
f = Hyperbola(F, F_2, P)
g = Parabola(F, Line[S_1, S_2])