a = 1 (slider from 0 to 5, step 0.1)
A = Intersect(xAxis, yAxis)
c = Circle(A, (a * sqrt(2)))
B = Intersect(c, xAxis, 2)
d = Circle(B, a)
α = 0.5235987755982988 rad (slider from 0 to 6.283185307179586, step 0.08726646259971647)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
b = Line(A, B')
C, D = Intersect(d, b)
e = Circle(A, Segment[C, D])
E, F = Intersect(e, b)
luogo1 = Locus(F, α)
f = Segment(B, D)
g = Segment(B, C)
γ = Angle(C, D, B)