// Programa para visualizar los puntos periodicos de la ecuacion logistica
// Autor: Antonio Carrillo Ledesma


xgrid
X = zeros(100,1);
Y = zeros(100,1);
for p=0:0.05:4
  x=0.1;
  for i=1:300
    y = p*x*(1.0-x);
    x = y;
  end
  for i=1:100
    y = p*x*(1.0-x);
    x = y;
    X(i) = p;
    Y(i) = x;
  end
  plot2d4(X,Y,-1)
end