Metodo di riduzione di Gauss con il foglio elettronico

Attivando il Visual Basic per Excel

con il comando ALT-F11 digitate il codice seguente (o copiatelo dalla textarea):

Sub riduciGauss() Dim n, i, j, k, aii, aij Set zona = Selection righe = zona.Rows.Count colonne = zona.Columns.Count ' Controllo delle procedure If colonne <= righe Then MsgBox "errore" Exit Sub End If n = righe For j = 1 To n - 1 ajj = zona.Cells(j, j) For i = j + 1 To n aij = zona.Cells(i, j) For k = 1 To colonne zona.Cells(i, k) = zona.Cells(i, k) * ajj - aij * zona.Cells(j, k) Next k Next i Next j End Sub

La Sub lavora su una selezione attiva del foglio elettronico, invocata da un pulsante o da ALT-F8 selezionando la macro RiduciGauss

Esempio 1:
Impostiamo un sistema in cui per comodità le soluzioni siano unitarie, ossia siano tutte pari a uno
Copiamo poi tutta la matrice (solo i valori e non i formati o le formule) un'altra zona dove poter applicare il metodo di riduzione

Mantenendo la selezione applichiamo la macro sopradetta e otteniamo

Tale matrice risulta triangolare superiore e possiamo in tal modo ricavare l'ultima incognita  che risulta pari a 1. Procedendo con le sostituzioni a ritroso possiamo determinare le altre fino alla prima.

Esempio 2:
Il sistema 

diventa

Per risalire poi ai valori delle radici impostiamo le seguenti formule:

ricordandoci che dopo la loro immissione va premuto Shift-Ctrl-Invio

Home