VBA Ax=bを求める(関数)
Function Gauss_kai(a() As Double, b() As Double) As Double()
Dim n As Integer
Dim m As Integer
Dim i As Integer
Dim j As Integer
Dim arr1() As Double
Dim arr2() As Double
Dim arr3() As Double
Dim arr4() As Double
n = UBound(a, 1)
m = UBound(b)
ReDim arr1(n, n + 1)
ReDim arr2(n, n)
ReDim arr3(n)
ReDim arr4(n)
arr1 = Gau_kai(a(), b())
For i = 1 To n
arr3(i) = arr1(i, n + 1)
For j = 1 To n
arr2(i, j) = arr1(i, j)
Next j
Next i
arr4 = xxx(arr2(), arr3())
Gauss_kai = arr4
End Function
使った関数 ↓
