close all
clc
r=input('r=');
x=linspace(0,1,400);
y=x;
for k=1:3
y=logistic(y,r);
end
plot(x,y)
hold on
plot(x,x,'r')
hold off
