Logistic
Author: Sal

Logistic map

bla bla bla

diagonal

parameter λ

λx(1-x)

λ = 3.827 (slider from 0 to 4, step 0.0010)
f(x) = λ * x * (1.0 - x)
InitialState = Point(xAxis)
finalTime = 12 (slider from 1 to 100, step 1)
values = IterationList(f, x(InitialState), finalTime)
HorizontalLines = Sequence(Segment[(Element[values, i], Element[values, i + 1.0]), (Element[values, i + 1.0], Element[values, i + 1.0])], i, 1.0, finalTime - 1.0)
VerticalLines = Sequence(Segment[(Element[values, i], Element[values, i]), (Element[values, i], Element[values, i + 1.0])], i, 2.0, finalTime)
b = Segment(InitialState, (x(InitialState), f(x(InitialState))))
FinalState: (Element[values, finalTime], 0.0)
c = Segment(FinalState, (x(FinalState), x(FinalState)))