clear('x')
N=200;
r=3.8;
b=4;
x(1)=b/2;
for n=1:N
    x(n+1)=r*x(n)/(1+x(n)^b)
end
plot([1:1:N+1],x,'-o')
