System Null Reference Exception: Der Objektverweis wurde nicht auf eine Objektinstanz

magnificent

Mitglied
Hallo.
Ich Versuche den Returnwert einer Funktion einem 2dim. Array zu zuweisen, allerdings bekomme ich immer folgenden Fehler (bei der Zuweisung):
System Null Reference Exception: Der Objektverweis wurde nicht auf eine Objektinstanz

Der Code sieht im Ausschnitt wie folgt aus:
Code:
 Public Function fct_KorrWertBerechnen(ByVal V1() As Single, ByVal V2() As Single) As Single
        Dim V1Mittelwert As Single = 0
        Dim V2Mittelwert As Single = 0
        Dim SumZaehler As Single = 0
        Dim SumNenner1 As Single = 0
        Dim SumNenner2 As Single = 0
        Dim KorrWert As Single = 0

        For Spalte = 0 To UBound(V1)
            V1Mittelwert = V1Mittelwert + V1(Spalte)
            V2Mittelwert = V2Mittelwert + V2(Spalte)
        Next Spalte

        V1Mittelwert = V1Mittelwert / (UBound(V1) + 1)
        V2Mittelwert = V2Mittelwert / (UBound(V2) + 1)

        For Spalte = 0 To UBound(V1)
            SumZaehler = SumZaehler + (V1(Spalte) - V1Mittelwert) * (V2(Spalte) - V2Mittelwert)
            SumNenner1 = SumNenner1 + (V1(Spalte) - V1Mittelwert) * (V1(Spalte) - V1Mittelwert)
            SumNenner2 = SumNenner2 + (V2(Spalte) - V2Mittelwert) * (V2(Spalte) - V2Mittelwert)
        Next Spalte

        KorrWert = SumZaehler / (System.Math.Sqrt(SumNenner1) * System.Math.Sqrt(SumNenner2))

        Return KorrWert
    End Function
    Public Function fct_KorrMatrixBerechnen() As Single(,)
        Dim KorrMatrix(,) As Single
        Dim Korrelation As Single

        For Zeile = 0 To 19
            For Spalte = 0 To 19
 --> Fehlermeldung-->>    KorrMatrix(Zeile, Spalte) = fct_KorrWertBerechnen(VDet1, VDet2)
            Next Spalte
        Next Zeile

        Return KorrMatrix

    End Function

Des weiteren wird ich gern die 'VDet' per Schleife erhöhen, aber wie kann ich die Vektorbezeichnung mit der Schleifenvariable verbinden, so dass von VDet1 bis VDet20 durchgelaufen wird?

Danke euch :)
 
Danke jetzt gehts :)

Und wie könnt ich das 2.Problem in den Griff bekommen?
Denn ich muss alle 20 Vektoren mit einander korrelieren lassen und ohne eine solche Hilfestellung wäre der Aufwand enorm!
 

Neue Beiträge

Zurück