| 查看: 2456 | 回复: 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代码怎么写，感激不尽！！！ |
回复此楼» 猜你喜欢
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有95人回复
-
深圳大学应用技术学院招聘凝聚态物理博士后
已经有121人回复
-
求助中医院临床中医中标的青年标书学习，谢谢
已经有5人回复
-
浙大物院表面物理课题组长期招收普博及直博学生
已经有259人回复
-
【征稿】Springer Nature热电专题 Discover Materials / Discover Chemistry
已经有47人回复
-
25届硕士申请，材料计算方向
已经有2人回复
-
课题组招1-2名硕士
已经有1人回复
-
机时越来越贵之后，我把一部分 DFT 流程搬到了 AI 计算平台上
已经有0人回复
送红花一朵 |
模仿代码修改如下： 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
5楼2019-12-16 14:34:31