Scribd
Cargar
291 vistas1 página

Algoritmo de Gauss para Resolución de Sistemas

El documento describe un algoritmo para resolver un sistema de ecuaciones lineales mediante el método de Gauss. El algoritmo lee los datos de la matriz, incluida su diagonal principal, y realiza operaciones como dividir cada elemento de la diagonal por sí mismo y restar múltiplos de las filas superiores para convertir los elementos debajo de la diagonal en ceros, almacenando los resultados en una matriz auxiliar. Finalmente, guarda los términos independientes resultantes de la última columna en un vector de respuestas.

Cargado por

jdrczaoth
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
291 vistas1 página

Algoritmo de Gauss para Resolución de Sistemas

El documento describe un algoritmo para resolver un sistema de ecuaciones lineales mediante el método de Gauss. El algoritmo lee los datos de la matriz, incluida su diagonal principal, y realiza operaciones como dividir cada elemento de la diagonal por sí mismo y restar múltiplos de las filas superiores para convertir los elementos debajo de la diagonal en ceros, almacenando los resultados en una matriz auxiliar. Finalmente, guarda los términos independientes resultantes de la última columna en un vector de respuestas.

Cargado por

jdrczaoth
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd

Sub gaus()

Dim mdiag(120, 120), minc(120, 120), mult1, msave(500, 500), Matriz(j, j)


ni = xxx 'numero de incognitas
' se lee la diagonal
For j = 1 To ni
mdiag(j, j) = Matriz(i, j) 'Celdas de las Matriz
Next
'se lee los datos
For j = 1 To ni + 1 'n+1 Datos
For i = 1 To ni
minc(i, j) = Matriz(j, j) 'Celdas de las Matriz
Next
Next
For k = 1 To ni 'Datos
For j = 1 To ni + 1 'n+2 Datos
For i = 1 To ni 'Datos
If i = 1 Then
mult1 = minc(k, j) / mdiag(k, k)
msave(k, j) = mult1
End If
If i = k Then
msave(k, j) = mult1
GoTo aqui
Else
msave(i, j) = minc(i, j) - (minc(i, k) * mult1)
End If
aqui:
Next
Next
For j = 1 To ni 'Datos
mdiag(j, j) = msave(j, j)
Next
For j = 1 To ni + 1 'n+1 Datos
For i = 1 To ni 'Datos
minc(i, j) = msave(i, j)
Next
Next
Next
'guarda vector de respuestas
For j = 1 To ni + 1 'n+1 Datos
resp(j) = msave(j, ni + 1)
Next
End Sub

También podría gustarte