Kreni od pocetka, tj od matematike.
X1 = B1/A11
X2 = (B2-A21*X1)/A22
X3 = (B3-A31*X1-A32*X2)/A33
...
Xn = (Bn-An1*X1-An2*X2 -An3*X3 - ... )/Ann
Evo na brzinu, ovako nekako:
Code:
For i = 1 To n
suma = 0
For j = 1 To i - 1
suma = suma + x(j) * a(i, j)
Next j
x(i) = (b(i) - suma) / a(i, i)
Next i
pre toga matricu definises:
Code:
Dim a() As Double
Dim b() As Double
Dim x() As Double
Dim n As Integer
' n = ? ovde unosis dimenzije matrice
ReDim a(1 To n, 1 To n) As Double
ReDim b(1 To n) As Double
ReDim x(1 To n) As Double
' ovde uneses elemente matrice i kolonu b
Dim i As Integer
Dim j As Integer
Dim suma As Double
ostalo je tvoje, ipak je tvoj domaci