U0 = Point(xAxis)
U_0: x(U0)
f(x) = 0.2 * x + 4.0
p = 4 (slider from 0 to 100, step 1)
SuiteU = IterationList(f, U_0, p)
Segmentsvert = Sequence(Segment[(Element[SuiteU, q], 0.0), (Element[SuiteU, q], Element[SuiteU, q + 1.0])], q, 1.0, p)
Sementhori = Sequence(Segment[(Element[SuiteU, q], Element[SuiteU, q + 1.0]), (Element[SuiteU, q + 1.0], Element[SuiteU, q + 1.0])], q, 0.0, p)
pointsU = Sequence((Element[SuiteU, q], 0.0), q, 1.0, p)
liste1 = Sequence(Segment[(Element[SuiteU, q], Element[SuiteU, q + 1.0]), (Element[SuiteU, q], Element[SuiteU, q])], q, 1.0, p)