函数model4
% 2016 12 03
%指出:
%
% 1。“θ”(参数)的论点必须首先在你
%的动力学函数,
% 2。你需要返回所有的值从DifEq因为你是合适的
%的所有值
函数C =动力学(θ,t)
c0 = [7.00 e-02; 0.00 e + 00; 0.00 e + 00; 0.00 e + 00];
(T, Cv) =数值(@DifEq T c0);
%
函数dC = DifEq (t、c)
dcdt = 0 (4,1);
dcdt(1) =(θ(1)θ* c (1) * 0.00273 (2) * c(1) * 0.00273) /(1 +(θ(6)* c(1) +θ(7)* c(2) +θ(8)* c(3) +θ(9)* c(4) +θ(10)* 0.00273))^ 3;
dcdt(2) =(θ(1)θ* c (1) * 0.00273 (3)。* c(2) * 0.00273θ(5)* c(2)) /(1 +(θ(6)* c(1) +θ(7)* c(2) +θ(8)* c(3) +θ(9)* c(4) +θ(10)* 0.00273))^ 3;
dcdt(3) =(θ(2)θ* c(1) * 0.00273(4)θ* c (2) * 0.00273 + (5) * c(2)) /(1 +(θ(6)* cθ(7)* c(1) +(2) +θ(8)* c(3) +θ(9)* c(4) +θ(10)* 0.00273))^ 3;
dcdt(4) =(θ(3)θ* c (2) * 0.00273 + (4) * c(3) * 0.00273) /(1 +(θ(6)* cθ(7)* c(1) +(2) +θ(8)* c(3) +θ(9)* c(4) +θ(10)* 0.00273))^ 3;
dC = dcdt;
结束
C =简历;
结束
t = (20
40
60
90年
120年
180年
240);
c = [5.69 e-02 1.36 e 03 8.25 e 03 3.48 e 03
4.28 e-02 9.79 e 03 9.50 e 03 7.94 e 03
2.26 1.53 2.93 e-02 2.85 e 03 e-02 e-02
3.28 2.00 1.46 e-02 4.69 e 03 e-02 e-02
5.43 1.10 1.19 e 03 3.52 e 03 e-02 e-02
1.75 e 03 0.00 6.10 0.00 e + e + 00 00 e-02
7.00 1.00 1.00 1.00 e-09 e-09 e-09 e-02];
theta0 = [1.86 e 1, 1.70 e 1、1.28、1.51 e 1, 1.0 e 1, 15.90, 2.60 e 1,依照1.87,3.25,2.33依照];
[θ,Rsdnrm, Rsd, ExFlg OptmInfo, Lmda, Jmat] = lsqcurvefit (@kinetics theta0 t、c);
流(“\物常量:\ n”)
k1 = 1:长度(θ)
流(1,' \ t \ tTheta (% d) = % 8.5 f \ n ', k1,θ(k1))
结束
电视= linspace (min (t)、马克斯(t));
Cfit =动力学(θ,电视);
图(1)
情节(t c ' p ')
抓住
hlp =情节(电视、Cfit);
推迟
网格
包含(“时间”)
ylabel(浓度)
传奇(hlp, ' c₁(t)”,“c₂(t)”,“C_3 (t)”,“C_4 (t)”、“位置”,“N”)
结束
问题是橙色星和红线不是合适的应该是0.02