Hipérbola dados un foco, una asíntota y la longitud del semieje focal

$F$

$h$

$a$

$S$

$S(2a)$

$F'$

$F''$

$O'$

$O''$

$O'(a)$

$O''(a)$

F = (2.18, 0.92)
A = (-2.4, -2.88)
B = (4.46, 5.52)
h = Line(A, B)
C = (-5.809678618954719, 4.302119110100582)
D = (5.04, 4.26)
a_1 = Ray(C, D)
E = Point(a_1)
a = Segment(C, E)
S = Mirror(F, h)
c = Circle(S, 2 * a)
b = Line(S, h)
F', F'' = Intersect(c, b)
O' = Midpoint(F', F)
O'' = Midpoint(F, F'')
f = Line(F', F)
g = Line(F, F'')
d = Circle(O', a)
e = Circle(O'', a)
G, H = Intersect(d, f)
I, J = Intersect(e, g)
k = Hyperbola(F, F', G)
p = Hyperbola(F, F'', J)
h' = Mirror(h, f)
h'_1 = Mirror(h, g)

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)