Cónica dados los vértices del eje focal y una tangente

$A$

$A'$

$t$

$O$

$J$

$I$

$F'$

$F$

$S$

$P$

A = (7.530966215032373, 0.696398802311013)
A' = (-0.04, 0.66)
B = (1.78, 6.12)
C = (10.932254455888897, -0.33777667632779623)
t = Line(B, C)
O = Midpoint(A', A)
c = Circle(O, A)
J, I = Intersect(c, t)
a = OrthogonalLine(I, t)
b = OrthogonalLine(J, t)
d = Line(A', A)
F' = Intersect(b, d)
F = Intersect(a, d)
S = Mirror(F, t)
g = Line(F', S)
P = Intersect(t, g)
e = Ellipse(F, F', P)

Tool: Conica Dos Focos Una Tangente (command ConicaDosFocosUnaTangente)
Dar los dos focos y una tangente
Input: F, F', t
Output: c, d, P

S = Mirror(F, t)
a = Line(F', S)
P = Intersect(t, a)
c = Ellipse(F, F', P)
d = Hyperbola(F, F', P)