| 24小時(shí)熱門版塊排行榜 |
| 5 | 1/1 | 返回列表 |
| 查看: 2214 | 回復(fù): 10 | |||
| 【懸賞金幣】回答本帖問(wèn)題,作者Evoly_z將贈(zèng)送您 88 個(gè)金幣 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
Evoly_z銀蟲(chóng) (小有名氣)
|
[求助]
求助代謝動(dòng)力學(xué)系數(shù)模擬代碼 1stOpt或者M(jìn)ATLAB 已有3人參與
|
||
![]() ![]() ![]() ![]() 求代謝動(dòng)力學(xué)系數(shù)模擬一級(jí)代謝物的動(dòng)力學(xué)方程:dC2/dt=k1*C1-k2*C2 初始條件:t=0,C2=0 且C1=exp(-A*t)。A=0.2779 我嘗試了用1stOpt(破解版)和MATLAB ODE方法,都沒(méi)成功,想請(qǐng)教一下大神。 另外t不是嚴(yán)格的等差數(shù)列,取值如:t=0,1,2,4,6,10,15,24 1stOpt代碼: Title Kinetic_ave Parameters k1[0,100], k2[0,100]; Variable t, C; StartProgram var i:integer; begin for i:=0 to DataLength -1 do begin if i ==0 C=0; else C:=C[i-1]+k1*(t-t[i-1])*exp(-0.2779 *t) - k2*C*(t-t[i-1]);end; EndProgram; Data; //t C 0 xxx 1 xxx 2 xxx 4 xxx 6 xxx 10 xxx 15 xxx 24 xxx Matlab代碼: function ODE_ave clear all;clc format long aveall; t=T_h( ;yexp=OLEave( ;k0=[1 1]; y0=0; lb=[0 0]; ub=[+inf +inf]; yy=[y0 yexp']; tspan=0:1:24; [k,resnorm,residual,exitflag,output,lambda,jacobian] = ... lsqnonlin(@ObjFunc,k0,lb,ub,[],tspan,y0,yexp); fprintf('\n\n使用函數(shù)lsqnonlin()估計(jì)得到的參數(shù)值為:\n') fprintf('\t待擬合參數(shù) k1 = %.6f\n',k(1)) fprintf('\t待擬合參數(shù) k2 = %.6f\n',k(2)) fprintf(' \t殘差平方和= %.6f\n\n',resnorm) ts=0:1:24; [ts ys]=ode45(@KineticsEqs,ts,y0,[],k); [ttt XXsim] = ode45(@KineticsEqs,tspan,y0,[],k); y=XXsim(2:end); xexp=yexp; R2=1-sum((xexp-y).^2)./sum((xexp-mean(y)).^2); fprintf('\n\t決定系數(shù)R-Square = %.6f',R2); figure(1) plot(ts,ys,'b',tspan,yy,'or'),legend('計(jì)算值','實(shí)驗(yàn)值','Location','best'); yr=y-yexp; figure(2) plot(tspan(2:end),yr,'r*',[-1 15],[0 0]),axis([-1 15 -0.5 0.5]); figure(3) plot(yexp,y,'ro',[21 29],[21 29],'b-'); (作圖這塊兒是copy的,沒(méi)有做修改) %--------------------------------------------------------- function f = ObjFunc(k,tspan,y0,yexp) [t Xsim] = ode45(@KineticsEqs,tspan,y0,[],k) ; ysim = Xsim(2:end); size(ysim); size(yexp); f=ysim(1,1)+ysim(2,1)+ysim(4,1)+ysim(6,1)+ysim(10,1)+ysim(15,1)+ysim(24,1) - sum(yexp(:,1)); %---------------------------------------------------------- function dydt = KineticsEqs(t,y,k) beta(1)=k(1); beta(2)=k(2); dydt = beta(1)*exp(-0.2779*t)-beta(2)*y; 求求啦,被這個(gè)問(wèn)題卡了兩個(gè)多月了,不知道怎么解出k1 k2 |

銀蟲(chóng) (小有名氣)
|
我想買一個(gè)5.0以上版本的,結(jié)果入手了一個(gè)5.0的破解版,這個(gè)程序好像也運(yùn)行不了。 哥你能幫我算一次嗎? Variable x, y; ODEFunction y'= k1*(0.701*exp(-3.211*x)+0.299*exp(-0.067*x))-k2*y; Data; //x, y 0 0 0.33 0.061043 1 0.03675 2 0.05932 4 0.095993 6 0.072057 10 0.05085 15 0.04678 24 0.047673 30 0.034973 48 0.030375 72 0 我按教程寫成這樣了,應(yīng)該沒(méi)問(wèn)題吧?就是算不出結(jié)果。 |

版主 (知名作家)
|
參數(shù)擬合C2缺少數(shù)據(jù) 1stOpt容易實(shí)現(xiàn),1.5不支持微分方程擬合,需要下載5.0版本的 發(fā)自小木蟲(chóng)Android客戶端 |

銀蟲(chóng) (小有名氣)

鐵桿木蟲(chóng) (職業(yè)作家)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 334求調(diào)劑 +6 | Trying] 2026-03-05 | 8/400 |
|
|---|---|---|---|---|
|
[考博] 2026年博士名額撿漏 +4 | 科研ya 2026-03-04 | 5/250 |
|
|
[考研] 274求調(diào)劑 +6 | cgyzqwn 2026-03-01 | 11/550 |
|
|
[考研] 一志愿蘇大材料工程專碩293求調(diào)劑 +3 | 鋼鐵大炮 2026-03-04 | 3/150 |
|
|
[考研] 274求調(diào)劑 +9 | 一個(gè)學(xué)習(xí)者 2026-03-04 | 9/450 |
|
|
[考研] 求調(diào)劑,學(xué)校研究所都可以,材料與化工267分 +6 | wmx1 2026-03-05 | 6/300 |
|
|
[考研] 求材料調(diào)劑 +4 | berdmond 2026-03-05 | 4/200 |
|
|
[考研] 接收調(diào)劑 +19 | 津萌津萌 2026-03-02 | 29/1450 |
|
|
[考研] 沒(méi)上岸的看過(guò)來(lái) +3 | tangxiaotian 2026-03-01 | 5/250 |
|
|
[考研] 0856材料求調(diào)劑 +17 | hyf hyf hyf 2026-02-28 | 18/900 |
|
|
[考研] 295求調(diào)劑 +4 | 小賽不吃香菜 2026-03-04 | 4/200 |
|
|
[考研] 266材料化工求調(diào)劑 +3 | 哇塞王帥 2026-03-03 | 3/150 |
|
|
[考研] 化工專碩348,一志愿985求調(diào)劑 +8 | 弗格個(gè) 2026-02-28 | 11/550 |
|
|
[考研]
|
glwshine 2026-03-02 | 5/250 |
|
|
[考研] 278求調(diào)劑 +3 | 滿天星11_22 2026-03-02 | 3/150 |
|
|
[考研] 材料工程求調(diào)劑 +3 | 1431251 2026-03-03 | 3/150 |
|
|
[考研] 271求調(diào)劑 +4 | Ricardo1113 2026-03-02 | 4/200 |
|
|
[考研] 一志愿華南理工大學(xué)材料與化工326分,求調(diào)劑 +3 | wujinrui1 2026-02-28 | 3/150 |
|
|
[考研] 化工專碩342,一志愿大連理工大學(xué),求調(diào)劑 +6 | kyf化工 2026-02-28 | 7/350 |
|
|
[考研] 調(diào)劑 +3 | 13853210211 2026-03-02 | 4/200 |
|