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

[Vitek.i]

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

[pacniwassano]

а математически знаете как найти?

[Vitek.i]

да, единственное что это долко и достаточно сложно

[Obey-Kun]

Гугл в помощь. Есть метод Гаусса и пр.

[Vitek.i]

Дак медодом гауса та я решу на листе бумаги а как в программе написать??

[Obey-Kun]

Ну составь алгоритм для начала.

[ACE Valery]

Vitek.i
где ваши наработки?

[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
        'обратная матрица

[Obey-Kun]

что это за язык?

[ACE Valery]

Obey-Kun Бейсик, кажется.
Vitek.i Так а в чем проблема? Не можете перевести на С++?