| 查看: 988 | 回复: 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 模拟化学平衡和吸收反应 |
» 猜你喜欢
如果工作了想读博，可以边工作边读全日制嘛？
已经有6人回复
-
青B发送上会通知了吗
已经有9人回复
-
西安交大新媒学院副院长用撤稿论文结题
已经有6人回复
-
论文撤稿了
已经有8人回复
-
博士申请
已经有7人回复
-
化学专业申博
已经有4人回复
-
评审有感
已经有27人回复
-
河北省自然科学基金
已经有9人回复
-
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！
已经有5人回复
-
26/27申博自荐
已经有9人回复