Elementary Principles 8 - 2.29 (a) p* = 60 - 20 (185 -...

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

View Full Document Right Arrow Icon
2- 8 2.29 (a) p * .. (. ) = −+ = 60 20 199 8 166 2 185 166 2 20 42 mm Hg (b) c MAIN PROGRAM FOR PROBLEM 2.29 IMPLICIT REAL*4(A–H, 0–Z) DIMENSION TD(6), PD(6) DO 1 I = 1, 6 READ (5, *) TD(I), PD(I) 1 CONTINUE WRITE (5, 902) 902 FORMAT (‘0’, 5X, ‘TEMPERATURE VAPOR PRESSURE’/6X, * (C) (MM HG)’/) DO 2 I = 0, 115, 5 T = 100 + I CALL VAP (T, P, TD, PD) WRITE (6, 903) T, P 903 FORMAT (10X, F5.1, 10X, F5.1) 2 CONTINUE END SUBROUTINE VAP (T, P, TD, PD) DIMENSION TD(6), PD(6) I = 1 1 IF (TD(I).LE.T.AND.T.LT.TD(I + 1)) GO TO 2 I = I + 1 IF (I.EQ.6) STOP GO TO 1 2 P = PD(I) + (T – TD(I))/(TD(I + 1) – TD(I)) * (PD(I + 1) – PD(I)) RETURN END DATA OUTPUT 98.5 1.0 TEMPERATURE VAPOR PRESSURE 131.8 5.0 (C) (MM HG) # # 100.0 1.2 215.5 100.0 105.0 1.8 # # 215.0 98.7 2.30 (b)
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