函数API2
函数C =动力学(θ,t)
c0 = (0.752, 1.278, 0);
[T,Cv]=ode45(@DifEq,T,c0);
函数dC=DifEq(t,c)
dcdt=零(3,1);
dcdt(1)=-theta(1)。*(c(1)。^(1)).*(c(2)。^(1.7));
dcdt(2)=-θ(1)。*(c(1)。^(1)).*(c(2)。^(1.7));
dcdt(3) =θ(1)。* (c(1) ^(1))。* (c (2) ^ (1.7));
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];
theta0 = [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“利福霉素嗪的,“哌嗪”,“利福平”,“位置”,“不”)
终止