clear all;

count=0;

for r=[0.8 1.5 2.8 3.2 3.5 3.7]
    count=count+1;    

    x(1)=0.5;
    for k=1:49
        x(k+1)=r*x(k)*(1-x(k));
    end

    B(count,:)=x;
end

save logistic.dat B -ascii