a_4 = a_1 r³

a_2 = a_1 r

a_3 = a_1 r²

a_3 = a_1 r²

a_2 = a_1 r

s = 0 (slider from 0 to 7, step 1)
O = (6.7, 0.34)
r = 0.4 (slider from 0.1 to 0.49, step 0.01)
a_1 = 40 (slider from 0.1 to 40, step 0.1)
p = 3.141592653589793
R0: sqrt(a_1 / (p * r))
sumandos: round(s)
lista1 = Sequence(Circle[O, r^(k / 2.0) * R0], k, 0.0, 6.0)
α: 2.0 * p * r / (1.0 - r)
A': O - (0.0, 2.0)
a = Ray(O, A')
c1 = Element(lista1, 2.0)
c0 = Element(lista1, 1.0)
c2 = Element(lista1, 3.0)
c3 = Element(lista1, 4.0)
c4 = Element(lista1, 5.0)
c5 = Element(lista1, 6.0)
c6 = Element(lista1, 7.0)
text6: "C = " + (a_1 / r)
lista2 = Sequence(Intersect[Element[lista1, k], a], k, 1.0, 7.0)
lista3 = Sequence(Rotate[Element[lista2, k], -(α) / 2.0, O], k, 1.0, 7.0)
lista4 = Sequence(Rotate[Element[lista2, k], α / 2.0, O], k, 1.0, 7.0)
lista5 = Sequence(CircleArc[O, Element[lista3, k], Element[lista4, k]], k, 1.0, 7.0)
arco1 = Element(lista5, 2.0)
arco2 = Element(lista5, 3.0)
arco3 = Element(lista5, 4.0)
arco4 = Element(lista5, 5.0)
arco5 = Element(lista5, 6.0)
arco6 = Element(lista5, 7.0)
lista6 = Sequence(CircleSector[O, Element[lista3, k], Element[lista4, k]], k, 1.0, 7.0)
sector0 = Element(lista6, 1.0)
sector1 = Element(lista6, 2.0)
sector2 = Element(lista6, 3.0)
sector3 = Element(lista6, 4.0)
sector4 = Element(lista6, 5.0)
sector5 = Element(lista6, 6.0)
sector6 = Element(lista6, 7.0)
sector7 = Element(lista6, 7.0)
c1b: c1
c2b: c2
c3b: c3
c4b: c4
c5b: c5
c6b: c6
texto1: "a_1 = " + a_1
texto2: "r = " + r
polígono1: {Polygon[(-1.54, -20.0), (-1.54, 20.0), (-10.0, 20.0), (-10.0, -20.0)]}
A: O + (-(5.26), 5.04)
b = Ray(O, A)
B = Intersect(c0, b)
text7: "S = " + (FractionText[a_1 / (1.0 - r)])
text5: "a_1 = " + a_1
text4: "a_1 = " + a_1
texto3: "Sumandos = " + (If[sumandos < 7.0, sumandos, Infinity])
sector0' = Element(lista6, 1.0)