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.
37 lines
2.1 KiB
Plaintext
37 lines
2.1 KiB
Plaintext
PROCEDURE ANT1 (X, CALCPX, ANTC, ANT, PANTX) ; ANTP0001
|
|
|
|
COMMENT ANTOINE EQUATION PROCEDURE. ANTP0002
|
|
BY DONALD L. VOSS ANTP0003
|
|
PROFESSIONAL SERVICES GROUP, BURROUGHS CORPORATION ANTP0004
|
|
FIRST RELEASE DATE: 5-5-63 ANTP0005
|
|
|
|
THIS PROCEDURE EVALUATES THE 3-CONSTANT ANTOINE EQUATION. ANTP0006
|
|
|
|
THE INPUT PARAMETERS ARE ANTP0007
|
|
X - INDEPENDENT VARIABLE - REAL ANTP0008
|
|
CALCPX - BOOLEAN. IF TRUE, CALCULATE PANTX. ANTP0009
|
|
ANTC - ANTOINE EQUATION COEFFICIENTS - REAL ARRAY [0:3] ANTP0010
|
|
|
|
THE OUTPUT PARAMETERS ARE ANTP0011
|
|
ANT - VALUE OF THE ANTOINE EQUATION AT X - REAL ANTP0012
|
|
PANTX - X DERIVATIVE OF ANT - REAL ; ANTP0013
|
|
|
|
VALUE X, CALCPX ; ANTP0014
|
|
BOOLEAN CALCPX ; ANTP0015
|
|
REAL X, ANT, PANTX ; ANTP0016
|
|
ARRAY ANTC[0] ; ANTP0017
|
|
|
|
BEGIN ANTP0018
|
|
REAL TRS1 ; ANTP0019
|
|
|
|
COMMENT EVALUATE THE ANTOINE EQUATION ; ANTP0020
|
|
TRS1 ~ ANTC[3] + X ; ANTP0021
|
|
ANT ~ EXP (-ANTC[2]/TRS1 + ANTC[1] ) ; ANTP0022
|
|
|
|
COMMENT IF CALCPX IS TRUE, CALCULATE THE DERIVATIVE OF THE ANTP0023
|
|
ANTOINE EQUATION WITH RESPECT TO X. ; ANTP0024
|
|
IF CALCPX THEN ANTP0025
|
|
PANTX ~ ANTC[2]/TRS1*2 | ANT ANTP0026
|
|
|
|
END ANT1 ; ANTP0027
|