A =

A: 5
Eingabefeld1 = Textfield(A)
A1: A
B1: 1
A2: (A1 + B1) / 2
B2: A / A2
A3: (A2 + B2) / 2
B3: A / (A3)
A4: (A3 + B3) / 2
B4: A / (A4)
A5: (A4 + B4) / 2
B5: A / (A5)
A6: (A5 + B5) / 2
B6: A / (A6)
A7: (A6 + B6) / 2
B7: A / (A7)
A8: (A7 + B7) / 2
B8: A / A8
A9: (A8 + B8) / 2
B9: A / A9
A10: (A9 + B9) / 2
B10: A / A10
aListe: {A1, A2, A3, A4, A5, A6, A7, A8, A9, A10}
bListe: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10}
i = 1 (slider from 1 to 10, step 1)
R_1: (0, 0)
R_2: (aListe(i), 0)
R_3: (aListe(i), bListe(i))
R_4: (0, bListe(i))
v1, r1, r2, r3, r4 = Polygon(R_1, R_2, R_3, R_4)
V_{1}: (0, 0)
V_{2}: (aListe(i - 1), 0)
V_{3}: (aListe(i - 1), bListe(i - 1))
V_{4}: (0, bListe(i - 1))
v2, v_{1}, v_{2}, v_{3}, v_{4} = Polygon(V_{1}, V_{2}, V_{3}, V_{4})
Text1: "a_{" + (i - 1) + "}=" + v_{1} + ""
Text2: "b_{" + (i - 1) + "}=" + v_{2} + ""
Text5: "A=" + A + ""
Text3: "a_{" + (LaTeX[i]) + "}=\frac{a_{" + (LaTeX[i - 1]) + "}+b_{" + (LaTeX[i - 1]) + "}}{2}"
R4 = NaN
R1 = NaN
Text4: "b_{" + (LaTeX[i]) + "}=\frac{" + (LaTeX[A]) + "}{a_{" + (LaTeX[i]) + "}}"
Text6: "a_{" + i + "}=" + r1 + ""
Text7: "b_{" + i + "}=" + r2 + ""
Text8: "a_{" + i + "}=" + r1 + ""
Text9: "b_{" + i + "}=" + r2 + ""