Correl([1.0; 2.0; 3.0], [2.0, 4.0, 3.0], 3)
Function Correl(ByVal X() As Double, ByVal Y() As Double, _
ByVal Num As Integer) As Double
Dim muX As Double, muY As Double
Dim Sxx As Double, Sxy As Double, Syy As Double
Dim sumX As Double, sumY As Double
Dim sumX2 As Double, sumXY As Double, sumY2 As Double
For L As Integer = 1 To Num
Sxx = sumX2 - Num * muX * muX
Syy = sumY2 - Num * muY * muY
Sxy = sumXY - Num * muX * muY
Return Sxy / Math.Sqrt(Sxx * Syy)