Logistic Map

alex_01 — Tue, 06 Dec 2011 20:52:09 Z

restart:
with(Statistics):
with(plots):
randomize():

X := proc (r) local x, t;

x[0] := .25:

for t to 200 do

x[t] := r*x[t-1]*(1-x[t-1])

end do:

[seq(x[t], t = 1 .. 200)]

end proc:

listplot([seq([r, X(r)[200]], r = 2.4 .. 4, 0.1e-2)], title = "Bifurcation Diagram", labels = ["r", "x[t]"]);

MaplePrimes - answers and comments on Question, bifurcation diagram help

Logistic Map