| (* Logistic Map Data *) |
| Off[General::spell]; |
| Off[General::spell1]; |
| iters = 400; |
| (* the number of values generated *) |
| s = 3.826; |
| (* the s-value of the logistic map *) |
| x = 0.5; |
| (* initial value of x *) |
| dlst = {}; |
| Do[{x = s*x*(1 - x),dlst = Flatten[{dlst,x}]},{i,1,iters}] |