Jaotada antud ringi ala võrdeteks osadeks 
millel on võrdsed ümbermõõdud

d = 6 (slider from 1 to 10, step 0.1)
A: (((-d)) / 2, 0)
B: (d / 2, 0)
n = 7 (slider from 2 to 20, step 1)
ps = Sequence(A + (k, 0), k, 0, d, d / n)
bs = Sequence(Semicircle[B, ps(k)], k, 1, n)
as = Sequence(Semicircle[A, ps(k)], k, 2, n + 1)
ys_{keskmised} = Sequence(as(k) + as(k + 1) + bs(k + 1) + bs(k + 2), k, 1, n - 2)
ys_1: as(1) + bs(1) + bs(2)
ys_n: as(n - 1) + as(n) + bs(n)
ys_{kõik} = Flatten({ys_1, ys_{keskmised}, ys_n})
tekst2: "Kõik ümbermõõdud on " + ys_{kõik} + ""