Cónica: dado el eje focal, una tangente y dos puntos en la circunferecia principal

eje focal

C = (-0.4, 0.98)
D_1 = (11.76, 0.96)
b = Line(C, D_1)
B = (10.3, 1.12)
A = (0.86, 4.68)
t = Line(A, B)
M = (6.14, -2.28)
N = (7.64, -0.72)
a = LineBisector(M, N)
O = Intersect(b, a)
c = Circle(O, M)
E, D = Intersect(c, t)
d = OrthogonalLine(E, t)
e = OrthogonalLine(D, t)
F' = Intersect(b, d)
F = Intersect(b, e)
S = Mirror(F, t)
f = Line(S, F')
P = Intersect(t, f)
g = Ellipse(F', F, P)
h = Hyperbola(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)