C = Intersect(xAxis, yAxis)
A = Point(Ray[C, Vector[(0, 1)]])
ControlE = Point(Ray[C, Vector[(0, -1)]])
K = Point(Ray[C, Vector[(0, -1)]])
F = Point(Ray[C, Vector[(-1, 0)]])
B = Point(Ray[C, Vector[(-1, 0)]])
G = Point(Ray[C, Vector[(-1, 0)]])
f = Line(ControlE, xAxis)
g = Line(K, xAxis)
h = Line(A, B)
i = Line(A, G)
j = Line(A, F)
D = Intersect(f, h)
T = Intersect(f, i)
S = Intersect(f, j)
k = OrthogonalLine(S, f)
l = OrthogonalLine(T, f)
m = OrthogonalLine(D, f)
L = Intersect(g, m)
M = Intersect(g, l)
N = Intersect(g, k)
n = Segment(N, F)
p = Segment(M, G)
q = Segment(L, B)
N_1 = Intersect(m, xAxis)
r = Segment(N_1, C)
s = Segment(B, A)
t = Segment(G, A)
a = Segment(F, A)
b = Segment(S, F)
c = Segment(T, G)
d = Segment(D, B)
e = Segment(D, L)
f_1 = Segment(M, T)
g_1 = Segment(N, S)
h_1 = Line(N, F)
i_1 = Line(M, G)
j_1 = Line(L, B)
R = Intersect(h_1, i_1)
k_1 = Segment(B, R)
l_1 = Segment(G, R)
m_1 = Segment(F, R)
n_3 = Segment(R, C)
p_1 = Segment(C, A)
n_1 = Segment(C, ControlE)
n_2 = Segment(C, K)
s_1 = Segment(D, ControlE)
t_1 = Segment(L, K)
a_1 = Segment(N, K)
b_1 = Segment(S, ControlE)
q_1 = Segment(C, Intersect[k, xAxis])
o: n_2 / n_1
texto1: "n_2/n_1 = " + o + ""
E = Intersect(f, yAxis)
r_1 = Segment(C, Intersect[l, xAxis])