| 6 | 1/1 | 返回列表 |
| 查看: 2042 | 回復: 5 | |||
霧隱村的白新蟲 (初入文壇)
|
[求助]
matlab模擬微分方程參數(shù)求助各位大佬 已有1人參與
|
|
反應(yīng)動力學方程: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]; 求解參數(shù) k1,k2; 1stopt沒有軟件條件,所以只能寄希望于matlab。 請教各位大佬matlab代碼怎么寫,感激不盡。! |
版主 (知名作家)

新蟲 (初入文壇)
送紅花一朵 |
模仿代碼修改如下: 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,已將第一個數(shù)據(jù)取出作為下面的初始值 k0=[0.002 0.003]; %猜測初值 y0=4.826; % 初始狀態(tài) lb=[0 0 ]; % 參數(shù)下限 ub=[1 1]; % 參數(shù)上限 yy=[y0 yexp']; % 未給定初始值,則第一行作為初始值 % 使用函數(shù)fmincon()進行參數(shù)估計 [k,fval,flag] = fmincon(@ObjFunc4Fmincon,k0,[],[],[],[],lb,ub,[],[],y0,yexp); fprintf('\n使用函數(shù)fmincon()估計得到的參數(shù)值為:\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; % 這一步通常被省略,通過反復迭代初始值得到最優(yōu)解,加上后可以降低對初始值的依賴。 % 以函數(shù)fmincon()估計得到的結(jié)果為初值,使用函數(shù)lsqnonlin()進行參數(shù)估計 % 需要指出,這種方法并非在所有場合均有效,但有時確實可以改善求解效果。 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()的結(jié)果為初值,使用函數(shù)lsqnonlin()估計得到的參數(shù)值為:\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); %用于計算的步長,步數(shù)可比實際數(shù)據(jù)多 [ts,ys]=ode45(@KineticEqs,ts,y0,[],k); %微分方程求解 [ttt,XXsim] = ode45(@KineticEqs,tspan,y0,[],k); %指定點微分方程求解 y=XXsim(2:end); % 與實際數(shù)數(shù)據(jù)維數(shù)保持一致 R2=1-sum((yexp-y).^2)./sum((yexp-mean(y)).^2); fprintf('\n\t決定系數(shù)R-Square = %.6f',R2); figure plot(ts,ys,'b',tspan,yy,'or'),legend('計算值','實驗值','Location','best'); xlabel('時間');ylabel('計算結(jié)果'); % ------------------------------------------------------------------ function f = ObjFunc4Fmincon(k,x0,yexp) tspan = 0 : 1 : 8; % ts=0:1:max(tspan); [t,Xsim] = ode45(@KineticEqs,tspan,x0,[],k); % ode45函數(shù)參數(shù)傳遞的調(diào)用形式 y = Xsim(2:end); % 對應(yīng)實驗數(shù)據(jù) yexp f = sum((y-yexp).^2); % 計算平方和,供fmincon調(diào)用 %--------------------------------------------------------- function f = ObjFunc4LNL(k,x0,yexp) % lsqnonlin目標函數(shù) tspan = 0: 1 : 8; [t,Xsim] = ode45(@KineticEqs,tspan,x0,[],k); ysim = Xsim(2:end); % 確保維數(shù)一致 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 --------------------------------------------------------------------- 使用函數(shù)fmincon()估計得到的參數(shù)值為: k1 = 0.0203 k2 = 0.0021 The sum of the squares is: 9.6e-01 出現(xiàn)了一些錯誤: Error using - Matrix dimensions must agree. Error in ODEfunction (line 36) R2=1-sum((yexp-y).^2)./sum((yexp-mean(y)).^2); 也沒有擬合的圖表出現(xiàn)。 您有時間看看是什么問題么? |
版主 (知名作家)
|
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,已將第一個數(shù)據(jù)取出作為下面的初始值 k0=[0.002 0.003]; %猜測初值 y0=4.826; % 初始狀態(tài) lb=[0 0 ]; % 參數(shù)下限 ub=[1 1]; % 參數(shù)上限 [k,resnorm] =lsqnonlin(@ObjFunc4LNL,k0,lb,ub,[],y0,yexp); fprintf('\n\n使用函數(shù)lsqnonlin()估計得到的參數(shù)值為:\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); %用于計算的步長,步數(shù)可比實際數(shù)據(jù)多 [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決定系數(shù)R^2 = %.6f',R2); figure plot(ts,ys,'b',tspan,yexp,'or'),legend('計算值','實驗值','Location','best'); xlabel('時間');ylabel('計算結(jié)果'); % ------------------------------------------------------------------ %--------------------------------------------------------- function f = ObjFunc4LNL(k,x0,yexp) % lsqnonlin目標函數(shù) [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 |

新蟲 (初入文壇)
木蟲 (著名寫手)
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研]
|
15779376950 2026-03-01 | 8/400 |
|
|---|---|---|---|---|
|
[考研] 301求調(diào)劑 +3 | 李LJR 2026-03-04 | 3/150 |
|
|
[考研] 一志愿314求調(diào)劑 +7 | 202111120625 2026-03-03 | 7/350 |
|
|
[考研] 290求調(diào)劑 +3 | Bananaiy 2026-03-04 | 3/150 |
|
|
[考研] 能動297求調(diào)劑,本科川大 +4 | 邵11 2026-03-04 | 4/200 |
|
|
[考研] 304分材料專碩求調(diào)劑 +8 | qiuzhigril 2026-03-03 | 10/500 |
|
|
[考研] 331求調(diào)劑 +3 | zzZ&zZ 2026-03-03 | 3/150 |
|
|
[考研] 材料工程269求調(diào)劑 +7 | 白刺玫 2026-03-02 | 7/350 |
|
|
[考研] 291求調(diào)劑 +4 | Afy123456 2026-03-03 | 7/350 |
|
|
[考博] 26申博 求博導 +3 | 愛讀書的小帥 2026-02-28 | 5/250 |
|
|
[考研] 中國林科院林化所(南京)2026年招收化學/材料/環(huán)境工程等背景碩士研究生3名 +3 | realstar2006 2026-02-27 | 3/150 |
|
|
[考研] 085700資環(huán)求調(diào)劑,初始279,六級已過,英語能力強 +3 | 085700資環(huán)調(diào)劑 2026-03-03 | 4/200 |
|
|
[考研] 成績276,專業(yè)代碼0856求調(diào)劑 +7 | 小陳朵 2026-03-03 | 7/350 |
|
|
[考研] 291求調(diào)劑 +3 | MuoLuo1312 2026-03-02 | 6/300 |
|
|
[考研] 求調(diào)劑 +7 | repeatt?t 2026-02-28 | 7/350 |
|
|
[考研] 285求調(diào)劑 +9 | 滿頭大汗的學生 2026-02-28 | 9/450 |
|
|
[考研] 0856材料求調(diào)劑 +12 | hyf hyf hyf 2026-02-28 | 13/650 |
|
|
[考研] 材料復試調(diào)劑 +5 | 學材料的點 2026-03-01 | 6/300 |
|
|
[考研] 調(diào)劑 +3 | 13853210211 2026-03-02 | 4/200 |
|
|
[考研] 311求調(diào)劑 +6 | 亭亭亭01 2026-03-01 | 6/300 |
|