| 查看: 939 | 回复: 0 | ||||
| 当前主题已经存档。 | ||||
[交流]
aspen plus反应精馏模拟子程序编译
|
||||
|
用aspen-plus radfrac模块做反应精馏模拟其动力学子程序的编译（我用fortran编译了一些哪位高手帮我完成一下） 反应式：乙酸＋乙醇——水＋乙酸乙酯 反应速率：R=1.38kx12 x1醋酸摩尔分率 k＝3.7－2710/T 汽液平衡常数：醋酸：lgK1=0.0225T-1.666 乙醇：lgK2=6.5-2300/T 水：lgK3=6.4-2300/T 乙酸乙酯：lgK4=6.8-2300/T 如下： SUBROUTINE USRKNT (N, NCOMP, NR, NRL, NRV, 2 T, TLIQ, TVAP, P, PHFRAC, 3 F, X, Y, IDX, NBOPST, 4 KDIAG, STOIC, IHLBAS, HLDLIQ, TIMLIQ, 5 IHVBAS, HLDVAP, TIMVAP, NINT, INT, 6 NREAL, REAL, RATES, RATEL, RATEV, 7 NINTB, INTB, NREALB, REALB, NIWORK, 8 IWORK, NWORK, WORK) C IMPLICIT NONE C C DECLARE VARIABLES USED IN DIMENSIONING C INTEGER NCOMP, NR, NRV, NINT, NINTB, + NREALB,NIWORK,NWORK C #include "ppexec_user.cmn" EQUIVALENCE (RMISS, USER_RUMISS) EQUIVALENCE (IMISS, USER_IUMISS) C C C*********************************************************************** C C C C DECLARE ARGUMENTS C INTEGER NRL(3),IDX(NCOMP),NBOPST(6), + INT(NINT),INTB(NINTB), + IWORK(NIWORK),N,KDIAG, IHLBAS, + IHVBAS,NREAL REAL*8 PHFRAC(3),X(NCOMP,3),Y(NCOMP), + STOIC(NCOMP,NR),RATES(NCOMP), + RATEL(1),RATEV(NRV), + REALB(NREALB),WORK(NWORK), T,TLIQ, + TVAP,P,F,HLDLIQ,TIMLIQ REAL*8 HLDVAP,TIMVAP C C DECLARE LOCAL VARIABLES C INTEGER IMISS REAL*8 REAL(NREAL), RMISS C C BEGIN EXECUTABLE CODE C INTEGER I REAL*8 K,RATE K=3.7-2710/T RATES=K*X(1,1)*X(1,1) RETURN END |
回复此楼» 收录本帖的淘帖专辑推荐
 Aspen Plus 模拟化学平衡和吸收反应 |
» 猜你喜欢
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有7人回复
-
遇见不省心的家人很难过
已经有24人回复
-
博士延得我，科研能力直往上蹿
已经有9人回复
-
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）
已经有6人回复
-
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性
已经有6人回复
-
有院领导为了换新车，用横向课题经费买了俩车
已经有9人回复
-
酰胺脱乙酰基
已经有13人回复
-
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗
已经有4人回复
-
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有10人回复