| 查看: 1206 | 回復(fù): 10 | |||
njhx505木蟲 (正式寫手)
|
[交流]
【求助】30金幣求一程序 已有4人參與
|
![]() 請(qǐng)各位高手幫個(gè)忙,CA,CB是不同時(shí)間測(cè)得濃度值,求k1,k2 ![]() 數(shù)據(jù)給出,希望高手可以幫忙,謝謝 [ Last edited by njhx505 on 2010-6-4 at 19:42 ] |
木蟲 (小有名氣)
Matlab

鐵桿木蟲 (著名寫手)
方丈大師
鐵桿木蟲 (著名寫手)
方丈大師
木蟲 (正式寫手)
|
(2)式*2+(1)式得到 dCA(t)/dt+2*dCB(t)/dt=0; 在任意小區(qū)間[t0,t]積分得到:CA(t)+2*CB(t)=const ....(*)式 計(jì)算一下你表格中的數(shù)據(jù),不滿足是常數(shù)。至于怎么處理,或者重新采集數(shù)據(jù)或者像你提到的滿足某種最優(yōu)。 另外: 將(*)式代入到上面其中一個(gè)方程比如(1)得到: dCA/dt=-k1*CA^2-k2*CA+const; 這個(gè)方程建議還是數(shù)值求解比較方便,比如向前歐拉,向后歐拉方法等等,要想得到高精度的就用Runge-Kutta。 |
木蟲 (正式寫手)
鐵桿木蟲 (著名寫手)
方丈大師
|
你給的CA數(shù)據(jù)有問題 按照你的微分方程式可以得到一下關(guān)系: CA-CA0=-2*(CB-CB0) 所以我認(rèn)為你的數(shù)據(jù)擬合只需要 t=0時(shí)的 CA0 CB0 以及一組CA值或者CB值就可以了。 當(dāng)然CA,CB數(shù)據(jù)都有的話,可以驗(yàn)證你的數(shù)據(jù)的準(zhǔn)確性 [ Last edited by change0618 on 2010-6-5 at 15:02 ] |
木蟲 (正式寫手)
鐵桿木蟲 (著名寫手)
方丈大師
|
給你一個(gè)程序,但是數(shù)據(jù)不是你的,自己修改去吧 function Kinetics % 動(dòng)力學(xué)ODE方程模型的參數(shù)估計(jì) clear all clc ExpData = ... [ 0 0.1883 0.0100 0.2047 0.0200 0.2181 0.0300 0.2291 0.0400 0.2382 0.0500 0.2459 0.0600 0.2523 0.0700 0.2576 0.0800 0.2622 0.0900 0.2660 0.1000 0.2692 0.1100 0.2719 0.1200 0.2742 0.1300 0.2761 0.1400 0.2777 0.1500 0.2790 0.1600 0.2801 0.1700 0.2811 0.1800 0.2819 0.1900 0.2825 0.2000 0.2830 ]; t = ExpData(:,1); % ExpData第一列為時(shí)間 CB = ExpData(:,2); % ExpData第二列為組分B的濃度 CB0 = CB(1); % t=0時(shí),組分B初始濃度 CA0 = 0.8; % t=0時(shí),組分A初始濃度 CA = CA0-2*(ExpData(:,2)-CB0); % 由微分方程式導(dǎo)出來的CA與CB關(guān)系式 k0 = [20 50]; % 估值參數(shù)的猜想值 lb = [0 0]; % 設(shè)定的估值參數(shù)上限 ub = [+inf +inf]; % 設(shè)定的估值參數(shù)下限 [k,resnorm,residual,exitflag,output,lambda,jacobian] = ... lsqnonlin(@ObjFunc,k0,lb,ub,[],t,[CA0,CB0],[CA,CB]); ci = nlparci(k,residual,jacobian); % 計(jì)算置信區(qū)間 fprintf('\n\n估計(jì)參數(shù)值為:\n') fprintf('\tk1 = %.6f\t置信區(qū)間:[%.6f %.6f]\n',k(1),ci(1,: )) fprintf('\tk2 = %.6f\t置信區(qū)間:[%.6f %.6f]\n',k(2),ci(2,: )) tt = linspace(t(1),t(end),101); [tt C] = ode45(@KineticEqs,tt,[CA0,CB0],[],k); % 由估值k計(jì)算時(shí)間序列tt下的A,B濃度 figure(1) plot(t,CA,'o',tt,C(:,1),'r-') xlabel('t'); ylabel('C_A') figure(2) plot(t,CB,'o',tt,C(:,2),'r-') xlabel('t'); ylabel('C_B') % ------------------------------------------------------------------ function f = ObjFunc(k,tspan,x0,yexp) [t,y] = ode45(@KineticEqs,tspan,x0,[],k); f = y(: ) - yexp(: ); % ------------------------------------------------------------------ function dxdt = KineticEqs(t,x,k) dxdt =[-k(1)*x(1)^2+2*k(2)*x(2); 0.5*k(1)*x(1)^2-k(2)*x(2)]; [ Last edited by change0618 on 2010-6-5 at 18:23 ] |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 354求調(diào)劑 +3 | Tyoumou 2026-03-18 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 314求調(diào)劑 +8 | 無懈可擊的巨人 2026-03-12 | 8/400 |
|
|
[考研] 311求調(diào)劑 +11 | 冬十三 2026-03-15 | 12/600 |
|
|
[考研] 材料專碩306英一數(shù)二 +10 | z1z2z3879 2026-03-16 | 13/650 |
|
|
[考研] 0703化學(xué)336分求調(diào)劑 +6 | zbzihdhd 2026-03-15 | 7/350 |
|
|
[考研] 328求調(diào)劑,英語六級(jí)551,有科研經(jīng)歷 +3 | 生物工程調(diào)劑 2026-03-16 | 8/400 |
|
|
[考研] 301求調(diào)劑 +4 | A_JiXing 2026-03-16 | 4/200 |
|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑,一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 | 8/400 |
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +5 | d如愿上岸 2026-03-12 | 8/400 |
|
|
[考研] 070303 總分349求調(diào)劑 +3 | LJY9966 2026-03-15 | 5/250 |
|
|
[考研] 289求調(diào)劑 +4 | 這么名字咋樣 2026-03-14 | 6/300 |
|
|
[基金申請(qǐng)] 現(xiàn)在如何回避去年的某一個(gè)專家,不知道名字 +3 | zk200107 2026-03-12 | 6/300 |
|
|
[考研] 學(xué)碩285求調(diào)劑 +13 | Wisjxn 2026-03-12 | 46/2300 |
|
|
[考研] 266求調(diào)劑 +4 | 學(xué)員97LZgn 2026-03-13 | 4/200 |
|
|
[考研] 0856材料與化工301求調(diào)劑 +5 | 奕束光 2026-03-13 | 5/250 |
|
|
[考研] 304求調(diào)劑 +7 | 7712b 2026-03-13 | 7/350 |
|
|
[考研] 311求調(diào)劑 +3 | 冬十三 2026-03-13 | 3/150 |
|
|
[考研] 307求調(diào)劑 +5 | 超級(jí)伊昂大王 2026-03-12 | 5/250 |
|
|
[考研] 工科材料085601 279求調(diào)劑 +8 | 困于星晨 2026-03-12 | 10/500 |
|