PH542 Non Linear Dynamics

Chemical Kinetics 

Som Phene 
 July 30, 2018

Manipulate[ 
s=NDSolve[
{cA'[t]==-k1*cA[t]^2,
cB'[t]== k1*cA[t]^2-k2*cB[t],
cA[0]==10., cB[0]==0},
{cA,cB},{t,0,15}];
Plot[Evaluate[{cA[t],cB[t]}/.s],{t,0,15},
PlotRange->All, Frame -> True],
{{k1,0.4},0.1,1.0,Appearance-> "Labeled"},
{{k2,0.4},0.1,1.0, Appearance-> "Labeled"}
]