trascinare il punto E

a = 2 (slider from 0 to 10, step 0.1)
b = 1 (slider from 0 to 10, step 0.1)
A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Line(A, B)
C = Point(yAxis)
d = Line(A, C)
e = Circle(A, a)
f = Circle(A, b)
D = Intersect(e, c, 2)
E = Point(e)
g = Ray(A, E)
F = Intersect(f, g, 1)
h = OrthogonalLine(E, g)
i = OrthogonalLine(F, g)
I = Intersect(c, i)
H = Intersect(c, h)
j = OrthogonalLine(H, c)
k = Circle(H, Segment[F, I])
J, K = Intersect(k, j)
luogo1 = Locus(K, E)
luogo2 = Locus(J, E)
poli1, f_1, a_1, i_1 = Polygon(A, I, F)
poli2, e_1, a_2, h_1 = Polygon(A, H, E)
α = Angle(D, A, E)