24小时热门版块排行榜    

查看: 4343  |  回复: 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的回帖

楚天湘水

金虫 (小有名气)

引用回帖:
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的回帖
查看全部 15 个回答

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

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


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

hitzhengwei

木虫 (著名写手)

【答案】应助回帖

感谢参与,应助指数 +1
楼主的拟合代码最好贴出来,不然怎么知道错误;另外,其实可以输出散点数据,然后用Origin来拟合曲线,感觉比matlab的好看很多。
品味人生棋局,聆听世界心灵
4楼2012-05-02 10:57:15
已阅   回复此楼   关注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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 范进中举一文的中心思想 +4 炎黄贵胄 2026-08-22 5/250 2026-08-24 02:09 by 流流伤
[基金申请] 2026国自然函评费到账 +16 羊腰板 2026-08-21 17/850 2026-08-23 23:02 by tianxiaochun
[基金申请] 2026年的国家社科基金项目通讯评审的新规则与新动向、新挑战 +4 process2012 2026-08-23 5/250 2026-08-23 19:58 by jurkat.1640
[基金申请] 什么时候开奖? +9 CrisMessi 2026-08-18 10/500 2026-08-23 12:03 by 丶昵称占用
[基金申请] 93BebMhtakh前后11位开头都是大写 +7 且听虎啸 2026-08-17 8/400 2026-08-22 21:55 by 医学老男孩
[基金申请] 只有每年这种时候来逛逛小木虫 +24 yaoyewhu2008 2026-08-20 26/1300 2026-08-22 17:43 by kammury
[基金申请] filecode,4个jtjc了 +13 ziyangfang 2026-08-19 16/800 2026-08-22 17:08 by WH3796
[基金申请] 人气不行了 +8 fansofjerry 2026-08-21 8/400 2026-08-22 16:30 by zyqchem
[基金申请] 今天基金会出结果吗?20260819 +16 kkkl_v 2026-08-19 17/850 2026-08-22 16:12 by 阿布Abu
[基金申请] 时间戳今天,20号变了 +5 archvillain 2026-08-20 5/250 2026-08-22 06:12 by hui_daxiao
[基金申请] 放榜前的不淡定 40+4 snowwithsea 2026-08-19 14/700 2026-08-21 23:51 by cratir
[基金申请] 今日不放榜?网传国自然预计 8 月 27 日可查结果 +16 医学老男孩 2026-08-20 20/1000 2026-08-21 21:13 by Ldrop2023
[基金申请] 看来今天不会放榜了? +8 chengyan1220 2026-08-21 11/550 2026-08-21 17:52 by dcqxinyang
[基金申请] 时间戳又变了 +13 wuchongjun 2026-08-20 19/950 2026-08-21 17:21 by 紫杉醇
[基金申请] 感觉是下周放榜了 +7 angus9576 2026-08-17 12/600 2026-08-21 13:38 by weiyin
[基金申请] 我面上完蛋了 +7 且听虎啸 2026-08-20 8/400 2026-08-21 12:31 by 酷酷墨镜
[基金申请] 今天放榜没戏了吧 +9 yuleib84 2026-08-19 11/550 2026-08-21 10:06 by gltch
[基金申请] 重要消息,中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
信息提示
请填处理意见