应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » MATLAB » 【求助】求高手帮看一下程序（泡点温度计算）
31/1返回列表
查看: 1497  |  回复: 2
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

flying_fay

铁杆木虫 (小有名气)

[交流] 【求助】求高手帮看一下程序（泡点温度计算）

使用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 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2010-12-01 11:25:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

smqh5207

金虫 (小有名气)
flying_fay(金币+5):已经找到问题所在了，谢谢了，x1是组分1的液相摩尔分数，除了r是活度系数和实际方程中的字母不一样外，其他都是原本方程里的变量 2010-12-08 08:40:02
楼上说清楚点该方程的大致意思，搞一堆压缩因子与逸度系数计算，x1代表什么？
最好描述清楚才能查错哦
赞一下 回复此楼
2楼2010-12-07 09:18:15
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

change0618

铁杆木虫 (著名写手)
flying_fay(金币+5):谢谢了，已经找到问题所在了 2010-12-08 08:40:41
我有别人的一个泡点程序，估计跟你不是一个体系。
没有说明，让人只看字母呀。
赞一下 回复此楼
3楼2010-12-07 10:40:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 flying_fay 的主题更新
31/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 k0dTPqJtl0jt 2026-08-14 5/250 2026-08-15 15:10 by QXtWNz7PI7wZ
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 7lpolszZVXgi 2026-08-14 3/150 2026-08-15 14:53 by QXtWNz7PI7wZ
[基金申请] 有时候，自然基金真的不能太认真 （我的申报经验） +7 majunge000 2026-08-11 9/450 2026-08-15 13:34 by kiz2011
[博后之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 k0dTPqJtl0jt 2026-08-14 3/150 2026-08-15 12:41 by KxMI1BYBxWX1
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 7lpolszZVXgi 2026-08-14 6/300 2026-08-15 09:28 by sunzitan
[基金申请] filecode +7 cratir 2026-08-14 11/550 2026-08-15 06:19 by 学员8dgXkO
[硕博家园] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 HFw0lei2R37i 2026-08-14 4/200 2026-08-15 04:17 by 4wMiSEwB6436
[找工作] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 02:21 by 4wMiSEwB6436
[基金申请] 小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊 +11 Tide man 2026-08-10 12/600 2026-08-15 02:12 by home3163
[基金申请] 奇怪，两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[硕博家园] 一作与独作在应聘高校教师时区别大吗 +3 mbygzh 2026-08-08 4/200 2026-08-13 19:31 by 龙-樱
[基金申请] 静等基金结果 +8 gjjjzhong 2026-08-10 21/1050 2026-08-13 17:56 by 且听虎啸
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 什么时候出结果，有咨询渠道？？？ +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 2026国自然放榜时间 +9 布布和一二 2026-08-08 9/450 2026-08-10 11:22 by xxxx2020
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
信息提示
关闭
请填处理意见
关闭