Elementary Principles 462

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

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

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')
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