 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 3 | 1/1 | 返回列表 |
| 查看: 1341 | 回復(fù): 2 | |||
[交流]
【求助】求高手幫看一下程序（泡點溫度計算）
|
|
使用SRK方程和wilson方程計算泡點溫度和組成 m文件中，y（1）是組分1 的氣相組成，y（2）是溫度 m文件如下 function f=myfun(y,x1) p=101325; T1c=579.35;V1c=219E-06;Z1c=0.259;p1c=56.9E+05;w1=0.193; ANTA1=36.6016;ANTB1=-2979.4;ANTC1=-10.104;ANTD1=1.1445E-09;ANTE1=3.2472E-06; T2c=591.79;V2c=315.8e-06;Z2c=0.264;p2c=41.09e+05;w2=0.264; ANTA2=34.0755;ANTB2=-3.0379e+03;ANTC2=-9.1635;ANTD2=1.0289E-11;ANTE2=2.7035E-06; b=[4198.6 -3001.6]; x2=1-x1; p1s=10^(ANTA1+ANTB1/y(2)+ANTC1*log10(y(2))+ANTD1*y(2)+ANTE1*y(2)* y(2))*133.322; p2s=10^(ANTA2+ANTB2/y(2)+ANTC2*log10(y(2))+ANTD2*y(2)+ANTE2*y(2)* y(2))*133.322; SRKa1=0.42748*8.31441*8.31441*T1c*T1c/p1c*(1+(0.480+1.574*w1-0.176*w1^2)*(1-(y(2)/T1c)^0.5))^2; SRKb1=0.08664*8.31441*T1c/p1c; SRKk1=-8.31441*y(2)/p1s; SRKm1=SRKa1/p1s-SRKb1*8.31441*y(2)/p1s-(SRKb1)^2; SRKn1=-SRKa1*SRKb1/p1s; SRKp1=[1 SRKk1 SRKm1 SRKn1]; SRKV1=roots(SRKp1); V1=max(SRKV1); Z1=p1s*V1/8.31441/y(2); fai1s=exp((Z1-1)-log(p1s*(V1-SRKb1)/8.31441/y(2))-SRKa1*log(1+SRKb1/SRKV1)/SRKb1/8.31441/y(2)); SRKa2=0.42748*8.31441*8.31441*T2c*T2c/p2c*(1+(0.480+1.574*w2-0.176*w2^2)*(1-(y(2)/T2c)^0.5))^2; SRKb2=0.08664*8.31441*T2c/p2c; SRKk2=-8.31441*y(2)/p2s; SRKm2=SRKa2/p2s-SRKb2*8.31441*y(2)/p2s-(SRKb2)^2; SRKn2=-SRKa2*SRKb2/p2s; SRKp2=[1 SRKk2 SRKm2 SRKn2]; SRKV2=roots(SRKp2); V2=max(SRKV2); Z2=p2s*V2/8.31441/y(2); fai2s=exp((Z2-1)-log(p2s*(V2-SRKb2)/8.31441/y(2))-SRKa2*log(1+SRKb2/V2)/SRKb2/8.31441/y(2)); Tc12=(T1c*T2c)^0.5; Vc12=((nthroot(V1c,3)+nthroot(V2c,3))/2)^3; Zc12=(Z1c+Z2c)/2; pc12=Zc12*8.31441*Tc12/Vc12; w12=(w1+w2)/2; SRKa12=(SRKa1*SRKa2)^0.5; SRKam=y(1)*y(1)*SRKa1+2*y(1)*(1-y(1))*SRKa12+(1-y(1))*(1-y(1))*SRKa2; SRKbm=y(1)*SRKb1+(1-y(1))*SRKb2; SRKkm=-8.31441*y(2)/p; SRKmm=SRKam/p-SRKbm*8.31441*y(2)/p-(SRKbm)^2; SRKnm=-SRKam*SRKbm/p; SRKpm=[1 SRKkm SRKmm SRKnm]; SRKVm=roots(SRKpm); Vm=max(SRKVm); Zm=p*Vm/8.31441/y(2); fai1=exp(SRKb1/SRKbm*(Zm-1)-log(p*(Vm-SRKbm)/8.31441/y(2))+SRKam*(SRKb1/SRKbm-2*(y(1)*SRKa1+(1-y(1))*SRKa12)/SRKam)*log(1+SRKbm/SRKVm)/SRKbm/8.31441/y(2)); fai2=exp(SRKb2/SRKbm*(Zm-1)-log(p*(Vm-SRKbm)/8.31441/y(2))+SRKam*(SRKb2/SRKbm-2*(y(1)*SRKa12+(1-y(1))*SRKa2)/SRKam)*log(1+SRKbm/SRKVm)/SRKbm/8.31441/y(2)); V1L=V1c*Z1c^((1-y(2)/T1c)^(2/7)); V2L=V2c*Z2c^((1-y(2)/T2c)^(2/7)); A12=(V2L/V1L)*exp(-b(1)/8.314/y(2)); A21=(V1L/V2L)*exp(-b(2)/8.314/y(2)); r1cal=exp(-log(x1+A12*x2)+x2*(A12/(x1+A12*x2)-A21/(x2+A21*x1))); r2cal=exp(-log(x2+A21*x1)-x1*(A12/(x1+A12*x2)-A21/(x2+A21*x1))); f=abs(y(1)*p*fai1-r1cal*p1s*fai1s*x1*exp(V1L*(p-p1s)/8.31441/y(2)))+abs((1-y(1))*p*fai2-r2cal*p2s*fai2s*x2*exp(V2L*(p-p2s)/8.31441/y(2))); main文件如下 x1=[0.9643 0.9165 0.8322 0.7520 0.6696 0.6362 0.5576 0.4416 0.3864 0.3407 0.2988 0.2628 0.2271 0.1877 0.1482 0.0933 0.0586 0.0375]; n=18; for i=1:n x0=[1;355]; [x fval]=fminsearch(@(x) myfun(x,x1(i)),x0) x1(i)=x(1); x2(i)=x(2); end; x1; x2; 運行提示Subscripted assignment dimension mismatch. Error in ==> fminsearch at 205 fv(:,1) = funfcn(x,varargin{:}); [ Last edited by flying_fay on 2010-12-1 at 11:26 ] |
回復(fù)此樓» 猜你喜歡
求調(diào)劑
已經(jīng)有7人回復(fù)
-
275求調(diào)劑
已經(jīng)有6人回復(fù)
-
招08考數(shù)學(xué)
已經(jīng)有7人回復(fù)
-
303求調(diào)劑
已經(jīng)有6人回復(fù)
-
306求調(diào)劑
已經(jīng)有4人回復(fù)
-
求調(diào)劑
已經(jīng)有7人回復(fù)
-
考研調(diào)劑
已經(jīng)有4人回復(fù)
-
285求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿北京化工大學(xué)070300 學(xué)碩336求調(diào)劑
已經(jīng)有7人回復(fù)
-
318求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 求高手幫忙看一下我的結(jié)構(gòu)式畫的有沒有問題？
已經(jīng)有16人回復(fù)
- 求matlab編程代碼，求幫助，謝謝！
已經(jīng)有11人回復(fù)
- 跪求高手幫忙看看這組數(shù)據(jù)如何進(jìn)行擬合
已經(jīng)有7人回復(fù)
- 很簡單的Fortran賦值出錯啦，求大神們幫忙找bug...
已經(jīng)有11人回復(fù)
- 求高手幫忙看一段英文，涉及到數(shù)據(jù)分析問題，如能給出說得通的全文翻譯另有50BB相贈
已經(jīng)有5人回復(fù)
- 高手 幫忙看看這兩數(shù)據(jù)
已經(jīng)有5人回復(fù)
- 求高手分析一下DSC 曲線
已經(jīng)有10人回復(fù)
- 請matlab高手看一下這個問題怎樣編程才好，附程序代碼，謝謝！
已經(jīng)有9人回復(fù)
- 麻煩高手幫忙解一下三元二次方程組！謝謝謝謝！
已經(jīng)有4人回復(fù)
- 高手幫我看看，這種示意圖用什么軟件畫比較方便？
已經(jīng)有7人回復(fù)
- matlab高手幫忙做個自定義復(fù)雜函數(shù)擬合，含有復(fù)數(shù)，
已經(jīng)有25人回復(fù)
- 硫酸銨沉淀的一些問題，求高手幫忙看一下！
已經(jīng)有12人回復(fù)
- 求SWMM軟件高手指導(dǎo)
已經(jīng)有15人回復(fù)
- 幫忙計算半衰期
已經(jīng)有13人回復(fù)
- 急�。。。∫嘿|(zhì)圖譜超詭異~~~不知道是不是被污染了 ~~~求高手幫忙看一下
已經(jīng)有21人回復(fù)
- 求有機合成高人幫在下看一下這個嘧啶成環(huán)反應(yīng)能發(fā)生嗎？？？？？？？
已經(jīng)有18人回復(fù)
- 求高人幫忙看一下我這個Fortran程序的錯誤出在哪里？
已經(jīng)有12人回復(fù)
- 求助 哪位傅里葉紅外高人幫忙看一下我的紅外圖譜
已經(jīng)有18人回復(fù)
- 請各位高人看一下這夠不夠JBC的要求？
已經(jīng)有4人回復(fù)
- 運行一個python程序，出現(xiàn)問題，請高手賜教
已經(jīng)有9人回復(fù)
- 剛投就被拒稿，請高手幫忙分析一下
已經(jīng)有18人回復(fù)
- LABVIEW四階龍格庫塔法求解一階微分方程組
已經(jīng)有12人回復(fù)
» 搶金幣啦！回帖就可以得到:
-
溫柔善良，重慶女孩，找男友……。為什么一個加的人都沒有呀？
+2/412
-
祈福中標(biāo)
+1/236
-
文獻(xiàn)分享，歡迎引用
+1/83
-
福建農(nóng)林大學(xué)材料工程學(xué)院高分子材料課題組招生
+1/79
-
有沒有在香港的蟲友啊
+1/72
-
散金幣，求好運，祝面上順利！
+2/66
-
招收熒光探針/有機合成/生物學(xué) 博士后--薪金: 30萬-50萬
+1/33
-
湖北工業(yè)大學(xué) 生命科學(xué)與健康學(xué)院 課題組招收2026級食品/生物方向碩士
+1/29
-
中科院物理所二維材料方向招收推免研究生
+1/21
-
重慶文理學(xué)院化學(xué)與環(huán)境工程學(xué)院 2026 屆碩士研究生調(diào)劑通知
+1/13
-
臨沂大學(xué)數(shù)學(xué)與統(tǒng)計學(xué)院招2026研究生
+1/11
-
中國中醫(yī)科學(xué)院中醫(yī)藥健康產(chǎn)業(yè)研究所（江西中醫(yī)藥健康產(chǎn)業(yè)研究院）2026年高層次人才等
+1/9
-
寧波東方理工大學(xué)余鵬課題組2026年上海交大聯(lián)培博士生、博士后、科研助理招聘
+1/7
-
福州大學(xué)國家級人才湯育欣教授課題組2026年招收”申請考核制“儲能電池方向博士研究生
+1/6
-
香港大學(xué)David Srolovitz教授課題組招聘「香江學(xué)者」博士后
+1/5
-
211/雙一流---石河子大學(xué)---有機化學(xué)方向招調(diào)劑生
+1/5
-
2026考研的同學(xué)，分?jǐn)?shù)不夠？想調(diào)劑上岸的同學(xué)，來看
+1/2
-
西安交通大學(xué)生命學(xué)院智能化診療裝備研究中心2026年博士生招生
+1/1
-
MTI 380調(diào)劑
+1/1
-
湖北省屬一流高校-國家杰青 招07/08/10生物相關(guān)專業(yè)
+1/1
2樓2010-12-07 09:18:15
3樓2010-12-07 10:40:43
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 flying_fay 的主題更新
| 3 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 303求調(diào)劑 +5 | 安憶靈 2026-03-22 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 08工科 320總分 求調(diào)劑 +7 | 梨花珞晚風(fēng) 2026-03-17 | 7/350 |
|
|
|
[考研] 生物學(xué)071000 329分求調(diào)劑 +4 | 我愛生物生物愛?/a> 2026-03-17 | 4/200 |
|
|
|
[考研] 286求調(diào)劑 +10 | Faune 2026-03-21 | 10/500 |
|
|
|
[考研] 初試 317 +7 | 半拉月丙 2026-03-20 | 7/350 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-20 | 7/350 |
|
|
|
[考研] 278求調(diào)劑 +9 | 煙火先于春 2026-03-17 | 9/450 |
|
|
|
[考研] 0703化學(xué)297求調(diào)劑 +3 | Daisy☆ 2026-03-20 | 3/150 |
|
|
|
[考研] 307求調(diào)劑 +3 | 余意卿 2026-03-18 | 3/150 |
|
|
|
[考研] 299求調(diào)劑 +4 | 某某某某位 2026-03-21 | 4/200 |
|
|
|
[考研] 材料 336 求調(diào)劑 +3 | An@. 2026-03-18 | 4/200 |
|
|
|
[考研] 材料專業(yè)求調(diào)劑 +6 | hanamiko 2026-03-18 | 6/300 |
|
|
|
[考研] 296求調(diào)劑 +6 | www_q 2026-03-18 | 10/500 |
|
|
|
[考研] 308求調(diào)劑 +3 | 阿姐阿姐家啊 2026-03-18 | 3/150 |
|
|
|
[考研] A區(qū)線材料學(xué)調(diào)劑 +5 | 周周無極 2026-03-20 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +3 | @taotao 2026-03-20 | 3/150 |
|
|
|
[考研] 廣西大學(xué)家禽遺傳育種課題組2026年碩士招生（接收計算機專業(yè)調(diào)劑） +3 | 123阿標(biāo) 2026-03-17 | 3/150 |
|
|
|
[考研]
 320求調(diào)劑0856
+3
|
不想起名字112 2026-03-19 | 3/150 |
|
|
|
[考研] 生物學(xué)調(diào)劑招人！��！ +3 | 山海天嵐 2026-03-17 | 4/200 |
|
|
|
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +4 | 生物工程調(diào)劑 2026-03-16 | 12/600 |
|