# Exercici 12.9

kill(all)$

EDO del procés

EDOa: 'diff(N(t),t) = -%lambda*N(t);

ode2(EDOa, N(t), t);

N(t):=%c*%e^(-%lambda*t);

N(0)=N0;

N(t):=N0*%e^((-%lambda)*t);

't1=t1:1600$    N(t1)=N0/2;

1/2=%e^(-%lambda*t1);

Eq1:  -log(2)=-1600*%lambda;
solve ( [Eq1] , [%lambda]);

N(t):=N0*%e^((- log(2)/1600)*t);

't2=t2:100$     N(t2);

N(t2), numer;

100 - 100*N(t2)/N0, numer;

Representació gràfica amb N0 = 100

N(t):=100*%e^((-log(2))/1600*t);

wxplot2d([N(t)], [t,0,6000], [y, 0,100], [ylabel, ""] , [legend, "N(t)"] , [style, [lines, 2]] ,
 [gnuplot_preamble, "set grid; set zeroaxis;"])$