Chapitre 9 exo 75 le 1-6-19

a = 4.7 (slider from 0 to 10, step 0.1)
A = (0, -3)
B = Point(Circle[A, a])
f = Segment(A, B)
poly1, g, h, i, j, C, D = Polygon(A, B, 4)
c = Circle(C, a / 4)
E = Intersect(c, h)
d = Circle(E, a / 4)
F_1, G = Intersect(d, h)
e = Circle(F_1, a / 4)
H, I = Intersect(e, h)
k = Circle(B, a / 4)
J = Intersect(f, g)
F = Intersect(k, f, 1)
p = Circle(F, a / 4)
L = Intersect(f, g)
M = Intersect(f, g)
N = Intersect(f, g)
O = Intersect(f, g)
P = Intersect(f, g)
Q = Intersect(p, f, 1)
q = Circle(Q, a / 4)
R = Intersect(f, g)
S = Intersect(f, g)
T = Intersect(f, g)
r = Circle(Q, a / 4)
U, V = Intersect(r, g)
l = Line(D, E)
m = Line(C, F)
K = Intersect(l, m)
α = Angle(D, K, F)