Algoritmia - ing-sis

Function ObtenerMatrizInversa(matriz(,) As Double) As Double(,)

    Dim filas As Integer = UBound(matriz, 1) + 1

    Dim columnas As Integer = UBound(matriz, 2) + 1

    If filas <> columnas Then

        MsgBox("La matriz no es cuadrada. No se puede calcular la inversa.")

        Return Nothing

    End If

    Dim determinante As Double = CalcularDeterminante(matriz)

    If determinante = 0 Then

        MsgBox("La matriz es singular. No se puede calcular la inversa.")

        Return Nothing

    End If

    Dim matrizAdjunta(,) As Double = ObtenerMatrizAdjunta(matriz)

    Dim factor As Double = 1 / determinante

    ' Calcular la matriz inversa multiplicando la adjunta por el inverso del determinante '

    Dim matrizInversa(,) As Double = New Double(filas - 1, columnas - 1)

    For i As Integer = 0 To filas - 1

        For j As Integer = 0 To columnas - 1

            matrizInversa(i, j) = factor * matrizAdjunta(i, j)

        Next

    Next

    Return matrizInversa

End Function

Function CalcularDeterminante(matriz(,) As Double) As Double

    ' Aquí debes implementar el cálculo del determinante (puede ser recursivo o mediante otro método) '

    ' ... '

    Return 0

End Function

Function ObtenerMatrizAdjunta(matriz(,) As Double) As Double(,)

    ' Aquí debes implementar la obtención de la matriz adjunta '

    ' ... '

    Return Nothing

End Function