Fractal properties of simple iterated systems
FrAid scripts used in the demo
Orbit diagram of the logistic equation
f(x,r)=r*x*(1-x);
orbit(f);
Orbit Diagram 2
f(x,p)= if x < 0 then 0 else
if (x >= 0) & (x < 1/2) then p*x else
if (x >= 1/2) & (x < 1) then -p*x+p else 0;
orbit(f);
Cobweb Diagram of the logistic equation
r=1;
controlVar(r);
f(x)=r*x*(1-x);
cobweb(f);
Cobweb Diagram 2
p=1;
controlVar(p);
f(x)= if x < 0 then 0 else
if (x >= 0) & (x < 1/2) then p*x else
if (x >= 1/2) & (x < 1) then -p*x+p else 0;
cobweb(f);
Cobweb Diagram 3
r=1;
controlVar(r);
f(x)=r*x*(1-x);
g(x)=f(f(x));
cobweb(g); // same as cobweb({f(f)});
Map for the logistic equation
a=3.95;
controlVar(a);
g(x)=a*x*(1-x);
plotMap(g);