figure(1);

disp('Enlarge Figure & Press Any Key to continue');

pause


for b=3.4:0.001:3.99;
n=2047;
xinit=0.25;
x(1)=xinit;
time(1)=0;
for k=2:n+1;
time(k)=k-1;
x(k)=b*x(k-1)*(1-x(k-1));
end

z=1:2048;
pause(0.00001)

subplot(121);
plot(x,'.','markersize',5);
axis([1 2045 0 1]);
title(['\alpha: ', num2str(b)]);
grid;

subplot(122);
hyyt(x,120);
axis([0 1 0 150]);
grid;

text(0.20,140,'Mean:')
text(0.2,130,num2str(mean(x)));
text(0.60,140,'Variance:')
text(0.60,130,num2str(std(x)^2));

end



% "Complex and Chaotic Nonlinear Dynamics. 
% Advances in Economics and Finance, 
% Mathematics and Statistics" 
% T.Vialar, Springer 2009.
% Copyright(c).