 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 2/1 | 返回列表 |
| 查看: 2249 | 回復(fù): 10 | |||
| 【懸賞金幣】回答本帖問題，作者Evoly_z將贈送您 88 個金幣 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
Evoly_z銀蟲 (小有名氣)
|
[求助]
求助代謝動力學(xué)系數(shù)模擬代碼 1stOpt或者MATLAB 已有3人參與
|
||
 求代謝動力學(xué)系數(shù)模擬一級代謝物的動力學(xué)方程：dC2/dt=k1*C1-k2*C2 初始條件：t=0，C2=0 且C1=exp（-A*t）。A=0.2779 我嘗試了用1stOpt(破解版)和MATLAB ODE方法，都沒成功，想請教一下大神。 另外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()估計得到的參數(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('計算值','實驗值','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的，沒有做修改) %--------------------------------------------------------- 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; 求求啦，被這個問題卡了兩個多月了，不知道怎么解出k1 k2 |
回復(fù)此樓» 猜你喜歡
幫我的英語口語老師找學(xué)生
已經(jīng)有4人回復(fù)
-
計算三階力常數(shù)用thirdorder擴胞時參數(shù)如何選擇？臨近原子數(shù)怎么取值
已經(jīng)有7人回復(fù)
-
物理學(xué)I論文潤色/翻譯怎么收費?
已經(jīng)有68人回復(fù)
-
2026年循環(huán)經(jīng)濟功能材料國際會議（ICFMCE 2026）
已經(jīng)有0人回復(fù)
-
2026年第五屆電氣、電子與信息工程國際會議（ISEEIE 2026）
已經(jīng)有0人回復(fù)
-
哈爾濱理工大學(xué)物理系招收物理學(xué)考研調(diào)劑
已經(jīng)有1人回復(fù)
-
0702一志愿吉大B區(qū)求調(diào)劑
已經(jīng)有2人回復(fù)
-
求調(diào)劑
已經(jīng)有0人回復(fù)
-
0702一志愿吉大B區(qū)求調(diào)劑有論文
已經(jīng)有0人回復(fù)
-
請問還有沒有用Latex寫文章的小伙伴們？
已經(jīng)有0人回復(fù)
【答案】應(yīng)助回帖
|
用OpenLu求解，Lu腳本代碼： !!!using["luopt","math"]; //使用命名空間 f(x,y,dy, params::k1,k2)= { dy=k1*(0.701*exp(-3.211*x)+0.299*exp(-0.067*x))-k2*y, 0 //必須返回0 }; 目標(biāo)函數(shù)(_k1,_k2 : i,s,tyz : tyArray,tA,max,k1,k2)= { k1=_k1, k2=_k2, //傳遞優(yōu)化變量 //最后一個參數(shù)50表示gsl_ode函數(shù)在計算時,最多循環(huán)計算50次,這樣可以提高速度 tyz=gsl_ode[@f,nil,0.0,tA,ra1(0), 1e-6, 1e-6, 2, 1e-6,50], i=0, s=0, while{++i<max, s=s+[tyz(i,1)-tyArray(i,1)]^2}, s }; main(::tyArray,tA,max)= { tyArray=matrix{ //存放實驗數(shù)據(jù)xi,yi "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" }, len[tyArray,0,&max], tA=tyArray(all:0), //用len函數(shù)取矩陣的行數(shù)，tA取矩陣的列 Opt1[@目標(biāo)函數(shù)] //Opt1函數(shù)全局優(yōu)化 }; 結(jié)果： 0.1325616120497096 0.358508535326814 3.242596823546582e-003 |
11樓2021-08-09 21:27:36
獨孤神宇
版主 (知名作家)
- 應(yīng)助: 490 (碩士)
- 貴賓: 0.008
- 金幣: 31016.3
- 散金: 802
- 紅花: 122
- 沙發(fā): 1
- 帖子: 5600
- 在線: 856.5小時
- 蟲號: 3522474
- 注冊: 2014-11-06
- 性別: GG
- 專業(yè): 機械動力學(xué)
- 管轄: 計算模擬
【答案】應(yīng)助回帖
感謝參與，應(yīng)助指數(shù) +1
|
參數(shù)擬合C2缺少數(shù)據(jù) 1stOpt容易實現(xiàn)，1.5不支持微分方程擬合，需要下載5.0版本的 發(fā)自小木蟲Android客戶端 |
2樓2021-03-24 07:20:06
Evoly_z
銀蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 109.5
- 帖子: 51
- 在線: 30.9小時
- 蟲號: 2116918
- 注冊: 2012-11-09
- 性別: GG
- 專業(yè): 環(huán)境污染化學(xué)
3樓2021-03-24 11:13:13
dingd
鐵桿木蟲 (職業(yè)作家)
- 計算強帖: 4
- 應(yīng)助: 1641 (講師)
- 金幣: 15037.3
- 散金: 101
- 紅花: 234
- 帖子: 3410
- 在線: 1223.7小時
- 蟲號: 291104
- 注冊: 2006-10-28
4樓2021-03-24 16:12:00
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 271求調(diào)劑 +6 | 生如夏花… 2026-03-11 | 6/300 |
|
|---|---|---|---|---|
|
|
[考研] 274求調(diào)劑0856材料化工 +9 | z2839474511 2026-03-11 | 10/500 |
|
|
[考研] 接受26屆調(diào)劑生 +22 | 豬豬豬毛 2026-03-06 | 23/1150 |
|
|
|
[考研] 290求調(diào)劑 +3 | 柯淮然 2026-03-10 | 8/400 |
|
|
|
[考研] 考研材料與化工，求調(diào)劑 +7 | 戲精丹丹丹 2026-03-09 | 7/350 |
|
|
|
[考研] 材料調(diào)劑，307分 +12 | 張泳銘1 2026-03-09 | 13/650 |
|
|
|
[考研] 標(biāo)題:撿漏預(yù)警|08工科/09農(nóng)學(xué)調(diào)劑!英語要求低，過線即有機會! +7 | 馬超放煙花 2026-03-07 | 12/600 |
|
|
|
[考研] 調(diào)劑 +5 | 呵唔哦豁 2026-03-10 | 5/250 |
|
|
|
[考研] 一志愿湖師大化學(xué)289求調(diào)劑 +5 | XMCMM3.14159 2026-03-10 | 5/250 |
|
|
|
[考研] 材料與化工求調(diào)劑 +11 | 與冬清寧 2026-03-07 | 14/700 |
|
|
|
[考研] 化工284求調(diào)劑 +12 | 小黑想變白 2026-03-07 | 12/600 |
|
|
|
[考研] 085600材料與化工 326 求調(diào)劑 +4 | 熱愛生活ing 2026-03-09 | 4/200 |
|
|
|
[考研] 家人們 調(diào)劑不迷路 看這里 +8 | likeihood 2026-03-09 | 13/650 |
|
|
|
[考研] 085701環(huán)境工程317分求調(diào)劑 +9 | 6汆尼9 2026-03-07 | 9/450 |
|
|
|
[考研] 346分材料求調(diào)劑 +5 | snow_反季節(jié)版 2026-03-07 | 5/250 |
|
|
|
[考研] 誠求調(diào)劑，323分 有專利/科研/實習(xí)經(jīng)歷 +6 | 橙子cyx 2026-03-06 | 8/400 |
|
|
|
[考研] 一志愿哈爾濱工業(yè)大學(xué)0856材料與化工，前三科206，總分283，求調(diào)劑 +7 | 26考研求調(diào)劑 2026-03-06 | 7/350 |
|
|
|
[考研] 287求調(diào)劑 +3 | 看看我. 2026-03-05 | 6/300 |
|
|
|
[考博] 2026申博自薦 六級440電催化方向 +4 | 櫻落成影花成雙 2026-03-05 | 4/200 |
|
|
|
[考研] 紡織、生物、化學(xué)、材料等專業(yè) +3 | Eember. 2026-03-05 | 7/350 |
|