版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

flying_fay

鐵桿木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 5989.8
帖子: 278
在線: 31小時
蟲號: 538321

[交流] 【求助】求高手幫看一下程序（泡點溫度計算）

使用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)有6人回復(fù)
能源材料化學課題組招收碩士研究生8-10名已經(jīng)有17人回復(fù)
一志愿北京化工大學 070300 學碩 336分求調(diào)劑已經(jīng)有3人回復(fù)
一志愿中南大學化學學碩0703總分337求調(diào)劑已經(jīng)有3人回復(fù)
260求調(diào)劑已經(jīng)有4人回復(fù)
材料與化工085600，總分304，本科有兩篇sci參與，求調(diào)劑已經(jīng)有4人回復(fù)
求調(diào)劑一志愿海大，0703化學學碩304分，有大創(chuàng)項目，四級已過已經(jīng)有7人回復(fù)
一志愿東華大學化學070300，求調(diào)劑已經(jīng)有7人回復(fù)
275求調(diào)劑已經(jīng)有7人回復(fù)
070300化學求調(diào)劑已經(jīng)有3人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

求高手幫忙看一下我的結(jié)構(gòu)式畫的有沒有問題？已經(jīng)有16人回復(fù)
求matlab編程代碼，求幫助，謝謝！已經(jīng)有11人回復(fù)
跪求高手幫忙看看這組數(shù)據(jù)如何進行擬合已經(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ù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-12-01 11:25:07

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

smqh5207

金蟲 (小有名氣)

應(yīng)助: 6 (幼兒園)
金幣: 963.1
帖子: 252
在線: 149.3小時
蟲號: 630650

flying_fay(金幣+5):已經(jīng)找到問題所在了，謝謝了，x1是組分1的液相摩爾分數(shù)，除了r是活度系數(shù)和實際方程中的字母不一樣外，其他都是原本方程里的變量 2010-12-08 08:40:02

樓上說清楚點該方程的大致意思，搞一堆壓縮因子與逸度系數(shù)計算，x1代表什么？
最好描述清楚才能查錯哦

贊一下

回復(fù)此樓

2樓2010-12-07 09:18:15

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

change0618

鐵桿木蟲 (著名寫手)

應(yīng)助: 44 (小學生)
金幣: 17724.5
帖子: 2413
在線: 546.7小時
蟲號: 496517

flying_fay(金幣+5):謝謝了，已經(jīng)找到問題所在了 2010-12-08 08:40:41

我有別人的一個泡點程序，估計跟你不是一個體系。
沒有說明，讓人只看字母呀。

贊一下

回復(fù)此樓

3樓2010-12-07 10:40:43

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 flying_fay 的主題更新

返回列表

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 求調(diào)劑 +5	Zhangbod 2026-03-21	7/350	2026-03-22 13:13 by Zhangbod
[考研] 085600材料與化工306 +4	z1z2z3879 2026-03-21	4/200	2026-03-21 23:44 by ms629
[考研] 求調(diào)劑 +3	13341 2026-03-20	3/150	2026-03-21 18:28 by 學員8dgXkO
[考研] 313求調(diào)劑 +4	肆叁貳壹22 2026-03-19	4/200	2026-03-21 17:33 by ColorlessPI
[考研] 306求0703調(diào)劑一志愿華中師范 +5	紙魚ly 2026-03-21	5/250	2026-03-21 17:11 by 學員8dgXkO
[考研] 268求調(diào)劑 +9	簡單點0 2026-03-17	9/450	2026-03-21 15:37 by lature00
[考研] 求調(diào)劑 +3	白QF 2026-03-21	3/150	2026-03-21 13:12 by zhukairuo
[考研] 南昌大學材料專碩311分求調(diào)劑 +6	77chaselx 2026-03-20	6/300	2026-03-21 07:24 by JourneyLucky
[考研] 化學求調(diào)劑 +4	臨澤境llllll 2026-03-17	5/250	2026-03-21 02:23 by JourneyLucky
[考研] 一志愿南昌大學，327分，材料與化工085600 +9	Ncdx123456 2026-03-19	9/450	2026-03-20 23:41 by lovewei0727
[考研] 304求調(diào)劑 +7	司空. 2026-03-18	7/350	2026-03-20 23:08 by JourneyLucky
[考研] 289求調(diào)劑 +6	懷瑾握瑜l 2026-03-20	6/300	2026-03-20 20:30 by 學員8dgXkO
[考研] 求調(diào)劑 +3	暗涌afhb 2026-03-16	3/150	2026-03-20 00:28 by 河南大學校友
[考研] 085600材料與化工求調(diào)劑 +6	緒幸與子 2026-03-17	6/300	2026-03-19 13:27 by houyaoxu
[考研] 材料工程專碩調(diào)劑 +5	204818@lcx 2026-03-17	6/300	2026-03-18 22:55 by 204818@lcx
[考博] 26博士申請 +3	1042136743 2026-03-17	3/150	2026-03-17 23:30 by 輕松不少隨
[考研] 326求調(diào)劑 +5	上岸的小葡 2026-03-15	6/300	2026-03-17 17:26 by ruiyingmiao
[考研] 有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～ +3	TqlXswl 2026-03-16	7/350	2026-03-17 15:23 by TqlXswl
[考研] 一志愿蘇州大學材料工程（085601）專碩有科研經(jīng)歷三項國獎兩個實用型專利一項省級立項 +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無懈可擊111
[考研] 一志愿南京大學，080500材料科學與工程，調(diào)劑 +4	Jy? 2026-03-16	4/200	2026-03-17 11:02 by gaoqiong

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

flying_fay

[交流] 【求助】求高手幫看一下程序（泡點溫度計算）

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

smqh5207

change0618

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

» 搶金幣啦！回帖就可以得到:

查看全部散金貼