VBA 逆行列を求める(関数)
Function A_inverse(a() As Double) As Double()
Dim n As Integer
Dim i As Integer
Dim k As Integer
Dim arr1() As Double
Dim A_inv() As Double
Dim x_n() As Double
n = UBound(a, 1)
ReDim arr1(n, n)
ReDim A_inv(n, n)
ReDim x_n(n)
For i = 1 To n
x_n(i) = 0
Next i
For k = 1 To n
x_n(k) = 1
arr1 = Gauss_kai(a(), x_n())
For i = 1 To n
A_inv(i, k) = arr1(i)
Next i
x_n(k) = 0
Next k
A_inverse = A_inv
End Function
使った関数 ↓
