function cell_model(a,C0,n)
C=zeros(1,n+1);
C(1)=C0;
for k=1:n
   C(k+1)=a*C(k);
end
figure(1)
clf
plot([0:n],C)
hold on
plot([0:n],C,'x')
title(['Modelo de Crecimiento de Celulas: a=' num2str(a)])
xlabel('Generaciones');ylabel('Poblacion')