En faisant varier le curseur n, 
on fait apparaître la construction 
des termes de la suite.
Si -1<a<1, la limite c de la suite est l'abscisse 
du point d'intersection des droites 
y = x et y = ax + b.

a = -0.76 (slider from -2 to 2, step 0.01)
b = 0.8 (slider from -2 to 2, step 0.01)
u_0 = 1.4 (slider from -2 to 2, step 0.01)
n = 0 (slider from 0 to 10, step 1)
f(x) = a * x + b
L = IterationList(f, u_0, n)
L1_1 = 0
Points1 = Sequence((Element[L, i], 0), i, 1, n + 1)
Points2 = Sequence((Element[L, i], f(Element[L, i])), i, 1, n + 1)
Points3 = Sequence((Element[L, i], Element[L, i]), i, 2, n + 1)
Segments1 = Sequence(Segment[Element[Points1, i], Element[Points2, i]], i, 1, n)
Segments2 = Sequence(Segment[Element[Points2, i], Element[Points3, i]], i, 1, n)
L1_2 = Sequence((Element[L, i], 0), i, 1, n + 1)
Segments3 = Sequence(Segment[Element[Points3, i], Element[Points1, i + 1]], i, 1, n)