Listing of file='26A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 89, program filename = '26A' 0010 DIM A(70),B(70) 0020 PRINT "INPUT N,L" 0030 INPUT N,L 0040 C,D=0 0050 PRINT "INPUT SERIES A AND B, 2 ELEMENTS/LINE (IE, A1,B1,CARRIAGE" 0055 PRINT "RETURN,A2,B2,CARRIAGE RETURN,...)" 0060 FOR I=1 TO N 0070 INPUT A(I),B(I) 0080 C=C+A(I) 0090 D=D+B(I) 0100 NEXT I 0110 C=C/N 0120 D=D/N 0130 PRINT 0140 PRINT "LAG/LEAD LAG COVARIANCE LEAD COVARIANCE" 0150 FOR J=1 TO L 0160 N1=N-J+1 0170 S1,S2=0 0180 FOR I=1 TO N1 0190 I1=I+J-1 0200 S1=S1+(A(I)-C)*(B(I1)-D) 0210 S2=S2+(A(I1)-C)*(B(I)-D) 0220 NEXT I 0230 S1=S1/N1 0240 S2=S2/N1 0250 PRINT J-1,S1,S2 0260 NEXT J 0270 END