Tečna hyperboly
Author: Radka Hamříková

E = (0.38, 1.1)
F = (5.38, 1.1)
o_1 = Line(E, F)
S = Midpoint(E, F)
o_2 = OrthogonalLine(S, o_1)
a = 1.5 (slider from 0 to 2.5, step 0.1)
c = Circle(S, a)
A, B = Intersect(c, o_1)
d = Hyperbola(E, F, B)
b = OrthogonalLine(A, o_1)
e = Circle(S, E)
C, D = Intersect(e, b)
n = Line(D, S)
m = Line(S, C)
G = Point(o_1)
vzdalenostAG = Distance(A, G)
f = Circle(E, vzdalenostAG)
vzdalenostBG = Distance(B, G)
g = Circle(F, vzdalenostBG)
H, T = Intersect(g, f)
h = Line(E, T)
i = Line(F, T)
t = Tangent(T, d)
j = OrthogonalLine(F, t)
P = Intersect(t, j)
v = Circle(S, a)
Q = Intersect(h, j)
q_1 = Circle(E, (2 * a))
k = OrthogonalLine(E, t)
P' = Intersect(t, k)
Q' = Intersect(k, i)
q_2 = Circle(F, (2 * a))