Elementary Principles 324 - 8.66(cont'd) DELH = NL *(XL*HAL...

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

View Full Document Right Arrow Icon
8- 45 8.66(cont’d) DELH = NL *(XL*HAL + (1.0 – XL)*HBL) + NV*(XV*HAV + (1.0 – XV)*HBV) – F1 WRITE (6, 4) T, NL, NV, DELH 4 FORMAT (1H b , 5X' T b = ', F6.1, 3X' NL b = ', F7.4, 3X' NV b = ', F7.4, 3X'DELH b = ',* E11.4) WRITE (6, 5) PAV, PBV, XL, HAL, HBL, XV, HAV, HBV 5 FORMAT (1H b , 5X' PAV, PBV b = ', 2F8.1, 3X' XL, HAL, HBL b = ', F7.4, 2E13.4,3X' XV, HAV, HBV b = ', F7.4, 2E13.4/) IF (DELH) 50, 50, 40 40 DHOLD = DELH TOLD = T 45 T = T – DT GO TO 20 50 T = (T*DHOLD – TOLD*DELH)/(DHOLD – DELH) PAV = 10.0**(A1 – B1/(T + C1)) PBV = 10.0**(A2 – B2/(T + C2)) XL = (P – PBV)/(PAV – PBV) XV = XL * PAV/P NL = (XV – XF)/(XV – XL)
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