Elementary Principles 460 - 10.9 (cont'd) 600 700 800 NL =...

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

View Full Document Right Arrow Icon
10- 12 10.9 (cont’d) 600 NL = NF – NVP DO 700 I = 1, N XL(I) = XF(I)*NF/(NF + NV**(PV(I)/P – 1)) SL(I) = XL(I)*NL XV(I) = XL(I)*PV(I)/P 700 SV(I) = SF(I) – SL(I) Q1 = 0. Q2 = 0. DO 800 I = 1, N Q1 = Q1 + CP(I)*SF(I) 800 Q2 = Q2 + HV(I)*XV(I) Q = Q1*(T – TF) + Q2*NVP RETURN END Program Output : Liquid Stream 0.0563 mols s n-pentane 0.1000 mols s n-hexane 0.2011 mols s n-heptane
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.
Ask a homework question - tutors are online