Elementary Principles 156 - 5.63 (cont'd) READ (5, *) T, P...

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

View Full Document Right Arrow Icon
5- 44 5.63 (cont’d) READ (5, *) T, P IF (T.LT.Q.) STOP R = 0 42747 . *R*R/PC*TC*TC B = 0 08664 . *R*TC/PC MWW =+ =− 0 48508 155171 015613 .. . bg ALP M T / TC = + ∗∗ 11 0 5 2 ch di . VP R T / P =∗ DO 20 I = 71 5 , V = VP F = R * T/(V – B) – ALP * A/V/(V + B) – P FP = ALP * A * (2. * V + B)/V/V/(V + B) ** 2 – R * T/(V – B) ** 2. VP = V – F/FP IF (ABS(VP – V)/VP.LT.0.0001) GOTO 30 20 CONTINUE WRITE (6, 2) 2 FORMAT ('DID NOT CONVERGE') STOP 30 WRITE (6, 3) T, P, VP 3 FORMAT (F6.1, 'K', 3X, F5.1, 'ATM', 3X, F5.2, 'LITER/MOL') GOTO 10 END $ DATA CARBON DIOXIDE 304.2 72.9 0.225 200.0 6.8 250.0 12.3 300.0
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