A = (-1.3899288200000002, 4.494918060000001)
B = (0.579793060118259, 4.543273425540131)
c_1 = Circle(A, B)
a = Line(A, B)
C = Intersect(c_1, a, 2.0)
d = Distance(C, B)
Texted: Name[C] + (Name[B]) + " \, = \, " + d
b = Segment(C, B)
c = Circumference(c_1)
D = (-16.62301033835248, -3.8063799312785935)
E = Point(Circle[D, c])
e = Segment(D, E)
distanceDE = Distance(D, E)
Circonférence: Name[D] + (Name[E]) + " \, = \, " + distanceDE
texte2: "Diamètre (d) =" + d + "cm"
texte1: "Circonférence (c) =" + c + "cm"
F = (-16.371261995935836, -5.400786099917345)
G = Point(Circle[F, b])
f = Segment(F, G)
texte3: "Circonférence =" + c + "cm"
texte4: "Diamètre =" + d + "cm"
rapport: c / d
texte5: "Rapport (Pi)= \frac{ " + c + " }{" + d + " } =" + rapport