Diamètre d_1= 2 X r_1 = 4

Diamètre d_2= 2 X r_2 = 8

Diamètre d_3= 2 X r_3 = 12

Déplacement circulaire des points B', D' et G,
en degrés

r_1=2

r_2=4

r_3=6

C_1 = (-11.409288288435654, 12.79481536993087)
B = Point(Circle[C_1, 2.0])
a = Segment(C_1, B)
C_2 = (11.349493075000053, 10.198756659272805)
D = Point(Circle[C_2, 4.0])
b = Segment(C_2, D)
C_3 = (3.9074581044469316, -3.993030958991286)
G = Point(Circle[C_3, 6.0])
c = Segment(C_3, G)
d = 0 (slider from 0 to 360, step 2)
B' = Rotate(B, -1.0 * d * °, C_1)
D' = Rotate(D, -1.0 * d * °, C_2)
G' = Rotate(G, -1.0 * d * °, C_3)
f: 2.0 * 3.141592653589793 * a / 360.0
g: 2.0 * 3.141592653589793 * b / 360.0
h: 2.0 * 3.141592653589793 * c / 360.0
f': d * f
g': d * g
h': d * h
F = (-15.62591698211058, 8.916460993099273)
H = Point(Circle[F, f'])
e = Segment(F, H)
I = (18.2644494588438, 13.896173610816108)
J = Point(Circle[I, g'])
i = Segment(I, J)
K = (-2.1593094003774214, -11.601700001054969)
L = Point(Circle[K, h'])
j = Segment(K, L)
M = (-15.861922319443131, 6.477739173996243)
N = Point(Circle[M, 2.0 * a])
k = Segment(M, N)
O = (18.2644494588438, 11.064109562825491)
P = Point(Circle[O, 2.0 * b])
l = Segment(O, P)
Q = (-2.4096180914877023, -14.369398957045796)
R = Point(Circle[Q, 2.0 * c])
m = Segment(Q, R)
n = Segment(C_1, B')
p = Segment(C_2, D')
q = Segment(C_3, G')
Rapport1: f' / k
Rapport2: g' / l
Rapport3: h' / m
texte6: "Circonférence C_3=" + h' + " cm"
texte1: "Circonférence C_1=" + f' + " cm"
texte5: "Circonférence C_2=" + g' + " cm"
r = Circle(C_1, B')
s = Circle(C_2, D')
t = Circle(C_3, G')
texte7: "Rapport  1= C_1/ d_1 = \frac{ " + f' + " }{" + k + " } " + "=" + Rapport1
texte8: "Rapport 2 = C_2/d_2=\frac{ " + g' + " }{ " + l + "} " + " = " + Rapport2
texte9: "Rapport3 = C_3 /d_3=\frac{ " + h' + " }{" + m + " }  =" + Rapport3
texte14: d + "°"
texte15: "Rapport 1 =" + Rapport1
texte16: "Rapport 2 =" + Rapport2
texte17: "Rapport 3 =" + Rapport3