Ik 
301 
18 
80 
iat 
DYE 
CONTINUE 
DO 17 I#1:2500 
SY#SY VEL%IO 
SX#SX TIM%IQ 
SXY#SXYS6“VEL%IlOXTIM%Ion 
SXX#SXXG%TIMSIO*TIM%IoOn 
SLOPERS%JIJ*SXYO-%SX*SYOOH/%%IIS*SXXO-%SX*SXOO 
YINT#HS%SSXY*¥SXO-%SY*¥SXXOO/%%SX*¥SXO-%IIJ*SXXOO 
WRITE%619301HSLOPE sYINT 
FORMAT%1Xs8HSLOPE # »F60e322Xes12HINTERCEPT # »F8-4n 
DO 18 I#1+500 
VEL%SIO#VEL%IH-%“SLOPEXTIM%SIOSYINTO 
CALL SPECTRA %JJ»CODE»M1:sYO4u 
GOP TOMS 
END 
SUBROUTINE SPECTRA%N:»CODEsM1sYO4u 
DIMENSION A%10202B%10202C%10202D%102H2E%10202F%102n 
COMMON X%50002Y%5U00 
Phe Sho baal) 
SUMX#0.0 
SUMY#0.0 
ETC ODE HI eal Zr Ie 
DOM Sa walaesiN 
SUMX#SUMXEX%I14 
SUMY#SUMY&Y%I148 
EN#N 
SUMY#SUMY/EN 
SUMX#SUMX/EN 
WRITE %6126068 MlsN»xYO4 
WRITE%6196080 SUMX»SUMY 
WRITE%61s6090 
DO 973 I#l»N 
X%1O#X% I G-SUMX 
Y%IToO#Y%IO-SUMY 
GO TO 16 
DO 4 I#1>N 
SUMX#SUMX6X%1Io 
EN#N 
SUMX#SUMX/EN 
TR No.22 
