SHARE
TWEET

Logistische Bifurcatiemap

a guest Jan 18th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. With[{p = 500, start = 2.4},
  2.  ListPlot[Flatten[
  3.    Table[Map[{r, #} &,
  4.      Nest[DeleteDuplicates[Round[r # (1 - #), 0.001/p]] &,
  5.       Table[x, {x, 1/p, (p - 1)/p, 1/p}], p]], {r, start, 4, 1/p}],
  6.    1], AxesLabel -> {r, x}, PlotStyle -> {Opacity[50/p]},
  7.   AxesOrigin -> {start, 0}]]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top