(I)

(II)

(III)

(IV)

(V)

(VI)

(VII)

B = (1.4, -0.92)
E = (-8.4, 1.52)
G = Point(Ray[B + (0, 1), Vector[(0, 1)]])
Q = (-7.02, 4.46)
D_1 = Mirror(B, G)
C_1 = Midpoint(G, B)
c = Circle(C_1, G)
A = Point(c)
η = Angle(A, G, D_1)
h = Segment(B, A)
j = Line(G, h)
N_1 = Intersect(c, j, 2)
g = Line(B, G)
F_1 = Rotate(Q, (-η), E)
k = Line(E, F_1)
N_2 = Mirror(N_1, G)
γ = Angle(N_2, G, D_1)
Q' = Rotate(Q, (-γ), E)
f = Segment(E, Q)
i = Segment(A, G)
β = Angle(Q, E, F_1)
l = Line(Q, k)
m = Line(E, Q')
M = Intersect(l, m)
H_1 = Point(m)
δ = Angle(Q', E, Q)
n = Line(Q, m)
K = Intersect(k, n)
distanciaEQ = Distance(E, Q)
g_1 = Segment(E, M)
h_1 = Segment(M, Q)
C_2 = Point(m)
p = Line(C_2, K)
D_2 = Intersect(l, p)
q = Line(D_2, n)
r = OrthogonalLine(C_2, n)
F_2 = Intersect(q, r)
lugar1 = Locus(F_2, C_2)
d = Circle(M, Distance[B, G])
a = LocusEquation(F_2, C_2)
F'_2 = Mirror(F_2, K)
M' = Mirror(M, K)
F'_1 = Mirror(F_2, AngularBisector[Line[K, Q], Line[K, F_1]])
e = Conic(F'_1, M, F_2, M', F'_2)
C' = If(γ ≥ 45°, Intersect[d, e, 1], Intersect[d, e, 2])
C = If(γ > 45°, Intersect[d, e, 2], Intersect[d, e, 1])
s = Line(M, C)
O = Intersect(n, s)
L = Intersect(s, k)
t = Segment(M, O)
b = Segment(L, C)
f_1 = Line(Q, s)
F = Intersect(f_1, k)
Y = Intersect(f_1, m)
ε = Angle(Q, F, E)
D_3 = If(x(A) ≥ x(B), Rotate[G, (-ε), A], Rotate[G, ε, A])
i_1 = Line(A, D_3)
N = Intersect(j, i_1)
D = Intersect(g, i_1)
ζ = Angle(D, A, G)
θ = Angle(F, E, Q)
H = Intersect(c, i_1, 1)
j_1 = Segment(F, Q)
k_1 = Segment(L, O)
l_1 = Segment(A, D)
m_1 = Line(M, C')
L' = Intersect(k, m_1)
O' = Intersect(n, m_1)
n_1 = Line(Q, m_1)
Y' = Intersect(m, n_1)
F' = Intersect(n_1, k)
I = If(x(A) ≥ x(B), Rotate[G, (-Angle[E, F', Q]), A], Rotate[G, Angle[E, F', Q], A])
p_1 = Line(A, I)
D' = Intersect(g, p_1)
q_1 = Segment(D', A)
o = false
u = false
v = false
w = false
a_1 = false
b_1 = false
c_1 = false