b = 5 (slider from -10 to 10, step 0.1)
a = -0.8 (slider from -10 to 10, step 0.1)
f(x) = (a * x) + b
u_0 = 0.8 (slider from -10 to 170, step 0.1)
n = 6 (slider from 0 to 10, step 1)
L_1 = IterationList(f, u_0, n)
L_h = Sequence(Segment[(Element[L_1, i + 1], Element[L_1, i + 2]), (Element[L_1, i + 2], Element[L_1, i + 2])], i, 0, n - 2, 1)
L = Sequence((Element[L_1, i], 0), i, 1, n)
U_0 = Element(L, 1)
U_1 = Element(L, 2)
U_2 = Element(L, 3)
U_3 = Element(L, 4)
U_4 = Element(L, 5)
U_5 = Element(L, 6)
L_v = Sequence(Segment[(Element[L_1, i + 1], Element[L_1, i + 1]), (Element[L_1, i + 1], Element[L_1, i + 2])], i, 1, n - 1, 1)
s = Segment(U_0, (u_0, f(u_0)))