Logistische Bifurcatiemap

With[{p = 500, start = 2.4},
 ListPlot[Flatten[
   Table[Map[{r, #} &,
     Nest[DeleteDuplicates[Round[r # (1 - #), 0.001/p]] &,
      Table[x, {x, 1/p, (p - 1)/p, 1/p}], p]], {r, start, 4, 1/p}],
   1], AxesLabel -> {r, x}, PlotStyle -> {Opacity[50/p]},
  AxesOrigin -> {start, 0}]]