函数API2
函数C =动力学(θ,t)
c0 = (0.752, 1.278, 0);
[T,Cv]=ode45(@DifEq,T,c0);
函数dC=DifEq(t,c)
dcdt=零(3,1);
dcdt(1)=-θ(1)。*c(1)。^2+θ(2)。*c(2)-θ(3)。*c(1)。*c(2);
dcdt(2) =θ(1)。* c(1)。^ 1-theta c(2)(2) . *。^ 1-theta c(1)(3) . *。^ 1。* c (2);
dcdt(3)=θ(3)。*c(1)。*c(2)。^3;
dC=dcdt;
终止
C=Cv;
终止
T = [0 1 2 5 10 15];
t = t ';
A_ydata = [0.752 0.0596 0.0596 0.0596 0.0502 0.0424];
A_Ydata=A_Ydata';
B_ydata = [1.278 0.378 0.101 0.101 0.085 0.072];
B_Ydata=B_Ydata';
C_ydata = [0 0.692 0.692 0.692 0.702 0.71];
C_Ydata=C_Ydata';
c=[A_Ydata B_Ydata c_Ydata];
θ=0.5;0.5;0.5];
[θ,Rsdnrm, Rsd, ExFlg OptmInfo, Lmda, Jmat] = lsqcurvefit (@kinetics theta0 t、c);
fprintf(1,“\t存储常数:\n”)
对于k1=1:长度(θ)
fprintf(1,'\t\t色塔(%d)=%8.5f\n', k1,θ(k1))
终止
tv=linspace(最小(t),最大(t));
Cfit = kinetics(theta, tv);
图(1)
H = t, c,'.');
设置(h{“标记”},{'s';“d”;“^”},{“MarkerFaceColor”},{“r”;“b”;“k”},{“MarkerEdgeColor”},{“r”;“b”;“k”});
持有在
= plot(tv, Cfit,“线宽”, 1.5);
集(hlp, {“颜色”},{“r”;“b”;“k”});
持有从
网格
包含('时间(分钟)')
ylabel (浓度(M)的)
传奇(hlp“利福霉素恶嗪”,“哌嗪”,“利福平”,“位置”,“不”)
终止