function state=grafico(nada,state,flag)
x=[-10:.1:10];
y=AG(x);
clf
plot(x,y);
hold on
X=state.Population;
Y=AG(X);
plot(X,Y,'ro');

if mod(state.Generation,4)==0
    pause
end
