function logisticka(r,x0,n)
x(1)= x0;
for i =1:n-1
    x(i+1) = r.*x(i).*(1-x(i));
end
plot(x);
axis([1 100 0 1]);
end