mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
45 lines
2.6 KiB
Plaintext
45 lines
2.6 KiB
Plaintext
PROCEDURE HLIQ ( N, T, Z, HL, PHLX, PHLT ) ; HLIQ 1
|
|
|
|
COMMENT THIS PROCEDURE COMPUTES THE TOTAL ENTHALPY, PARTIAL HLIQ 2
|
|
MOLAL ENTHALPIES, AND THE HEAT CAPACITY OF A LIQUID HLIQ 3
|
|
MIXTURE, USING EXTENDED LIQUID LINES. HLIQ 4
|
|
A. PAUL OLESON HLIQ 5
|
|
PROFESSIONAL SERVICES GROUP, BURROUGHS CORPORATION. HLIQ 6
|
|
CARD SEQUENCE STARTS WITH HLIQ-0001. HLIQ 7
|
|
FIRST RELEASE 3-20-63. HLIQ 8
|
|
|
|
THE INPUT PARAMETERS ARE HLIQ 9
|
|
N - NUMBER OF COMPONENTS - INTEGER HLIQ 10
|
|
T - TEMPERATURE, F - REAL HLIQ 11
|
|
Z - MOL FRACTIONS - REAL ARRAY [0:N] HLIQ 12
|
|
|
|
THE OUTPUT PARAMETERS ARE HLIQ 13
|
|
HL - LIQUID ENTHALPY, BTU/MOL - REAL HLIQ 14
|
|
PHLX - PARTIAL MOLAL ENTHALPY, BTU/MOL - REAL ARRAY [0:N] HLIQ 15
|
|
PHLT - LIQUID HEAT CAPACITY, BTU/MOL/DEGREE F - REAL ; HLIQ 16
|
|
|
|
VALUE N, T ; HLIQ 17
|
|
|
|
INTEGER N ; HLIQ 18
|
|
|
|
REAL T, HL, PHLT ; HLIQ 19
|
|
|
|
ARRAY Z[0], PHLX[0] ; HLIQ 20
|
|
|
|
BEGIN HLIQ 21
|
|
|
|
INTEGER I ; HLIQ 22
|
|
|
|
REAL ZI, T2, B, CT, DT2 ; HLIQ 23
|
|
|
|
HL ~ PHLT ~ 0.0 ; T2 ~ T | T ; HLIQ 24
|
|
FOR I ~ 1 STEP 1 UNTIL N DO HLIQ 25
|
|
BEGIN HLIQ 26
|
|
ZI ~ Z[I] ; B ~ HLC5[I,2] ; HLIQ 27
|
|
CT ~ HLC5[I,3] | T ; DT2 ~ HLC5[I,4] | T2 ; HLIQ 28
|
|
PHLX[I] ~ HLC5[I,1] + ( B + CT + DT2 ) | T ; HLIQ 29
|
|
HL ~ PHLX[I] | ZI + HL ; HLIQ 30
|
|
PHLT ~ ( DT2 | 3.0 + CT | 2.0 + B ) | ZI + PHLT HLIQ 31
|
|
END HLIQ 32
|
|
END HLIQ ; HLIQ 33
|