24小时热门版块排行榜    

查看: 3836  |  回复: 14
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

楚天湘水

金虫 (小有名气)

[求助] matlab 拟合反应动力学参数结果很差。大家帮忙看一下

已知动力学模型为:
dA1dt = r1 + r2;
dA2dt =  - r1-r2;
dA3dt = -r1;
dA4dt = r1 - r2;
dA5dt = r2;

r1 = k(1)*((a(3)*a(2) - (1/2.20)*a(4)*a(1)));
r2 = k(2)*(a(4)*a(2) -  (1/0.40)*a(5)*a(1)));

已知的参数:
时间:tspan = [0 60 120 180 240 300 360 420 600 1200 6900 7500],
活度系数:KineticsData1
% 动力学数据
%  a1 a2 a3 a4 a5
ExpData=...
    [0.0000         0.8122         0.3894         0.0000         0.0000
     0.1827         0.6353         0.1599         0.2163         0.0444
     0.2547         0.5668         0.0979         0.2485         0.0805
     0.2854         0.5390         0.0788         0.2415         0.1061
     0.2978         0.5258         0.0738         0.2359         0.1192
     0.3019         0.5210         0.0710         0.2309         0.1288
     0.3092         0.5143         0.0691         0.2264         0.1349
     0.3178         0.5062         0.0680         0.2223         0.1349
     0.3178         0.5062         0.0680         0.2186         0.1433
     0.3211         0.5030         0.0674         0.2154         0.1478
     0.3209         0.5036         0.0673         0.2140         0.1482
     0.3205         0.5045         0.0674         0.2136         0.1476 ]

下面是写的matlab程序:
function Kinetic2
% 动力学ODE方程模型的参数估计
clear all
clc

k0 = [900000 50000];         % 参数初值
lb = [0  0];                   % 参数下限
ub = [+inf  +inf ];    % 参数上限
a0 = [0.0000 0.8122 0.3894 0.0000 0.0000];
KineticsData1;
yexp = ExpData(:,1:5);   % yexp: 实验数据[a1 a2 a3 a4 a5]

% 使用函数fmincon()进行参数估计
[k,fval,flag] = fmincon(@ObjFunc4Fmincon,k0,[],[],[],[],lb,ub,[],[],a0,yexp);
fprintf('\n使用函数fmincon()估计得到的参数值为:\n')
fprintf('\tk1 = %.4f\n',k(1))
fprintf('\tk2 = %.4f\n',k(2))
fprintf('  The sum of the squares is: %.1e\n\n',fval)
k_fmincon = k;

% 使用函数lsqnonlin()进行参数估计
[k,resnorm,residual,exitflag,output,lambda,jacobian] = ...
    lsqnonlin(@ObjFunc4LNL,k0,lb,ub,[],a0,yexp);      
ci = nlparci(k,residual,jacobian);
fprintf('\n\n使用函数lsqnonlin()估计得到的参数值为:\n')
fprintf('\tk1 = %.4f\n',k(1))
fprintf('\tk2 = %.4f\n',k(2))
fprintf('  The sum of the squares is: %.1e\n\n',resnorm)
exitflag


% 以函数fmincon()估计得到的结果为初值,使用函数lsqnonlin()进行参数估计
k0 = k_fmincon;
[k,resnorm,residual,exitflag,output,lambda,jacobian] = ...
    lsqnonlin(@ObjFunc4LNL,k0,lb,ub,[1e-15],a0,yexp);      
ci = nlparci(k,residual,jacobian);
fprintf('\n\n以fmincon()的结果为初值,使用函数lsqnonlin()估计得到的参数值为:\n')
fprintf('\tk1 = %.4f\n',k(1))
fprintf('\tk2 = %.4f\n',k(2))
fprintf('  The sum of the squares is: %.1e\n\n',resnorm)
exitflag

function f = ObjFunc4Fmincon(k,a0,yexp)
tspan = [0 60 120 180 240 300 360 420 600 1200 6900 7500];
[t a] = ode23s(@KineticEqs,tspan,a0,[],k);
y(:,1:5) = a(:,1:5);
f = sum(((y(:,1)-yexp(:,1))/0.01).^2) + sum(((y(:,2)-yexp(:,2))/0.01).^2)   ...
    + sum(((y(:,3)-yexp(:,3))/0.005).^2) + sum(((y(:,4)-yexp(:,4))/0.01).^2) ...
    + sum(((y(:,5)-yexp(:,5))/0.01).^2);


function f = ObjFunc4LNL(k,a0,yexp)
tspan = [0 60 120 180 240 300 360 420 600 1200 6900 7500];
[t a] = ode23s(@KineticEqs,tspan,a0,[],k);   
y(:,1:5) = a(:,1:5);
f1 = (y(:,1) - yexp(:,1))/0.01;
f2 = (y(:,2) - yexp(:,2))/0.01;
f3 = (y(:,3) - yexp(:,3))/0.005;
f4 = (y(:,4) - yexp(:,4))/0.01;
f5 = (y(:,5) - yexp(:,5))/0.01;
f = [f1; f2; f3; f4; f5];
plot(tspan,yexp(:,1), 'b^',tspan,yexp(:,2), 'ro',tspan,yexp(:,3),'y*',...
    tspan,yexp(:,4), 'go',tspan,yexp(:,5), 'cs')
hold on
plot(tspan,y(:,1), 'b-',tspan,yexp(:,2), 'r-',tspan,yexp(:,3),'y-', ...
    tspan,yexp(:,4), 'g-',tspan,yexp(:,5), 'c-')
axis([0 800 0 1])

%动力学模型-----------------------------------------------------------------------
function dadt = KineticEqs(t,a ,k)
Keq=[2.20 0.40];
dadt=...
   [((k(1)*(a(3)*a(2)-(1/Keq(1))*a(4)*a(1))) + (k(2)*(a(4)*a(2)-(1/Keq(2))*a(5)*a(1))));
   -((k(1)*(a(3)*a(2)-(1/Keq(1))*a(4)*a(1))) + (k(2)*(a(4)*a(2)-(1/Keq(2))*a(5)*a(1))));
   -(k(1)*(a(3)*a(2)-(1/Keq(1))*a(4)*a(1)));
  ((k(1)*(a(3)*a(2)-(1/Keq(1))*a(4)*a(1))) - (k(2)*(a(4)*a(2)-(1/Keq(2))*a(5)*a(1))));
   (k(2)*(a(4)*a(2)-(1/Keq(2))*a(5)*a(1)))];

大家帮忙看一看,哪里有问题,从做出的图可以看出,处理的结果很差啊。
无论K初值给出怎么样,都是拟合出来的a1和实验值a1相差很远,而其他值都拟合很好。




[ Last edited by 楚天湘水 on 2012-5-1 at 00:44 ]
回复此楼

» 收录本帖的淘帖专辑推荐

动力学拟合

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hitzhengwei

木虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
楼主的拟合代码最好贴出来,不然怎么知道错误;另外,其实可以输出散点数据,然后用Origin来拟合曲线,感觉比matlab的好看很多。
品味人生棋局,聆听世界心灵
4楼2012-05-02 10:57:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 15 个回答

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
楚天湘水: 金币+20, 有帮助 2012-06-02 23:38:27
1stOpt计算结果:


2楼2012-05-02 10:22:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

楚天湘水

金虫 (小有名气)

引用回帖:
2楼: Originally posted by dingd at 2012-05-02 10:22:42:
1stOpt计算结果:
ed/e1/291104_1335925306_702.jpg

能不能把代码贴出来啊,
3楼2012-05-02 10:42:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

★ ★
dbb627: 金币+2, 谢谢应助! 2012-05-02 14:06:30
见下:
CODE:
ConstStr r1 = k1*(a3*a2-(1/2.20)*a4*a1),
         r2 = k2*(a4*a2-(1/0.40)*a5*a1);
Variable t,a1,a2,a3,a4,a5;
ODEFunction A1' = r1 + r2;
            A2' =  -r1-r2;
            A3' = -r1;
            A4' = r1 - r2;
            A5' = r2;
Data;
0        0.0000        0.8122        0.3894        0.0000        0.0000
60        0.1827        0.6353        0.1599        0.2163        0.0444
120        0.2547        0.5668        0.0979        0.2485        0.0805
180        0.2854        0.5390        0.0788        0.2415        0.1061
240        0.2978        0.5258        0.0738        0.2359        0.1192
300        0.3019        0.5210        0.0710        0.2309        0.1288
360        0.3092        0.5143        0.0691        0.2264        0.1349
420        0.3178        0.5062        0.0680        0.2223        0.1349
600        0.3178        0.5062        0.0680        0.2186        0.1433
1200        0.3211        0.5030        0.0674        0.2154        0.1478
6900        0.3209        0.5036        0.0673        0.2140        0.1482
7500        0.3205        0.5045        0.0674        0.2136        0.1476

5楼2012-05-02 10:57:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 申请回稿延期一个月,编辑同意了。但系统上的时间没变,给编辑又写邮件了,没回复 10+3 wangf9518 2026-03-17 4/200 2026-03-19 23:55 by babero
[考研] 一志愿苏州大学材料求调剂,总分315(英一) +3 sbdksD 2026-03-19 3/150 2026-03-19 23:21 by fmesaito
[考研] 0703化学调剂 +10 妮妮ninicgb 2026-03-15 14/700 2026-03-19 22:59 by 学员8dgXkO
[考研] 294求调剂材料与化工专硕 +14 陌の森林 2026-03-18 14/700 2026-03-19 22:38 by 学员8dgXkO
[考研] 一志愿武汉理工材料工程专硕调剂 +5 Doleres 2026-03-19 5/250 2026-03-19 20:14 by 制度的
[考研] 085601材料工程专硕求调剂 +10 慕寒mio 2026-03-16 10/500 2026-03-19 15:26 by 丁丁*
[考研] 材料080500调剂求收留 +4 一颗meteor 2026-03-13 4/200 2026-03-19 10:32 by 30660438
[考研] 0703化学调剂,求各位老师收留 +10 秋有木北 2026-03-14 10/500 2026-03-19 05:52 by anny19840123
[考研] 311求调剂 +11 冬十三 2026-03-15 12/600 2026-03-18 14:36 by 星空星月
[考研] 0854可跨调剂,一作一项核心论文五项专利,省、国级证书40+数一英一287 +8 小李0854 2026-03-16 8/400 2026-03-18 14:35 by 搏击518
[考研] 326求调剂 +5 上岸的小葡 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
[考研] 274求调剂 +5 时间点 2026-03-13 5/250 2026-03-17 07:34 by 热情沙漠
[考研] 11408 一志愿西电,277分求调剂 +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
[考研] [导师推荐]西南科技大学国防/材料导师推荐 +3 尖角小荷 2026-03-16 6/300 2026-03-16 23:21 by 尖角小荷
[考研] 0856专硕279求调剂 +5 加油加油!? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[考研] 297一志愿上交085600求调剂 +5 指尖八千里 2026-03-14 5/250 2026-03-14 17:26 by a不易
[考研] 复试调剂 +3 呼呼?~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
[考研] 266求调剂 +4 学员97LZgn 2026-03-13 4/200 2026-03-14 08:37 by zhukairuo
[考研] 290求调剂 +3 ADT 2026-03-13 3/150 2026-03-13 10:19 by peike
信息提示
请填处理意见