clear all

% figures for exponential growth

tim=[0:0.1:20];
r=-0.1;
N_0=100;
N=N_0*exp(r*tim);
plot(tim,N,'k')