Hola disculpa necesito ayuda con el código del método de gauss jordan...lo estoy haciendo en Visual Basic 2010...y no se que sucede que no resuelve los sistemas como se debe. Que puedo hacer o en que parte del código fallé?
'Definición de variables y matrices
Dim k, l As Integer
Dim matriz1(1000, 1000) As Single
Dim coef As Single
Dim aux(1000, 1000) As Single
Dim elemento As Single
'Encabezado para el programa
Console.WriteLine("Bienvenido al Solucionador de Ecuaciones")
Console.WriteLine()
'Se pide ingresar las incógnitas que posee el sistema
Console.WriteLine("Determine el numero de incognitas a resolver: ")
k = Console.ReadLine()
l = k + 1
Console.WriteLine()
'Llenamos la matriz ampliada con los coeficientes
Console.WriteLine("Introduzca los Coeficientes de:")
For i As Integer = 0 To k - 1 Step 1
For j As Integer = 0 To l - 1 Step 1
Console.WriteLine("Fila {0} y Columna {1}", i, j)
matriz1(i, j) = Console.ReadLine()
Next j
Next i
'Resolvemos el sistema de ecuaciones
For s As Integer = 0 To k - 1 Step 1
elemento = matriz1(s, s)
For j As Integer = 0 To l - 1 Step 1
matriz1(s, j) = matriz1(s, j) / elemento
Next j
Next s
For i As Integer = 0 To k Step 1
Dim s As Integer
If i = s Then
Else
'Guardamos en la matriz auxiliar
coef = matriz1(i, s)
For j As Integer = 0 To l - 1 Step 1
aux(0, j) = matriz1(s, j) * (coef * -1)
Next j
For j As Integer = 0 To l - 1 Step 1
matriz1(i, j) = matriz1(i, j) + aux(0, j)
Next j
End If
Next i
'Imprimir las soluciones del sistema
For i As Integer = 0 To k - 1 Step 1
Console.WriteLine("X={0} matriz {1,2}", i, matriz1(i, k))
Next i
Console.ReadLine()
