Question: bifurcation diagram

December 10 2013 john125 45

0

How would i label the axis and change its font and size.

Also, how would i move the horizontal axis down, so that the whole diagram can be seen. (Hope that makes sence)

Finally, there are some odd points between 0 and 1 on the vertical axis, how do you get rid of these...

Digits:=20: N:=10000: M:=100: x_max:=1: r_min:=0:
r_max:=4: for n from 0 to N do r:=r_min+n/N*(r_max-r_min):
x:=evalf(x_max*rand()/10^12):for m from 0 to M do x:=x*exp(r*(1 - x)): od:
X[n]:=x: od:
with(plots):
bifpoint:={seq([r_min+j/N*(r_max-r_min),X[j]],j=0..N)}:
pitchf:=pointplot(bifpoint,symbol=point):display(pitchf);

 

Thanks

Please Wait...