| 查看: 2043 | 回复: 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代码怎么写，感激不尽！！！ |
回复此楼» 猜你喜欢
西安电子科学大学杭州研究院刘丽香教授招收智能多模态传感器和微型储能器件方向博士
已经有13人回复
-
重庆交通大学光子学微结构与器件课题组招收2026年硕士研究生信息
已经有1人回复
-
物理学I论文润色/翻译怎么收费?
已经有107人回复
-
一志愿郑大材料学硕298分，求调剂
已经有6人回复
-
寻合作：应力腐蚀多尺度模拟
已经有3人回复
-
考研交流
已经有0人回复
-
【新加坡】纳米电子器件项目组有“联合培养博士生”名额
已经有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
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 (幼儿园)
- 金币: 3339
- 散金: 387
- 红花: 6
- 帖子: 1221
- 在线: 677小时
- 虫号: 3186948
- 注册: 2014-05-07
- 专业: 化学工程及工业化学
6楼2021-04-24 10:45:51
