100 OPEN #1:NAME "data4.txt" 110 LET n=0 ! Œ” 120 LET mx=0 ! x‚Ě˜a 130 LET my=0 ! y‚Ě˜a 140 LET xx=0 ! x^2‚Ě˜a 150 LET yy=0 ! y^2‚Ě˜a 160 LET xy=0 ! xy‚Ě˜a 170 DO 180 INPUT #1,IF MISSING THEN EXIT DO:x,y 190 LET n=n+1 200 LET mx=mx+x 210 LET my=my+y 220 LET xx=xx+x^2 230 LET yy=yy+y^2 240 LET xy=xy+x*y 250 LOOP 260 LET mx=mx/n ! x‚Ě•˝‹Ď 270 LET my=my/n ! y‚Ě•˝‹Ď 280 LET sx=SQR(xx/n-mx^2) ! ‚˜‚Ě•W€•Îˇ 290 LET sy=SQR(yy/n-my^2) ! ‚˜‚Ě•W€•Îˇ 300 LET sxy=xy/n-mx*my 310 PRINT sxy/(sx*sy) ! ‘ŠŠÖŒW” 320 CLOSE #1 330 END