a1

f(x) = sqrt(1 + (2 * x))
u_0 = Point(xAxis)
b = 4 (slider from 0 to 100, step 1)
liste1 = Sequence(Iteration[f, x(u_0), n], n, 0, b)
liste2 = Sequence((Element[liste1, n], Element[liste1, n + 1]), n, 1, b)
liste3 = Sequence((Element[liste1, n], Element[liste1, n]), n, 2, b)
liste4 = Sequence(Segment[Element[liste2, n], Element[liste3, n]], n, 1, b)
liste5 = Sequence(Segment[Element[liste3, n], Element[liste2, n + 1]], n, 1, b)
c = Segment(u_0, Element[liste2, 1])
texte2: "u_0=" + (x(u_0))
texte3: "u_" + b + "=" + (Element[liste1, b + 1])
liste6 = Sequence((0, Element[liste1, t]), t, 1, b + 1)
liste7 = Sequence(Segment[Element[liste2, t], Element[liste6, t + 1]], t, 1, b)
liste8 = Sequence((Element[liste1, t], 0), t, 1, b)
liste9 = Sequence(Segment[Element[liste2, t], Element[liste8, t]], t, 1, b)
d: b - 1
texte4: "u_{" + (LaTeX[d]) + "}"
texte1: "u_{" + (LaTeX[b]) + "}"