AaAaNANAaAN 
K = Kel 
GO TO 10 
20 AUNIT = AXLEN/(N-Ke1) 
N = AXLEN/AUNI To] 
RETURN 
“END 
FUNCTION UNIT (AMIN, AMAX 9 AXLEN oN »ANUM) 
FINDS THE INCREMENT BETWEEN VALUES TO BE USED UN THE 
AXIS IN AS FAR AS LABELING THE TICK MARKS 
FINOS THE NUMBER OF DIVISIONS TO BE MADE ON 
THE AXIS 
FINDS THE SIZE IN INCHES OF THESE DIVISIUNS 
IF (AMINoNE.AMAX) GO TO 10 
AM 
AM 
IN = AMIN-1 
AX = AMAX+l 
10 IF (AMAX.LT.1-AND.AMIN.GT.-1)GU TO 110 
30 
40 
110 
MIN 
MAX 
IF 
= AMIN 
= AMAX 
(AMAX.GToMAX) MAX=MAX¢] 
IF (AMINeLT.MIN) MIN=MIN-1 
IF (M 
IF (M 
N 
IN.LT.0) NwID 
IN.GE.9) NwID 
UM = 10 
MAX=MIN 
IF (NWID.-LT2=NUM) GO TO 60 
NU 
GO 
N = 
M = NUM#10 
To 40 
NWID7 (NUM/10) 
MAXI ABS (MIN) 
IF (MINoL Te eANDeMAX.GTe0) GO TO 70 
IF ( 
N@ (NUM/10) eL TeNwWID) N=Nel] 
ANUM = NUM/10. 
AUNIT = AXLEN/N 
GO TO 
0 NN = 
IF (NN®(NUM/10) .LT.» TABS (MIN) ) NN 
N = 
IF O(N 
N = 
ANUM 
AUNI 
GO T 
NUM= 
160 
TABS (MIN) / (NUM/10) 
MAX (NUM/10) 
#(NUM/10) eLToMAX) N = Nel 
NeNN 
= NUM/10. 
T = AXLEN/N 
O 160 
10 
120 IF (AMAX*NUM.GT.1) GO TO 130 
130 
140 
150 
NUM 
GO T 
= NUM#10 
0 120 
1e/NUM 
AMIN®NUM 
AMAX#NUM 
IF (AMIN@®NUM.LT NI) NI=ENI=1 
IF (AMAX#NUM.GT.N2) N2=N2¢1 
IF (N1.NE.N2) GO TO 150 
AMIN = AMIN-UNITT 
AMAX = AMAX=UNITT 
GU T9 140 
N = N2-NnI 
ANUM = UNITT 
= NNel 
IF (AMIN. LTO. AND. AMAXoLT.0) N=N1=N2 
IF (AMIN LT oOcANDeAMAX eGE VU) N=Ne=N1 
AUNIT = AXLEN/N 
73 
JUST 
JUST 
JUST 
JUST 
JUST 
JUST 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
ONIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
UNIT 
