\vec{v}_1

\vec{v}_2

O = Intersect(xAxis, yAxis)
l2 = Sequence(Segment[(i, 0), (i, 5)], i, 1, 5)
l1 = Sequence(Segment[(0, i), (5, i)], i, 1, 5)
G_1: (1, 0)
G_2: (6, 0)
G_3: (0, 1)
G_4: (0, 5)
gi = Vector(G_1, G_2)
e1 = Vector(O, G_1)
e2 = Vector(O, G_3)
gi2 = Segment(G_4, G_3)
A1: 5
B1: 7
A2: -2
B2: 8
A4: 3
B4: -4
A5: 4
B5: 3
A7: 6
B7: 4
A8: -2
B8: 15
A10: -3
B10: 4
A11: 4
B11: 3
A13: 1
B13: 1 / 2
A14: 0
B14: 3 / 2
A16: 1
A17: 1
B17: 1 / 2
B16: 1 / 2
A19: 3 / 2
B19: 0
A20: 0
B20: 3 / 2
A22: 1
B22: 1 / 2
A23: 0
m1: {{A1, B1}, {A2, B2}}
m2: {{A4, B4}, {A5, B5}}
m3: {{A7, B7}, {A8, B8}}
m4: {{A10, B10}, {A11, B11}}
m5: {{A13, B13}, {A14, B14}}
m6: {{A16, B16}, {A17, B17}}
m7: {{A19, B19}, {A20, B20}}
B23: 1
m8: {{A22, B22}, {A23, B23}}
GB2: (m7 * Vector[(0, 5)])
GB1: (m7 * Vector[(6, 0)])
E1': (m7 * Vector[(1, 0)])
E2': (m7 * Vector[(0, 1)])
e1' = Vector(O, E1')
e2' = Vector(O, E2')
g1 = Vector(E1', GB1)
A: (1, 4)
g = Segment(E2', GB2)
A': (m7 * Vector[A])
u = Vector(O, A)
B: (4, 3)
D: (2, 2)
C: (4, 0)
a = Vector(E1', C)
C': (m7 * Vector[C])
b = Vector(C, C')
D': (m7 * Vector[D])
f = Line(O, C)
B': (m7 * Vector[B])
c = Vector(D, D')
h = Line(O, D')
i = Line(A, A')
j = Line(B, B')
q = Segment(A, A')
r = Segment(B, B')
E = Point(a)
γ = Angle(D', E, D)
l3 = Sequence(Segment[(m7 * Vector[(0, i)]), (m7 * Vector[(5, i)])], i, 1, 5)
F = Point(gi2)
w = Vector(E2', F)
l4 = Sequence(Segment[(m7 * Vector[(i, 0)]), (m7 * Vector[(i, 5)])], i, 1, 5)
d = Vector(O, D)
v = Vector(A, A')
e = Vector(O, B)
k = Vector(B, B')
d1, a_1, d_1, b_1 = Polygon(D, B, A)
d2, l, m, n = Polygon(A', D', B')
G = (6.715, -2.32)
H = (8.265, -2.32)