Metodo Iterativo Gauss-Seidel en Visual Basic
Un cordial saludo programadores y matemáticos a fin. En esta entrega hacemos mención a la resolución de ecuaciones simultaneas por métodos iterativos y es así que el método de Gauss-Seidel se acopla muy bien como una mejora al método de Jacobi, sin embargo la condicion fundamental que su diagonal principal debe ser mayor a las demas. Por todo lo expresado aqui presento un poco de teoria tomado de http://www.jldelafuenteoconnor.es/Clase_itera_2016.pdf en el cual se expresan algunos métodos más pero para este tema analizaremos solamente el mencionado. La implementación en visual Basic 2015 Module Module1 Dim A(500, 500) As Single Dim B(500, 500) As Single Dim X(500, 500) As Single Dim n, iter As Integer Dim cError, Tol, sum As Double Sub Main() Console.BackgroundColor = ConsoleColor.White Console.Clear() Console.ForegroundColor = ConsoleColor.Black Console.Title = "METODO ITERATIVO GAUSS-SEIDEL"