计算两组数据的相关系数Rxy

Dim 积的和 As Double,自变量的和 As Double,因变量的和 As Double,自变量平方和 As Double,因变量平方和 As Double
Dim x As Double,y As Double
数据数 = 自变量下标上限 - 自变量下标下限
For i = 自变量下标下限 To 自变量下标上限
x = 自变量数组(i)
y = 因变量数组(i - 自变量下标下限 + 因变量下标下限)
积的和 = 积的和 + x * y
自变量的和 = 自变量和 + x
因变量的和 = 因变量和 + y
自变量平方和 = 自变量平方和 + x * x
因变量平方和 = 因变量平方和 + y * y
Next i
相关系数 = (数据数 * 积的和 - 自变量和 * 因变量和) / Sqr((数据数 * 自变量平方和 - 自变量的和 * 自变量的和) * (数据数 * 因变量平方和 - 因变量的和 * 因变量的和))
这是核心代码,我省略了数组维数、数据个数、数据类型的检查,还省略了溢出处理.