%51ag10

clear all
clc
close all

iteraciones=100;
orbita=zeros(iteraciones,1);
orbita(1)=0;
x=0;
c=-1;
n=1;
while n<=iteraciones-1
    x=x^2+c;
    orbita(n+1)=x;
    n=n+1;
end


#plot(orbita)
#grid on


figure(1, "visible", "off");
plot(orbita);
grid;
print -deps "../media/caos-1.eps";
