function logist1(r,N)
% m-file to test iterative maps
%
Xn = [];
x = 0.3;
for i = 1:N
    x = r*x*(1-x);
    Xn = [Xn x];
end
figure(1) ; clf ; 
plot(1:N,Xn)
xlabel('Iteration Number n')
ylabel('Xn')