smpl 59.1 97.1


for !1=1 to 8
genr x!1=x(-!1)
next

coef(8) ac1

for !1 =1 to 8
genr ac1(!1)=@cor(x,x!1)
next

coef(8) ac2
for !1=1 to 8
genr ac2(!1)=(@sum((x-@mean(x))*(x!1-@mean(x!1))))/(@sumsq(x-@mean(x))*@sumsq(x!1-@mean(x!1)))^.5
next

coef(8) ac3
for !1 =1 to 8
genr ac3(!1)=(@sum((x-@mean(x))*(x!1-@mean(x))))/(@sumsq(x-@mean(x))*@sumsq(x!1-@mean(x)))^.5
next

coef(8) ac4
for !1 =1 to 8
genr ac4(!1)=(@sum((x-@mean(x))*(x!1-@mean(x))))/(@sumsq(x-@mean(x))*@sumsq(x-@mean(x)))^.5
next

coef(8) ac5
for !1 =1 to 8
genr ac5(!1)=((@sum((x-@mean(x))*(x!1-@mean(x!1))))/(@sumsq(x-@mean(x))*@sumsq(x-@mean(x)))^.5)
next

 