Matriz inversa visual basic 6.0 I

que tal compañero nose si me puedes ayudar con el programa de visual para resolver la mtris en foma inversa espero tu respuesta mi correo es juanjosue_noemi@hotmail.com gracias por tu tiempo

publicalo por favor la codificacion de producto de matrices en visual basic 6.0

perdon las molestias pero tengo el mismo problema y si no es mucha molestia si me lo puedes mandar mi mail es imussali@gmail.com

Me podrias pasar el codigo

Disculpa me lo podrias env

la suma la resta y la multiplicacion de matrices es rekontra facil pero la inversa y la transpuesta es lo q me falta ayuden porfavor!!!

descarguenlo esta en EXCEL y esta facil de usar, para los que conosen la programacion en VBA en EXCEL (MACROS) se van a dar cuenta como funciona

me podrian ayudar con un proyecto. les dejo mi correo para los que saben, porfavor es conjimmy y lo demas que hot----.com

man de que se trata, mi correo es jc_maquetasvirtuales"arroba"yah o o . e s

Hola!! Oye tu programa está super bien, pero para mi clase de métodos numéricos necesito el código de excel, crees que podrías pasarmelo?? Para que yo pueda hacer un programa parecido al tuyo.
Gracias te dejo mi correo xdavis91@hotmail. com

Private Sub Cmd_Cal_Click()

n = Range(Ref1.Text).Columns.Count

ReDim A(1 To n, 1 To n) As Double
ReDim ID(1 To n, 1 To n) As Double

'Identifica la columa y la fila con la que empieza la matriz
col1 = Range(Ref1.Text).Column
row1 = Range(Ref1.Text).Row

'Identifica la posición de la Matriz Inversa
col2 = Range(Ref2.Text).Column
row2 = Range(Ref2.Text).Row


'Agrega 1 a la diagonal de la Matriz
For i = 1 To n
ID(i, i) = 1
'Agrega los datos en la matriz A
For j = 1 To n
A(j, i) = Cells(row1 + j - 1, col1 + i - 1)
Next
Next

For i = 1 To n
If A(i, i) = 0 Then
For j = i + 1 To n
If A(j, i) <> 0 Then
For k = 1 To n
A(i, k) = A(i, k) + A(j, k)
ID(i, k) = ID(i, k) + ID(j, k)
Next
Exit For
End If
Next
End If
c = A(i, i)
For k = 1 To n
A(i, k) = A(i, k) / c
ID(i, k) = ID(i, k) / c
Next

For j = i + 1 To n
If A(j, i) <> 0 Then
c = A(j, i)
For k = 1 To n
A(j, k) = A(j, k) - c * A(i, k)
ID(j, k) = ID(j, k) - c * ID(i, k)
Next
End If
Next
Next

For i = n To 1 Step -1
For j = i - 1 To 1 Step -1
If A(j, i) <> 0 Then
c = A(j, i)
For k = n To 1 Step -1
A(j, k) = A(j, k) - c * A(i, k)
ID(j, k) = ID(j, k) - c * ID(i, k)
Next
End If
Next
Next


'Imprime la Matriz Identidad en la Posición indicada
For i = 1 To n
For j = 1 To n
Cells(row2 + j - 1, col2 + i - 1) = ID(j, i)
Next
Next

End Sub

AQUITAAAAAA...
Saludos desde PERU!!!

no mames no chinges que es eso esta pero bien mal fuera asta n*n en visual basic todavia no memes estas mal no no estamal estas grave