Bifurcation Diagram (Feigenbaum Fractal) This fractal is based on the logistic equation: xn+1 = a xn (1 – xn)
(* runtime: 1 minute *)
Logistic[x_] := a x (1 - x); plist = {};
Do[x = 0.25; Do[x = Logistic[x], {100}]; Do[x = Logistic[x]; plist = Append[plist, {a, x}], {100}], {a, 2.8, 4, 10^-2}];
ListPlot[plist];
Links
- Feigenbaum Function – a fractal based on the bifurcation diagram
- Bifurcation Diagram Java Applet
- Similarities to the Mandelbrot Set
how would I go about plotting this on a TI 84?