обратная матрица на VBA

[Vitek.i]

Всем добрый день, есть проблемка. У меня есть уже готовая квадратная матрица n-го порядка, не могу найти для неё обратную матрицу, помогите с написаним кода на VB.

[3BEPOBOY]

Дай алгоритм математический, а лучше на С или Паскале. На VB то переписать несложно. Только здесь форум VBA, языка ограниченного и заточенного под офис. Конкретный подфорум вообще про Excel. VBA и Microsoft VB разные вещи, VBA неполноценная среда разработки, на нем даже exe файла не скомпилируешь. Вобщем ты не туда написал

[IgorGO]

тут и алгоритм и решение в одном стакане:

Function InvMatr(M1 As Range)
  InvMatr = WorksheetFunction.MInverse(M1)
End Function

[Vitek.i]

Гаусса - Жордана


'единичная матрица
Dim A_edin(k + 1, k + 1) As Double 'затем она перейдёт в обратную
For i = 1 To k + 1
For j = 1 To k + 1
If i = j Then
A_edin(i, j) = 1
Else
A_edin(i, j) = 0
End If
Next j
Next i
'единичная матрица

'обратная матрица
Dim arg As Double
Dim i1 As Integer

For j = 1 To k + 1
For i = 1 To k + 1
If i = j Then GoTo 50
arg = A(i, j) / A(j, j)

For i1 = 1 To k + 1
A(i, i1) = A(i, i1) - A(j, i1) * arg
A_edin(i, i1) = A_edin(i, i1) - A_edin(j, i1) * arg
Next i1

50: Next i
Next j

For j = 1 To k + 1
For i = 1 To k + 1

Dim arg_2 As Double
If i = j Then
arg_2 = A(i, j)
For i1 = 1 To k + 1
A(i, i1) = A(i, i1) / arg_2 'стала единичной
A_edin(i, i1) = A_edin(i, i1) / arg_2 'стала обратной матрице А
Next i1
End If

Next i
Next j
'обратная матрица