Cónica: dado la longitud del eje focal, la distancia focal, un foco y una tangente

$2a$

$2c$

$F$

$S$

$F_1$

$F_2$

$P_2$

$P_1$

C = (-3.72, 5.72)
D = (6, 5.8)
b_1 = Ray(C, D)
H = Point(b_1)
a = Segment(C, H)
A = Point(a)
c = Segment(C, A)
J = (6.813667609585032, -4.648069460255772)
K = (4.1047163216907085, 5.520892136140633)
t = Line(J, K)
F = (2.2490612415282274, -0.980553361065612)
S = Mirror(F, t)
e = Circle(S, a)
f = Circle(F, c)
F_1, F_2 = Intersect(f, e)
b = Line(S, F_2)
P_2 = Intersect(t, b)
k = Ellipse(F, F_2, P_2)
g = Line(S, F_1)
P_1 = Intersect(t, g)
h = Ellipse(F, F_1, P_1)

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)