Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sol = RSolve[{x[n + 1] == 2.8*x[n]*(1 - x[n]), x[0] == 0.2}, x[n], n]
- ListPlot[Table[{n, x[n] /. sol[[1]]}, {n, 1, 5}],
- PlotStyle -> {Hue[1], PointSize[0.0125]}];
- logistic[[Alpha]_, x0_] := Module[{f}, f[x_] := [Alpha] x (1 - x);
- seq = NestList[f, x0, 100];
- p = Join @@ ({{#, #}, {##}} & @@@ Partition[seq, 2, 1]);
- Plot[{f[x], x}, {x, 0, 1}, PlotRange -> {0, 1},
- Epilog -> {Thick, Opacity[0.6], Line[p]}, ImageSize -> 500]];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement