function y = Logistic(n,r,x)
%nth iterate of the Logistic map 
y=x;
for t=1 : n
    y = r*y*(1.0-y);
end
return