image of READY prompt

Wang2200.org

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