Array-Multiplikation und matrix-inversion mit VBA

Ich versuche zu tun, einige Berechnungen mit arrays.

z.B. ich möchte lösen Ax=y, so dass ich den folgenden code verwenden, um so zu tun, wobei a Eine quadratische matrix ist und y ein col. vector. In VBA, A ist ein array mit zwei-dimension und y ist eins mit einer dimension. Aber dieser code funktioniert nicht...

x = WorksheetFunction.MMult(WorksheetFunction.MInverse(A), y)

Wo habe ich falsch? Danke!

  • Definiere "funktioniert nicht".
  • Charlesworth Es gibt nichts und aufhören zu laufen...
  • Nichts? Keine Fehlermeldung? Bitte zeigen Sie uns-code, die das tun können... Haben Sie versucht, schrittweise durch den code im debug-Modus?
  • Möglicherweise finden Sie nicht invertieren dieser matrix interessant. Achten Sie darauf, Lesen die Kommentare auch.
InformationsquelleAutor BVFanZ | 2011-09-04
  1. 7

    Können Sie werden der Begehung einer oder mehrerer der vielen Fehler:

    • Arrays nicht definiert, wie Variant (die Meisten worksheetfunctions wird nicht funktionieren, wenn Daten-Typ ist etwas anderes als Variant).
    • Abmessungen A und y nicht übereinstimmen, wie Sie benötigen, um für die matrix-Multiplikation.
    • Insbesondere wird nicht funktionieren, wenn y Größe ist (1,2) statt (2,1) wie im Beispiel unten.
    • etc... Kann alles sein, wirklich. Sie sagen uns nicht, welche Fehlermeldung Sie bekommen.

    Hier ist ein Beispiel, das funktioniert:

    Dim A As Variant
Dim y As Variant
Dim x As Variant

ReDim y(1 To 2, 1 To 1)
y(1, 1) = 2
y(2, 1) = 3

ReDim A(1 To 2, 1 To 2)
A(1, 1) = 3
A(2, 1) = 1
A(1, 2) = 4
A(2, 2) = 2

x = WorksheetFunction.MMult(WorksheetFunction.MInverse(A), y)
    • Dies ist hilfreich. Ich denke, ich beging alle Fehler, die du oben erwähnt. BTW, gibt die Funktion keine msg an alle.
    • +1 gutes Beispiel
    InformationsquelleAutor Jean-François Corbett
  2. 1

    Lassen-matrix Eine (3 x 3) ein array in Range("A1:C3") -, matrix - y (3 x 1) ein array in Range("E1:E3") - und matrix - x (3 x 1) ein array in Range("G1:G3"). Dann versuchen Sie dieses einfache Programm:

    Range("G1:G3") = WorksheetFunction.MMult(WorksheetFunction.MInverse(Range("A1:C3")), Range("E1:E3"))

    Durch die Verwendung der gleichen Verfahren, die Sie tun können, diese zu finden, das Ergebnis der Multiplikation von einer matrix (n x m) mit einer matrix (p x q). Natürlich zur Vereinfachung sollten Sie Variablen deklarieren erste. Ich hoffe, diese Antwort kann dir helfen.

    InformationsquelleAutor Tunk-Fey
Schreibe einen Kommentar