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
留言