| 2 | 1/1 | 返回列表 |
| 查看: 725 | 回復: 1 | ||
| 【懸賞金幣】回答本帖問題,作者臣本布衣將贈送您 150 個金幣 | ||
臣本布衣新蟲 (初入文壇)
|
[求助]
求助matlab進行反應動力學擬合,大神幫忙看看代碼哪里有問題 已有1人參與
|
|
|
動力學方程如下: (dC_A)/dt=-(k_1+k_2)*K_A*C_A/(1+K_A*C_A+K_B*C_B+K_C*C_C+K_D*C_D+K_E*C_E) (dC_B)/dt=k_1*K_A*C_A/(1+K_A*C_A+K_B*C_B+K_C*C_C+K_D*C_D+K_E*C_E) (dC_C)/dt=(k_2*K_A*C_A-(k_3+k_4)*K_C*C_C+k_5*K_E*C_E)/(1+K_A*C_A+K_B*C_B+K_C*C_C+K_D*C_D+K_E*C_E) (dC_D)/dt=k_3*K_C*C_C/(1+K_A*C_A+K_B*C_B+K_C*C_C+K_D*C_D+K_E*C_E) (dC_E)/dt=(k_4*K_C*C_C-k_5*K_E*C_E)/(1+K_A*C_A+K_B*C_B+K_C*C_C+K_D*C_D+K_E*C_E) 用matlab語言的ode45解算子求上述微分方程組,以各物質(zhì)濃度計算值和實驗值的殘差平方和為目標函數(shù),用lsqnonline解算子求解上述最優(yōu)化問題。 代碼如下: function piadatfit clc; clear all; close all; %己烯異構(gòu)化反應動力學數(shù)據(jù)擬合%輸入實驗數(shù)據(jù) tspan=[0 30 36 45 60 90 180]; cexp=[0.84691 0 0 0 0; 0.65164 0 0.10305 0.02491 0.00485; 0.65409 0 0.11407 0.02995 0.00681; 0.60309 0 0.14508 0.03510 0.00949; 0.08397 0 0.65655 0.04303 0.01346; 0.05952 0.00752 0.61224 0.05047 0.01814; 0 0.05346 0.53471 0.06414 0.02753]; c0=[0.84691 0 0 0 0]; %輸入?yún)?shù)初值及范圍 k0=[0.1 2 0.05 0.05 0.05 0.3 0.3 0.3 0.1 0.1]; lb=[0 0 0 0 0 0 0 0 0 0]; ub=[10 10 10 10 10 10 10 10 10 10]; %非線性最小二乘擬合 options.algorithm = 'levenberg-marquardt'; [k,resnorm,residual,exitflag,output,lambda,jacobian]=lsqnonlin(@objpia,k0,lb,ub,options,cexp,tspan,c0) %擬合結(jié)果標繪 [tplot,cplot]=ode45(@piakin,tspan,c0,[],k); plot(tspan,cexp(:,1),'bx',tplot,cplot(:,1),'b-',tspan,cexp(:,2),'ko',tplot,cplot(:,2),'k-',tspan,cexp(:,3),'g*',tplot,cplot(:,3),'g-',tspan,cexp(:,4),'rs',tplot,cplot(:,4),'r-',tspan,cexp(:,5),'cd',tplot,cplot(:,5),'c-') xlabel('time(min)') ylabel('concentration(mol/l)') legend('caexp','cacal','cbexp','cbcal','ccexp','cccal','cdexp','cdcal','ceexp','cecal') function f=objpia(k0,cexp,tspan,c0) %最小二乘擬合目標函數(shù) [t,c]=ode45(@piakin,tspan,c0,[],k0); f1=c(:,1)-cexp(:,1); f2=c(:,2)-cexp(:,2); f=[f1;f2]; function dcdt=piakin(t,c,k) %反應動力學方程 r1=k(1)*k(6)*c(1)/(1+k(6)*c(1)+k(7)*c(2)+k(8)*c(3)+k(9)*c(4)+k(10)*c(5)); r2=k(2)*k(6)*c(1)/(1+k(6)*c(1)+k(7)*c(2)+k(8)*c(3)+k(9)*c(4)+k(10)*c(5)); r3=k(3)*k(8)*c(3)/(1+k(6)*c(1)+k(7)*c(2)+k(8)*c(3)+k(9)*c(4)+k(10)*c(5)); r4=k(4)*k(8)*c(3)/(1+k(6)*c(1)+k(7)*c(2)+k(8)*c(3)+k(9)*c(4)+k(10)*c(5)); r5=k(5)*k(10)*c(5)/(1+k(6)*c(1)+k(7)*c(2)+k(8)*c(3)+k(9)*c(4)+k(10)*c(5)); dcdt(1)=-r1-r2; dcdt(2)=r1; dcdt(3)=r2-r3-r4+r5; dcdt(4)=r3; dcdt(5)=r4-r5; dcdt=dcdt'; matlab小白,程序是模仿教材寫的,應該存在不少問題,請大神幫忙修改一下! |

鐵桿木蟲 (職業(yè)作家)
|
微分方程擬合問題,1stOpt試試,更簡單、方便: Sum Squared Error (SSE): 0.257211769123463 Root of Mean Square Error (RMSE): 0.0925944147205909 Correlation Coef. (R): 0.867645804757432 R-Square: 0.752809242513172 Parameter Best Estimate --------- ------------- k1 0.00075219124176959 k2 0.0093680714188618 k3 0.0883840107805217 k4 9.99999999961713 k5 9.99999999989503 k6 9.99999999999999 k7 4.61483024965692E-14 k8 0.0268675102514994 k9 5.40027468998149E-19 k10 0.307240694154773 |
| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085701環(huán)境工程 求調(diào)劑 +3 | xiiiia 2026-03-04 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 298求調(diào)劑一志愿中海洋 +3 | lour. 2026-03-03 | 3/150 |
|
|
[考研] 085600材料與化工調(diào)劑 280分 +10 | yyqqhh 2026-03-03 | 10/500 |
|
|
[基金申請] 沒有青基直接申請面上,感覺自己瘋了 +5 | kevin63t 2026-03-02 | 6/300 |
|
|
[考研] 085602化學工程350,調(diào)劑,有沒有211的 +5 | 利好利好. 2026-03-02 | 9/450 |
|
|
[考研] 環(huán)境調(diào)劑 +5 | 柒槿levana 2026-03-01 | 5/250 |
|
|
[考研] 299求調(diào)劑 +5 | kkcoco25 2026-03-02 | 9/450 |
|
|
[考研] 材料類考研調(diào)劑 +6 | gemmgemm 2026-03-01 | 7/350 |
|
|
[考研]
材料325求調(diào)劑
30+3
|
mariusuki 2026-03-02 | 7/350 |
|
|
[考研] 271求調(diào)劑 +4 | Ricardo1113 2026-03-02 | 4/200 |
|
|
[考研] 338求調(diào)劑 +5 | 18162027187 2026-03-02 | 6/300 |
|
|
[考研] 290分材料工程085601求調(diào)劑 數(shù)二英一 +8 | llx0610 2026-03-02 | 9/450 |
|
|
[考研] 321求調(diào)劑一志愿東北林業(yè)大學材料與化工英二數(shù)二 +5 | 蟲蟲蟲蟲蟲7 2026-03-01 | 9/450 |
|
|
[考研] 085600求調(diào)劑 +4 | LRZZZZZZ 2026-03-02 | 5/250 |
|
|
[考研] 材料工程274求調(diào)劑 +5 | Lilithan 2026-03-01 | 5/250 |
|
|
[考研] 材料類求調(diào)劑 +11 | wana_kiko 2026-02-28 | 14/700 |
|
|
[考研] 279求調(diào)劑 +3 | dua1 2026-03-01 | 4/200 |
|
|
[碩博家園] 博士自薦 +7 | 科研狗111 2026-02-26 | 11/550 |
|
|
[考研] 0856材料求調(diào)劑 +4 | 麻辣魷魚 2026-02-28 | 4/200 |
|
|
[考研] 317一志愿華南理工電氣工程求調(diào)劑 +6 | Soliloquy_Q 2026-02-28 | 11/550 |
|