α

α

π -2α

r = 1.45 (slider from -5 to 5, step 0.05)
A = Intersect(xAxis, yAxis)
c = Circle(A, r)
B = Intersect(c, xAxis, 2)
d = Circle(B, r)
C = Intersect(d, xAxis, 2)
e = Circle(C, r)
D = Intersect(e, xAxis, 2)
f = Circle(D, r)
E = Intersect(f, xAxis, 2)
g = Circle(E, r)
h = OrthogonalLine(E, xAxis)
F = Intersect(c, yAxis, 2)
G = Intersect(c, yAxis, 1)
H = Intersect(g, h, 1)
I = Intersect(g, h, 2)
polígono1, f_1, g_1, h_1, i = Polygon(F, G, H, I)
j = Segment(G, I)
J = Intersect(d, f, 1)
k = OrthogonalLine(J, g_1)
K = Intersect(k, i)
L = Intersect(k, g_1)
l = Segment(K, L)
m = Segment(B, C)
M = Intersect(d, j, 1)
n = Segment(B, M)
α = Angle(L, G, M)
β = Angle(C, M, B)
γ = Angle(B, C, M)
δ = Angle(M, B, C)
p = OrthogonalLine(B, j)
N = Intersect(p, j)
q = Segment(B, N)