Déplacer le point C. 

A = Intersect(xAxis, yAxis)
B = Point(xAxis)
a = Segment(A, B)
C = Point(a)
D = (3.5000596994628737, -18.83517042956171)
E = Point(Circle[D, Distance[A, C] / 3.0])
b = Segment(D, E)
poly1, c, d, e, F = Polygon(D, E, 3.0)
G = (25.387361517013428, -18.943523408856514)
H = Point(Circle[G, Distance[C, B] / 4.0])
f = Segment(G, H)
poly2, g, h, i, j, I, J = Polygon(G, H, 4.0)
distanceAC = Distance(A, C)
TexteAC: Name[A] + (Name[C]) + " \, = \, " + distanceAC
périmètrepoly1 = Perimeter(poly1)
Textepoly1: "Périmètre = " + périmètrepoly1
périmètrepoly2 = Perimeter(poly2)
Textepoly2: "Périmètre = " + périmètrepoly2
texte1: "Aire = " + poly1
texte2: "Aire = " + poly2