Hyperbola
Author: Radka Hamříková

E = (0, 0)
F = (6, 0)
o_1 = Line(E, F)
o_2 = LineBisector(E, F)
S = Intersect(o_1, o_2)
T = (6, 2)
c = Hyperbola(F, E, T)
A, B = Intersect(c, o_1)
a_1 = OrthogonalLine(B, o_1)
b_1 = OrthogonalLine(A, o_1)
f = Circle(S, E)
d = Circle(S, E)
C = Intersect(d, a_1, 2)
m = Line(C, S)
D = Intersect(d, b_1, 2)
n = Line(D, S)
t = Tangent(T, c)
a = Segment(S, B)
G = Intersect(a_1, m)
e = Segment(S, G)
H = Point(m)
b = Segment(B, H)