I'm trying to create a bifurcation diagram of a map I iterate, but can't manage to proprely save it as a list within lists and plot it
The code I have is
list = RecurrenceTable[{x[n] == r (x[n - 1] - x[n - 1]^3) /. r -> 2.1,
x[1] == 0.5}, x, {n, 1, 200}]
newList = DeleteDuplicates[Take[list, -100]];
The first list is the iterative map, which I run for 200 times, and the last one is the "final values" of the list.
In the example above I do it for a single value of r
, however I would like to create lists like newList
for many different r
running between 1 to 5, and plot all newList
I have as a function of r
NestList
here is much, much faster thanRecurrenceTable
. $\endgroup$