Pregunta de Programacion - Urgente!!!!
 

Bueno Amigos Foristas ojala me ayuden con montar esto, ya que muchos de ustedes saben mas que yo de esto.

Tengo q hacer para una materia (Algebra Lineal) un programa q me encuentre las soluciones a un sistema de ecuaciones Lineales por medio de los métodos de jacobi y gauss seidel.

El programa en el que lo tengo que hacer (y a mi no me da :S) es Visual Basic 2008 Express Edition

Ojala el que sea capaz de hacerlo me colabore con eso que es para un trabajo muy importante

me puede mandar un mensaje privado, o por aca lo puede montar o me puede agregar al msn. [email protected]

muchisimas gracias de antemano

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Esos dos algoritmos son para solucionar de manera eficiente, problemas matriciales, siempre y cuando las matrices sean EDD, hay otra condicion, pero no me acuerdo:laughing9:.
Parce encontre una pagina con el codigo en visual basic 6, pero como no se puede postear el link a paginas externas, busque "gauss seidel visual basic" en google, la primera pagina tiene el codigo. Ya seria que ud mire que cambios habria que hacerle para que pueda funcionar en la version express 2008, normalmente no hay cambios muy drasticos entre versiones. Aunque el VB 6, es varias versiones anteriores al 2008.

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Respuesta: Pregunta de Programacion - Urgente!!!!
 

los estudiantes de primeros semestres de ing de sistemas te pueden ayudar

Respuesta: Pregunta de Programacion - Urgente!!!!
 

ok empezare a bajar haber

Respuesta: Pregunta de Programacion - Urgente!!!!
 

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

:rr:

Respuesta: Pregunta de Programacion - Urgente!!!!
 

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.

Respuesta: Pregunta de Programacion - Urgente!!!!
 

pero la vuelta es q no me da en vb2008

Respuesta: Pregunta de Programacion - Urgente!!!!
 

Si no funciona en vb2008, entonces te toca revisar si ha cambiado la forma de llamar los métodos y la forma de operar las variables según el tipo. Esa vaina siempre pasa con el bendito microsoft.