a_{n+1}=b a_n + c

Spinnwebdiagramm

f(x)=b\,x\,+c

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