Split_00070 - 8.94 (cont’d) b. Vt 20.0 MA 47.0 CvA 0.831...

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 MA 47.0 CvA 0.831 MB 26.0 CvB 3.85 SGB 1.76 Vl 3.0 3.0 3.0 3.0 3.0 3.0 3.0 3.0 T0 300 300 300 300 330 330 330 330 P0 1.0 5.0 10.0 20.0 1.0 5.0 10.0 20.0 Vg 17.0 17.0 17.0 17.0 17.0 17.0 17.0 17.0 nB0 203.1 203.1 203.1 203.1 203.1 203.1 203.1 203.1 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 Cvs 3.80 nA(l) 0.164 0.828 1.671 3.397 0.155 0.779 1.569 3.174 P 0.8 3.9 7.9 16.5 0.8 3.8 7.8 16.1 c. 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.54E–3 –2.6E–6 –74 35.0 18.0 0.0291 0.0754 4.2E–03 8-70 Tcalc 301.4 307.0 313.9 327.6 331.3 336.4 342.8 355.3 ...
View Full Document

This note was uploaded on 01/07/2012 for the course CH E 210 at Pennsylvania State University, University Park.

Ask a homework question - tutors are online