Los

A = (-2, 1)
B = (-1, 1)
C = (-1, 2)
D = (-2, 2)
e = Circle((0.5, 1.5), 0.5)
Vieleck1, a, b, c, d = Polygon(A, B, C, D)
E = (2, 1)
F = (6, 1)
G = (6, 2)
H = (2, 2)
Vieleck2, e_1, f, g, h = Polygon(E, F, G, H)
I = (-0.5, 4)
J = (-0.5, 3)
K = (1.5, 3)
L = (1.5, 4)
n = 8 (slider from 1 to 20, step 1)
i = 0 (slider from 0 to n, step 1)
Vieleck3, j, k_1, l, i_1 = Polygon(J, K, L, I)
u = Vector((6, 1.5), (6.7, 1.5))
p = Segment((7.5, 0), (0.5, 0))
v = Vector((0.5, 0), (0.5, 1))
w = Vector((-1, 1.5), (0, 1.5))
q_1 = Vector((1, 1.5), (2, 1.5))
r = Vector((0.5, 0), (0.5, 3))
Text5: "" + (LaTeX[n]) + " \quad mal"
b_0 = 2 (slider from 0 to 3, step 0.1)
q = 1.1 (slider from 0 to 2, step 0.01)
Text1: "" + b_0 + ""
s = Circle((7.5, 1.5), 0.8)
Text7: "" + b_0 + ""
m = Segment((7.5, 0.7), (7.5, 0))
Text3: "multipliziere mit " + q + ""
Text8: "b_0 = " + b_0 + ", q = " + q + ", n = " + n + ""
"" + (FormelText[b_0 i q]) + " · " + (FormelText[q]) + "": "" + (LaTeX[((b_0 * i) * q)]) + " · " + (LaTeX[q]) + ""
Text2: "" + (LaTeX[(b_0 * q^(i))]) + ""
Text6: "b_{" + (LaTeX[n]) + "}=" + (LaTeX[(b_0 * q^(n))]) + ""
Text4: "" + (LaTeX[(b_0 * q^(i - 1))]) + " · " + (LaTeX[q]) + ""
"" + (FormelText[b_0 (i - 1) q]) + " · " + (FormelText[q]) + "": "" + (LaTeX[(b_0 * q^(i - 1))]) + " · " + (LaTeX[q]) + ""