Elementary Principles 349 - 8.94 (cont'd) b. Vt 20.0 Vl 3.0...

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

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 8.94 (cont'd) b. Vt 20.0 Vl 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 MA 47.0 T0 300 300 300 300 330 330 330 330 CvA 0.831 P0 1.0 5.0 10.0 20.0 1.0 5.0 10.0 20.0 MB 26.0 Vg 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 CvB 3.85 nB0 203.1 203.1 203.1 203.1 203.1 203.1 203.1 203.1 SGB 1.76 nA0 0.691 3.453 6.906 13.811 0.628 3.139 6.278 12.555 c0 c1 0.00154 -1.60E-06 T 301.4 307.0 313.9 327.6 331.3 336.4 342.8 355.3 nA(v) 0.526 2.624 5.234 10.414 0.473 2.359 4.709 9.381 Dus -174000 nA(l) 0.164 0.828 1.671 3.397 0.155 0.779 1.569 3.174 Cvs 3.80 P 0.8 3.9 7.9 16.5 0.8 3.8 7.8 16.1 Tcalc 301.4 307.0 313.9 327.6 331.3 336.4 342.8 355.3 c. REAL R, NB, T0, P0, VG, C, D, DUS, MA, MB, CVA, CVB, CVS REAL NA0, T, DEN, P, NAL, NAV, NUM, TN INTEGER K R = 0.08206 1 READ (5, *) NB IF (NB.LT.0) STOP READ (1, *) T0, P0, VG, C, D, DUS, MA, MB, CVA, CVB, CVS WRITE (6, 900) NA0 = P0 * VG/R/T0 T = 1.1 * T0 K=1 10 DEN = VG/R/T/NB + C + D * T P = NA0/NB/DEN NAL = (C + D * T) * NA0/DEN NAV = VG/R/T/NB * NA0/DEN NUM = NAL * (DUS) + (NA0 * CVA + NB * CVB) * (TO 298) DEN = NAV * CVA + (NAL * MA + NB * MB) * CVS TN = 298 + NUM/DEN WRITE (6, 901) T, P, NAV, NAL, TN IF (ABS(T TN).LT.0.01) GOTO 20 K=K+1 T = TN IF (K.LT.15) GOTO 10 WRITE (6, 902) STOP 20 WRITE (6, 903) GOTO 1 900 FORMAT ('T(assumed) P Nav Nal T(calc.)'/ * ' (K) (atm) (mols) (mols) (K)') 901 FORMAT (F9.2, 2X, F6.3, 2X, F7.3, 2X, F7.3, 2X, F7.3, 2) 902 FORMAT (' *** DID NOT CONVERGE ***') 903 FORMAT ('CONVERGENCE'/) END $ DATA 300 291 10.0 15.0 1.54E3 2.6E6 74 35.0 18.0 0.0291 0.0754 4.2E03 C* 8-70 ...
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