| 查看: 2381 | 回复: 5 | ||
[求助]
matlab模拟微分方程参数求助各位大佬 已有1人参与
|
|
反应动力学方程：dC/dt=-k1*c*(2.413+C)+k2*(4.826-C)^2; t=[0 15 30 45 60 75 90 120]; C=[4.826 4.206045728 3.081681077 2.582976758 2.368099268 2.296997119 2.259547446 2.221752483]; 求解参数 k1,k2； 1stopt没有软件条件，所以只能寄希望于matlab。 请教各位大佬matlab代码怎么写，感激不尽！！！ |
回复此楼» 猜你喜欢
各位大佬，求一份最新Wien2k版本作为学习用途
已经有0人回复
-
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后
已经有523人回复
-
物理学I论文润色/翻译怎么收费?
已经有64人回复
-
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有130人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
独孤神宇
版主 (知名作家)
- 应助: 490 (硕士)
- 贵宾: 0.008
- 金币: 31016.3
- 散金: 802
- 红花: 122
- 沙发: 1
- 帖子: 5600
- 在线: 856.5小时
- 虫号: 3522474
- 注册: 2014-11-06
- 性别: GG
- 专业: 机械动力学
- 管辖: 计算模拟
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
感谢参与，应助指数 +1
雾隐村的白: 金币+100, ★★★很有帮助 2019-12-16 13:21:59
感谢参与，应助指数 +1
雾隐村的白: 金币+100, ★★★很有帮助 2019-12-16 13:21:59
» 本帖已获得的红花（最新10朵）
2楼2019-12-16 10:21:29
送红花一朵 |
模仿代码修改如下： function ODEfunction clear all;clc format long tspan=[0 15 30 45 60 75 90 120]; % size=1*8 yexp=[4.826 4.206045728 3.081681077 2.582976758 2.368099268 2.296997119 2.259547446 2.221752483]'; % size=8*1,已将第一个数据取出作为下面的初始值 k0=[0.002 0.003]; %猜测初值 y0=4.826; % 初始状态 lb=[0 0 ]; % 参数下限 ub=[1 1]; % 参数上限 yy=[y0 yexp']; % 未给定初始值，则第一行作为初始值 % 使用函数fmincon()进行参数估计 [k,fval,flag] = fmincon(@ObjFunc4Fmincon,k0,[],[],[],[],lb,ub,[],[],y0,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; % 这一步通常被省略，通过反复迭代初始值得到最优解，加上后可以降低对初始值的依赖。 % 以函数fmincon()估计得到的结果为初值，使用函数lsqnonlin()进行参数估计 % 需要指出，这种方法并非在所有场合均有效，但有时确实可以改善求解效果。 k0 = k_fmincon; [k,resnorm,residual,exitflag,output,lambda,jacobian] = ... lsqnonlin(@ObjFunc4LNL,k0,lb,ub,[],y0,yexp); ci = nlparci(k,residual,jacobian); fprintf('\n\n以fmincon()的结果为初值，使用函数lsqnonlin()估计得到的参数值为:\n') fprintf('\tk1 = %.4f ± %.4f\n',k(1),ci(1,2)-k(1)) fprintf('\tk2 = %.4f ± %.4f\n',k(2),ci(2,2)-k(2)) fprintf('The sum of the squares is: %.1e\n\n',resnorm) %--------------------------------------------------------------------- ts=0:0.5:max(tspan); %用于计算的步长，步数可比实际数据多 [ts,ys]=ode45(@KineticEqs,ts,y0,[],k); %微分方程求解 [ttt,XXsim] = ode45(@KineticEqs,tspan,y0,[],k); %指定点微分方程求解 y=XXsim(2:end); % 与实际数数据维数保持一致 R2=1-sum((yexp-y).^2)./sum((yexp-mean(y)).^2); fprintf('\n\t决定系数R-Square = %.6f',R2); figure plot(ts,ys,'b',tspan,yy,'or'),legend('计算值','实验值','Location','best'); xlabel('时间');ylabel('计算结果'); % ------------------------------------------------------------------ function f = ObjFunc4Fmincon(k,x0,yexp) tspan = 0 : 1 : 8; % ts=0:1:max(tspan); [t,Xsim] = ode45(@KineticEqs,tspan,x0,[],k); % ode45函数参数传递的调用形式 y = Xsim(2:end); % 对应实验数据 yexp f = sum((y-yexp).^2); % 计算平方和，供fmincon调用 %--------------------------------------------------------- function f = ObjFunc4LNL(k,x0,yexp) % lsqnonlin目标函数 tspan = 0: 1 : 8; [t,Xsim] = ode45(@KineticEqs,tspan,x0,[],k); ysim = Xsim(2:end); % 确保维数一致 f=ysim-yexp; %---------------------------------------------------------- function dydt = KineticEqs(t,y,k) % 微分方程 beta(1)=k(1); beta(2)=k(2); dydt = -beta(1)*y*(2.413+y)+beta(2)*(4.826-y)^2; %code end --------------------------------------------------------------------- 使用函数fmincon()估计得到的参数值为: k1 = 0.0203 k2 = 0.0021 The sum of the squares is: 9.6e-01 出现了一些错误： Error using - Matrix dimensions must agree. Error in ODEfunction (line 36) R2=1-sum((yexp-y).^2)./sum((yexp-mean(y)).^2); 也没有拟合的图表出现。 您有时间看看是什么问题么？ |
3楼2019-12-16 11:28:42
独孤神宇
版主 (知名作家)
- 应助: 490 (硕士)
- 贵宾: 0.008
- 金币: 31016.3
- 散金: 802
- 红花: 122
- 沙发: 1
- 帖子: 5600
- 在线: 856.5小时
- 虫号: 3522474
- 注册: 2014-11-06
- 性别: GG
- 专业: 机械动力学
- 管辖: 计算模拟
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ...
雾隐村的白: 金币+100, ★★★★★最佳答案 2019-12-16 14:34:45
雾隐村的白: 金币+100, ★★★★★最佳答案 2019-12-16 14:34:45
|
function ODEfunction_12_16 clear all;clc format long tspan=[0 15 30 45 60 75 90 120]; % size=1*8 yexp=[4.826 4.206045728 3.081681077 2.582976758 2.368099268 2.296997119 2.259547446 2.221752483]'; % size=8*1,已将第一个数据取出作为下面的初始值 k0=[0.002 0.003]; %猜测初值 y0=4.826; % 初始状态 lb=[0 0 ]; % 参数下限 ub=[1 1]; % 参数上限 [k,resnorm] =lsqnonlin(@ObjFunc4LNL,k0,lb,ub,[],y0,yexp); 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) %--------------------------------------------------------------------- ts=0:1:max(tspan); %用于计算的步长，步数可比实际数据多 [ts,ys]=ode45(@KineticEqs,ts,y0,[],k); %微分方程求解 [ttt,XXsim] = ode45(@KineticEqs,tspan,y0,[],k); %指定点微分方程求解 R2=1-sum((yexp-XXsim).^2)./sum((yexp-mean(XXsim)).^2); fprintf('\n\t决定系数R^2 = %.6f',R2); figure plot(ts,ys,'b',tspan,yexp,'or'),legend('计算值','实验值','Location','best'); xlabel('时间');ylabel('计算结果'); % ------------------------------------------------------------------ %--------------------------------------------------------- function f = ObjFunc4LNL(k,x0,yexp) % lsqnonlin目标函数 [t,Xsim] = ode45(@KineticEqs,tspan,x0,[],k); f=Xsim-yexp; end %---------------------------------------------------------- function dydt = KineticEqs(t,y,k) % 微分方程 beta(1)=k(1); beta(2)=k(2); dydt = -beta(1)*y*(2.413+y)+beta(2)*(4.826-y)^2; end end |
» 本帖已获得的红花（最新10朵）
4楼2019-12-16 13:51:12
5楼2019-12-16 14:34:31
_romantic_镇
木虫 (著名写手)
- 应助: 2 (幼儿园)
- 金币: 3299
- 散金: 387
- 红花: 6
- 帖子: 1221
- 在线: 677.8小时
- 虫号: 3186948
- 注册: 2014-05-07
- 专业: 化学工程及工业化学
6楼2021-04-24 10:45:51
