24小时热门版块排行榜    

查看: 1186  |  回复: 7
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

liuyong2007

金虫 (小有名气)

[交流] 【求助】用Matlab求解动力学方程参数的估计问题,程序运行有错误【已完成】

哪位帮帮我,谢谢了.我用龙阁库塔积分和非线性最小二乘估计动力学参数,但是有错误.请高手指点一下,谢谢.程序如下:



function KineticsEst1_int
% 动力学方程为rA=dCA/dt=k1*CA*CB-k2*CC
clear all
clc
global CAm CBm CCm
t = [0 20  40  60  120  180  300];
CAm = [10  8  6  5  3  2  1]';
CBm = [8  7  6  5  3  2  1]';
CCm = [0 5  7  8 10  12  14]';
% 非线性拟合
beta0 = [0.0053 1.39];
tspan = [0 20  40  60  120  180  300];
CA0 = 10;
[beta,resnorm,resid,exitflag,output,lambda,jacobian] = ...
    lsqnonlin(@OptObjFunc,beta0,[],[],[],tspan,CA0,CAm,CBm,CCm)
ci = nlparci(beta,resid,jacobian)
% 拟合效果图(实验与拟合的比较)
[t4plot CA4plot] = ode45(@KineticsEqs,[tspan(1)  tspan(end)],CA0,[],beta);
plot(t,CAm,'bo',t4plot,CA4plot,'k-')
legend('Exp','Model')
xlabel('时间t, s')
ylabel('浓度C_A, mol/L')
% 参数辨识结果
fprintf('Estimated Parameters:\n')
fprintf('\tk1 = %.4f ± %.4f\n',beta(1),ci(1,2)-beta(1))
fprintf('\tk2 = %.4f ± %.4f\n',beta(2),ci(2,2)-beta(2))
% ------------------------------------------------------------------
function f = OptObjFunc(beta,tspan,CA0,CAm)
[t CAc] = ode45(@KineticsEqs,tspan,CA0,[],beta);
f = CAc - CAm;
% ------------------------------------------------------------------
function dCAdt = KineticsEqs(t,CA,CB,CC,beta)
dCAdt = beta(1)*CA*CB-beta(2)*CC;            % k1= beta(1), k2= beta(2)

[ Last edited by nono2009 on 2009-9-23 at 21:15 ]
回复此楼

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

matlab

» 猜你喜欢

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

apolloking

金虫 (小有名气)

★ ★ ★
小木虫(金币+0.5):给个红包,谢谢回帖交流
sunxiao(金币+2,VIP+0):鼓励新虫参与讨论 7-18 05:29
楼主应用的是间歇式反应器吧
所以能够得到不同时刻的浓度值
8楼2009-07-17 18:58:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

allenhero1228

金虫 (小有名气)

★ ★
woshilsh(金币+2,VIP+0):thanks for your help!
你的目标函数是KineticsEqs(t,CA,CB,CC,beta),beta是你要拟合的参数,剩下的是形参,需要你输入。以你现在的顺序在计算过程中可能是这样,tspan赋给t,CA0赋给CA,CAM赋给CB,CBm赋给CC,CCm赋给beta,这样程序里面就没有你要拟合的参数,程序就没法进行计算。
好像是应该把beta放在最前面
以上是我的想法,不知道对不对,希望后面有牛人给你正确详细的回答
另外建议你把matlab中给你的错误提示也发上来
2楼2008-12-11 12:33:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuyong2007

金虫 (小有名气)

mat;ab提示错误信息,希望高手给我改改

??? Error using ==> optim\private\lsqncommon
User supplied function ==> OptObjFunc
failed with the following error:

Error using ==> KineticsEst1_int22>OptObjFunc
Too many input arguments.

Error in ==> lsqnonlin at 163
[x,Resnorm,FVAL,EXITFLAG,OUTPUT,LAMBDA,JACOB] = ...

Error in ==> KineticsEst1_int22 at 17
[beta,resnorm,resid,exitflag,output,lambda,jacobian] = ...
3楼2008-12-11 12:41:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

allenhero1228

金虫 (小有名气)


coldwind042(金币+1,VIP+0):谢谢帮助!
你试试把beta放在最前面,然后在global中把CA CB CC加上,而且我看你想把CA0,CAm,CBm,CCm都赋给函数,但函数里面只有三个形参,是不是应该把CA0,CAm,CBm,CCm中的某个变量给去了
4楼2008-12-11 13:06:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见