Elementary Principles 457 - 10.8 (cont'd) 901 C FORMAT...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
10- 9 10.8 (cont’d) 901 FORMAT ('Heat Required', F7.2,' kW') END C SUBROUTINE FLASN2 (SF, SL, SV, T, P, Q) REAL NF, NL, NV DIMESION SF(3), SL(3), SV(3) COMMON A1, B1, C1, C2, CP1, CP2, NV1, NV2 C Vapor Pressure PV1 = 10.**(A1 – B1/(T – 273.15 + C1)) PV2 = 10.**(A2 – B2/(T – 273.15 + C2)) C Product fractions XL1 = (P – PV2)/(PV1 – PVS) XV1 = XL1*PM/P C Feed Variables NF = SF(1) + SF(2) XF1 = SF(1)/NF C Product flows NL = NF*(XF1 – XV1)/(XL1 – XV1) NV = NF – NL SL(1) = XL1*NL SL(2) = NL – SL(1) SY(1) = XY1*NY SY(2) = NV – SY(1) SL(3) = T SV(3) = T C Energy Balance Q = CP1*SF(1)*SF(1)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 02/27/2012 for the course CHEMICAL E 312 taught by Professor Cheung during the Fall '11 term at The University of Akron.

Ask a homework question - tutors are online