# NAME    :- IBRAR AHMAD 
TUTORIAL:- GROUP 5TH   
ROLL NO :- 11232225    
DATE    :- 05-3-2013   

kill(all)$
de:'diff(N,t)=k*N;
gsoln:ode2(de,N,t);
psoln:ic1(gsoln,t=t0,N=n0);
k:-1/2$
n0:1$
t0:0$
define(f(t),rhs(psoln));
wxplot2d(f(t),[t,0,15],[legend,"N"],
[nticks,1000]);

kill(all)$
de:'diff(N,t)=-k*N;
gsoln:ode2(de,N,t);
psoln:ic1(gsoln,t=t0,N=n0);
k:-1/2$
n0:1$
t0:0$
define(f(t),rhs(psoln));
wxplot2d(f(t),[t,0,15],[legend,"N"],
[nticks,1000]);

kill(all)$
de:'diff(N,t)=k*N;
gsoln:ode2(de,N,t);
psoln:ic1(gsoln,t=t0,N=n0);
n0:1$
t0:0$
define(f(t),rhs(psoln));
radcan(solve(2*f(t+h)-f(t)=0,h));