Cita:
Iniciado por .|[SaNtIaGo]|.  no me sirvio, no consigo el codigo, ps le doy en block de notas para buscar la info de los codigos pero no dan, aparte esta en VB6 y no me sirve asi tenga muy pocas diferencias con el 2008 tiene que ser en ese. Para el que sepa o lo tenga ya hecho o algo se lo agradeceria mucho  |
Private Sub MJacobi()
On Error Resume Next
matriz1 = matriz
vector_Ini1 = vector_Ini
Error = 1000
Dim var As Double
For i = 1 To Int(nroIteraciones.Text)
var = 0
Jacobi.Rows = Jacobi.Rows + 1
Jacobi.TextMatrix(i, 0) = i
For j = 0 To TamañoM - 1
var = vector_B(j)
For k = 0 To TamañoM - 1
If j <> k Then
var = var + ((-1) * matriz(j, k) * (vector_Ini(1, k)))
End If
Next k
var = var / matriz(j, j)
If Calc.Value = 0 Then
var = Round(var, Val(nroCifras.Text))
Jacobi.TextMatrix(i, j + 1) = FormatNumber(var, Val(nroCifras.Text))
Else
Jacobi.TextMatrix(i, j + 1) = FormatNumber(var, 16)
End If
vector_Ini(2, j) = var
Next j
Error = 0
For j = 0 To TamañoM - 1
Error = Error + (vector_Ini(2, j) - vector_Ini(1, j)) ^ 2
Next j
Error = Error ^ 0.5
If Calc.Value = 0 Then
Error = Round(Error, Val(nroCifras.Text))
Jacobi.TextMatrix(i + 1, TamañoM + 1) = FormatNumber(Error, Val(nroCifras.Text))
Else
Jacobi.TextMatrix(i + 1, TamañoM + 1) = FormatNumber(Error, 16)
End If
For j = 0 To TamañoM - 1
vector_Ini(1, j) = vector_Ini(2, j)
Next j
If Flag Then Exit For
If Error <= nroTolerancia.Text Then Flag = True
Next i
Jacobi.Rows = Jacobi.Rows - 1
End Sub
Private Sub MGauss_Seidel()
On Error Resume Next
Error = 1000
Dim var As Double
For i = 1 To Int(nroIteraciones.Text)
Gauss_Seidel.Rows = Gauss_Seidel.Rows + 1
var = 0
Gauss_Seidel.TextMatrix(i, 0) = i
For j = 0 To TamañoM - 1
var = vector_B(j)
For k = 0 To TamañoM - 1
If j <> k Then
var = var + ((-1) * matriz(j, k) * (vector_Ini(1, k)))
End If
Next k
var = var / matriz(j, j)
vector_Ini(1, j) = var
If Calc.Value = 0 Then
var = Round(var, Val(nroCifras.Text))
Gauss_Seidel.TextMatrix(i, j + 1) = FormatNumber(var, Val(nroCifras.Text))
Else
Gauss_Seidel.TextMatrix(i, j + 1) = FormatNumber(var, 16)
End If
Next j
Error = 0
For j = 0 To TamañoM - 1
Error = Error + (vector_Ini(2, j) - vector_Ini(1, j)) ^ 2
Next j
Error = Error ^ 0.5
If Calc.Value = 0 Then
Error = Round(Error, Val(nroCifras.Text))
Gauss_Seidel.TextMatrix(i + 1, TamañoM + 1) = FormatNumber(Error, Val(nroCifras.Text))
Else
Gauss_Seidel.TextMatrix(i + 1, TamañoM + 1) = FormatNumber(Error, 16)
End If
If Flag Then Exit For
If Error <= nroTolerancia.Text Then Flag = True
Next i
Gauss_Seidel.Rows = Gauss_Seidel.Rows - 1
End Sub
Ese es el codigo de los dos metodos, a mi todas las clases, me abren con el bloc de notas.
Abra el Metodos.frm, que ahi esta todo para calcular GS y jacobi.
Aunque le quedaria mas facil, implementar los pseudocodigos de estos dos metodos, que hay varios ejemplos en internet.