VB .NET 副函式回傳矩陣(矩陣乘法為例)

A 矩陣 維度 ixj
B 矩陣 維度 jxk
C 矩陣 維度 ixk

C=AxB

這邊沒寫偵測輸入矩陣維度錯誤的狀況
所以輸入矩陣一定要正確

Public Function Mip(ByRef A(,) As Double, ByRef B(,) As Double) As Double(,)

        Dim ans(,) As Double
        ReDim ans(A.GetLength(0) - 1, B.GetLength(1) - 1)

        For i = 0 To A.GetLength(0) - 1
            For j = 0 To B.GetLength(0) - 1
                For k = 0 To B.GetLength(1) - 1
                    ans(i, k) = ans(i, k) + A(i, j) * B(j, k)
                Next
            Next
        Next


        Mip = ans
        Return Mip
    End Function















留言

這個網誌中的熱門文章

Office 2021 離線安裝封裝與KMS啟動步驟

Ollama使用心得與模型導入教學

ARC下NSMutableDictionary 無法使用retainCount