a_{n+1}=b \cdot a_n +c

Spinnwebdiagramm

a_1 = 13.7 (slider from -5 to 20, step 0.1)
b = -0.85 (slider from -5 to 5, step 0.01)
c = 7.1 (slider from -5 to 20, step 0.1)
n = 30 (slider from 1 to 200, step 1)
f(x) = b * x + c
L = IterationList(f, a_1, n)
Text2 = Text("a_n = " + (Element[L, n]))
g = Segment((a_1, 0.0), (a_1, a_1))
L1 = Sequence(Segment[(Element[L, i], Element[L, i]), (Element[L, i + 1.0], Element[L, i])], i, 1.0, n)
L2 = Sequence(Segment[(Element[L, i + 1.0], Element[L, i]), (Element[L, i + 1.0], Element[L, i + 1.0])], i, 1.0, n)
h(x) = x
F = Sequence((Element[L, i], 0.0), i, 1.0, n)
a = true
Text3 = Text("G. Roolfs")