A = (0, 0)
B = (1, 0)
mnohouholník1, a, g, h, C = Polygon(A, B, 3)
E = Point(a)
F = Point(a)
mnohouholník2, i, j, k, l, G, H = Polygon(E, F, 4)
D = Midpoint(A, B)
m_1 = Ray(D, H)
N = Intersect(h, m_1)
n = OrthogonalLine(N, a)
K = Intersect(n, a)
mnohouholník3, c_1, q, r, s, L, M = Polygon(N, K, 4)
mnohouholník4, f, p, b, J = Polygon(K, L, 3)
O = Intersect(m_1, b)
u = Vector(N, O)
c = OrthogonalLine(O, a)
P = Intersect(c, a)
mnohouholník5, c_2, e, f_1, g_1, Q, R = Polygon(O, P, 4)
d_2 = Length(c_2)
d_1 = Length(c_1)
m = 1 (slider from 0 to 10, step 1)
t = OrthogonalLine(C, a)
I = Intersect(t, a)
v = Segment(C, I)
Vys = SurdText(v)
S_2 = SurdText(c_2)
Kvoc = SurdText(c_1 / c_2)
h_1 = Line(P, b)
S = Intersect(h_1, m_1)
i_1 = Line(S, xAxis)
j_1 = Line(S, yAxis)
T = Intersect(j_1, a)
k_1 = Line(T, h_1)
U = Intersect(k_1, m_1)
mnohouholník6, d, l_1, n_1, p_1, V, W = Polygon(S, T, 4)
q_1 = OrthogonalLine(U, xAxis)
Z = Intersect(q_1, xAxis)
mnohouholník7, r_1, s_1, t_1, a_1, A_1, B_1 = Polygon(U, Z, 4)
S_1 = SurdText(Length[c_1])
S_3 = SurdText((c_2 * c_2 / c_1))
S_4 = SurdText((d * c_2 / c_1))