Dotyčnica hyperboly z daného bodu
Author: Daniela Velichová

F_1 = (-3.386666666666673, 1.503333333333331)
F_2 = (3.0933333333333333, 1.4933333333333283)
M = (3.8133333333333335, -0.9066666666666722)
c = Hyperbola(F_1, F_2, M)
o = Line(F_1, F_2)
A, B = Intersect(c, o)
S = Midpoint(F_1, F_2)
f = Circle(S, F_1)
h = OrthogonalLine(A, o)
L, K = Intersect(f, h)
a_1 = Line(S, K)
a_2 = Line(S, L)
R = (-0.8766666666666676, 5.423333333333329)
k = Circle(R, F_2)
g = Circle(F_1, Segment[A, B])
Q_1, Q_2 = Intersect(g, k)
a = Segment(Q_1, F_2)
t_1 = OrthogonalLine(R, a)
T_1 = Intersect(c, t_1, 1.0)
d = Segment(Q_1, T_1)
b = Segment(Q_2, F_2)
t_2 = OrthogonalLine(R, b)
T_2 = Intersect(c, t_2, 1.0)
e = Segment(F_1, T_2)