Public Class LinRegress
 
    Public Steigung As Double
    Public b As Double 'Achsenschnittpunkt b
    Public r As Double 'Korrelationskoeffizient R
 
End Class

   Public Function LinRegressionPoints(ByVal dps As List(Of Point)) As _
     LinRegress
 
        Dim erg As New LinRegress
 
        Dim n As Integer
        n = dps.Count
 
        If n < 2 Then Return Nothing
 
        Dim sum_xy As Double
        Dim sum_x As Double
        Dim sum_y As Double
        Dim sum_x2 As Double
        Dim sum_y2 As Double
 
        For i = 0 To n - 1
            sum_x += dps.Item(i).X
            sum_y += dps.Item(i).Y
            sum_xy += dps.Item(i).X * dps.Item(i).Y
            sum_x2 += dps.Item(i).X ^ 2
            sum_y2 += dps.Item(i).Y ^ 2
        Next
 
        erg.Steigung = (n * sum_xy - sum_x * sum_y) / (n * sum_x2 - sum_x ^ 2)
        erg.b = (sum_y - erg.Steigung * sum_x) / n
        erg.r = (n * sum_xy - sum_x * sum_y) / ((Math.Sqrt(n * sum_x2 - sum_x ^ _
          2) * Math.Sqrt(n * sum_y2 - sum_y ^ 2)))
 
        Return erg
 
    End Function