a_1

+

)

\cdot (

a_0 = 2 (slider from 0 to 5, step 0.1)
k = 1 (slider from 0 to 2, step 0.1)
n = 4 (slider from 2 to 10, step 2)
Liste1 = Sequence(Polygon[(i, 0), (i + 1, 0), (i + 1, a_0 + (i * k)), (i, a_0 + (i * k))], i, 0, n - 1)
Liste2: {5, 4}
Text2: "a_{" + n + "}"
Text6: "a_{" + (LaTeX[n]) + "}"
Text1 = Text(n / 2, (n / 4, (-0.7)))
Text3: "\sum_{i=1}^{" + (LaTeX[n]) + "}{a_i} = "
Text8: "\frac {" + (LaTeX[n]) + "} 2"
Text10: "\sum_{i=1}^{" + (LaTeX[n]) + "}{a_i}=" + (LaTeX[(n / 2 * (a_0 + a_0 + (k * (n - 1))))]) + ""
Liste3 = Sequence(Text["a_{" + (i + 1) + "}", (i + 0.5, 0.5)], i, 0, n - 1)