Mmcc:aula 25

function [P]=populacao(R,P0,cor)
P(1)=P0;
S(1)=P0;

r = R-1;
for n=1:200;
  P(n+1)=R*P(n);
  S(n+1)=P0*exp(r*(n))
end
plot(P,cor)
plot(S,'+-')
endfunction