$B$

$B'$

$t$

$t'$

$P$

$P'$

La tangente dada corta 
 al eje menor

B = (2.92, 2.1)
B' = (4.38, -1.74)
P_1 = (2.773784767454281, 3.3685738484244823)
C = (8.895431881826255, 1.1483685292236627)
t = Line(P_1, C)
a = Segment(B, B')
b = OrthogonalLine(B, a)
c = OrthogonalLine(B', a)
f = LineBisector(a)
t' = Mirror(t, f)
E = Intersect(t, a)
d, D, P, P', H = ConicaCuatroTangentesPuntoContacto(b, B, t, t', c)

Tool: Conica Cuatro Tangentes Punto Contacto (command ConicaCuatroTangentesPuntoContacto)
Dar un tangente, su punto de contacto y tres tangentes más
Input: t_1, P_1, t_2, t_3, t_4
Output: h, P, P_2, P_3, P_4

P_1 = Point(t_1)
J = Intersect(t_2, t_1)
I = Intersect(t_3, t_2)
K = Intersect(t_3, t_4)
L = Intersect(t_4, t_1)
a = Line(P_1, I)
b = Line(J, K)
M = Intersect(a, b)
c = Line(L, M)
P_2 = Intersect(t_2, c)
d = Line(L, I)
O = Intersect(b, d)
e = Line(P_1, O)
P_3 = Intersect(t_3, e)
f = Line(P_1, K)
P_5 = Intersect(d, f)
g = Line(J, P_5)
P_4 = Intersect(t_4, g)
m = Line(P_1, P_3)
n = Line(P_2, P_4)
R = Midpoint(P_4, P_2)
p = Circle(R, P_2)
T = Intersect(m, n)
q = Polar(T, p)
U = Intersect(n, q)
r = Line(P_1, U)
i = Line(P_2, P_3)
V = Intersect(t_1, i)
j = Line(P_3, P_4)
W = Intersect(r, j)
k = Line(V, W)
l = Line(P_4, P_1)
Z = Intersect(k, l)
s = Line(Z, P_2)
P = Intersect(r, s)
h = Conic(P_1, P, P_2, P_3, P_4)