O = (0, 0)
c = Circle(O, 1)
n = 6 (slider from 3 to 50, step 1)
I = (1, 0)
A: (1; 2 * π / n)
poly1, b, i, a, e, g, h, B, C, D, E = Polygon(I, A, n)
J = Midpoint(b)
k = Ray(O, J)
K = Intersect(c, k)
λ: Distance[O, K] / Distance[O, J]
poly2 = Dilate(poly1, λ, O)
d = Perimeter(poly2)
f = Perimeter(poly2)
p: n * i / 2
q: λ * p
texte1: "Demi-périmètre polygone intérieur = " + p
texte2: "Demi-périmètre polygone extérieur = " + q