Beweeg punt E

AB=10
AD=BC
DC//AB

B = Point(xAxis)
C = (5, 3)
D = (3, 3)
A = (-1, 0)
poly1, a, b, c, d = Polygon(A, B, C, D)
E = Point(a)
e = OrthogonalLine(E, a)
H = Intersect(e, d)
f = OrthogonalLine(H, yAxis)
G = Intersect(f, b)
g = OrthogonalLine(G, a)
F = Intersect(g, a)
poly2, e_1, h, g_1, f_1 = Polygon(E, F, G, H)
i = OrthogonalLine(C, a)
I = Intersect(a, e_1)
J = Intersect(a, e_1)
K = Intersect(i, a)
j = Segment(C, K)
α = Angle(B, K, C)