A = (-9, 6)
B = (9, 6)
a = Segment(A, B)
C = (9, -6)
b = Segment(B, C)
D = (-9, -6)
c = Segment(C, D)
d = Segment(D, A)
E = (-4.66, 2.6)
Vieleck1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
F = Point(a)
f = Line(E, F)
G = Point(a)
e = Circle(F, G)
H = Intersect(e, f, 1)
g = Segment(G, H)
I = Intersect(e, a, 2)
h = Circle(I, g)
J = Intersect(e, h, 2)
i = Segment(I, J)
j = Line(F, J)
K = Point(f)
L = Point(f)
u = Vector(K, L)
M = Intersect(j, b)