Elementary Principles 462 - 902 FORMAT'Heat Removal Rate...

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

View Full Document Right Arrow Icon
10- 14 10.10 (cont’d) e. C **CHAPTER 10 -- PROBLEM 10 DIMENSION SF(3), SV(3), SL(2) COMMON A, B, C, CPL, HV, CPV, CPG DATA A, B, C / 7.87863, 1473.11, 230.0/ DATA CPL, HV, CPV, CPG,/ 0.078, 35.27, 0.050, 0.029/ FLOW = 1.0 SF(1) = 0.704*FLOW SF(2) = FLOW – SF(1) YC = 0.90 P = 1. SF(3) = 333. CALL CNDNS (SF, SV, SL, P, YC, Q) WRITE (6, 900) SV(3) WRITE (6, 401) 'Vapor Stream', SV(1), SV(2) WRITE (6, 401) 'Liquid Stream', SL(1) WRITE (6, 902)Q 900 FORMAT ('Condenser Temperature', F7.2,' K') 901 * FORMAT (A15, F7.3,' 'mols/s Methyl Alcohol', /, 15X, F7.3, 'mols/s air')
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 902 FORMAT ('Heat Removal Rate', F7.2,' kW') END C SUBROUTINE CNDNS (SF, SV, SL, P, YC, Q) REAL NF, NL, NV DIMENSION SF(3), SV(3), SL(2) COMMON A, B, C, CPL, HV, CPV, CPG C Inlet Stream Variables NF = SF(1) + SF(2) TF = SF(3) XF = SF(1)/NF C Solve Equations NL = YC * XF * NF NV = NF - NL XV = (XF*NF - NL)/NV PV = P * XV * 760. T = B/(A - LOG(N)/LOG (10.)) - C T = T + 273.15 Q = ((CPV * XV + CPG * (1 - XY)) * NV + CPL * NL) * (T - TF) - NL * HV C Output Variables SL(1) = NL S2(2) = T SV(1) = XV*NV SV(2) = NV - SV(1) SV(3) = T RETURN END...
View Full 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