function y=logistic(x,r,anything)
%LOGISTIC Logistic map.
%   Y=LOGISTIC(X,R) evaluates R*X*(1-X)
%   Y=LOGISTIC(X,R,'EXPANDED') evaluates R*X*-R*X*X

%   Francisco J. Beron-Vera
%   $Revision: 1.0 $  $Date: 2006/09/05 11:52:25 $

if nargin<3
   y=r*x.*(1-x);
else
   y=r*x-r*x.*x;
end