函数API1
函数C =动力学(θ,t)
c0 = (0.575, 0.748, 0);
(T, Cv) =数值(@DifEq T c0);
函数dC = DifEq (t, c)
dcdt = 0 (3,1);
dcdt(1) =θ(1)* (c(1) ^ 1)。* c(2)。^ 1;
dcdt(2) =θ(1)。* (c(1) ^ 1)。* c(2)。^ 1;
dcdt(3) =θ(1)。* (c(1) ^ 1)。* c(2)。^ 1;
dC = dcdt;
结束
C =简历;
结束
T = [0 10 20 30];
t = t ';
A_ydata = [0.575 0.1611725 0.10373 0.0999925];
A_Ydata = A_Ydata ';
B_ydata = [0.748 0.3336725 0.27623 0.2724925];
B_Ydata = B_Ydata ';
C_ydata = [0 0.4138275 0.47127 0.4750075];
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);
流(1,“\物常量:\ n”)
为k1 = 1:长度(θ)
流(1,' \ t \ tTheta (% d) = % 8.5 f \ n ', k1,θ(k1))
结束
TV = linspace(min(t), max(t));
Cfit = kinetics(theta, tv);
图(1)
H = t, c,“。”);
集(h, {“标记”},{“年代”;' d ';“^”},{“MarkerFaceColor”},{“r”;“b”;“k”},{“MarkerEdgeColor”},{“r”;“b”;“k”});
持有在
= plot(tv, Cfit,“线宽”, 1.5);
集(hlp, {“颜色”},{“r”;“b”;“k”});
持有从
网格
包含(的时间(分钟))
ylabel (浓度(M)的)
传奇(hlpRif的,“叔”,“嗪”,“位置”,“N”)
Cfit_mtx =动力学(,t);
为k = 1:尺寸(Cfit, 2)
ypred = Cfit_mtx (:, k);
上交所=总和((c (:, k) -ypred)。^ 2);
风场=总和((c (:, k)的意思是(c (:, k))) ^ 2);
上证综指= 1 - (SSE/SST);
流(’t\tR²c(%d) = %7.4f\n’k Rsq (k))
结束
结束