Listing of file='27A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 872, program filename = '27A' 0010 DIM A(96) 0020 PRINT "INPUT N,L" 0030 INPUT N,L 0040 B=0 0050 PRINT "INPUT SERIES, 4 ELEMENTS/LINE. IF NECESSARY FILL LAST" 0055 PRINT "INPUT LINE WITH ZEROES." 0060 FOR I=0 TO INT((N+3)/4)-1 0070 INPUT A(4*I+1),A(4*I+2),A(4*I+3),A(4*I+4) 0080 NEXT I 0090 FOR I=1 TO N 0100 B=B+A(I) 0110 NEXT I 0120 B=B/N 0130 PRINT 0140 PRINT "LAGS AUTOCOVARIANCE" 0150 FOR J=1 TO L 0160 N1=N-J+1 0170 S=0 0180 FOR I=1 TO N1 0190 I1=I+J-1 0200 S=S+(A(I)-B)*(A(I1)-B) 0210 NEXT I 0220 PRINT J-1,S/N1 0230 NEXT J 0250 END