f: y = 0
F = Point(f)
F' = Point(f)
C = (-4.7099077585305515, 10.693844940108152)
c = Hyperbola(F, F', C)
O = Midpoint(F, F')
g, h = Asymptote(c)
P = (18.09299709078148, 2.1818756418344054)
H = Midpoint(P, Mirror[P, g])
K = Midpoint(P, Mirror[P, h])
Ω = Midpoint(H, K)
k = Segment(H, K)
l = OrthogonalLine(Ω, f)
m = Line(Ω, f)
n = Segment(H, P)
p = Segment(P, K)
B = Midpoint(H, Ω)
q = Line(B, P)
M = Intersect(l, q)
N = Intersect(q, m)
I = Midpoint(M, N)
P' = Mirror(P, I)
d = Conic(O, P, H, K, P')
P_1, P_2, P_4, P_3 = Intersect(d, c)
n_1 = OrthogonalLine(P_1, Tangent[P_1, c])
n_2 = OrthogonalLine(P_2, Tangent[P_2, c])
n_3 = OrthogonalLine(P_3, Tangent[P_3, c])
n_4 = OrthogonalLine(P_4, Tangent[P_4, c])