Matematicheskie_metody / Мат. методы. 1 семестр(2 модуль) / мет.итер(мат.мет.)2 модуль

Sub Метод_итераций()
Const n = 3, e = 0.001
Dim a(1 To n, 1 To n) As Double, b(1 To n) As Double, x(1 To n) As Double, i As Integer, j As Integer, xz(1 To n) As Double
For i = 1 To n
For j = 1 To n
a(i, j) = Cells(i, j)
Next j
b(i) = Cells(i, n + 1)
Next i
For i = 1 To n: xz(i) = a(i, i): Next i
Do
For i = 1 To n: x(i) = xz(i): Next i
For i = 1 To n
s1 = 0
For j = 1 To i - 1: s1 = s1 + a(i, j) * x(j): Next j
For j = i + 1 To n: s1 = s1 + a(i, j) * x(j): Next j
xz(i) = (b(i) - s1) / a(i, i)
Next
s1 = 0: s2 = 0
For i = 1 To n
s1 = s1 + (x(i) - xz(i)) ^ 2: s2 = s2 + xz(i) ^ 2
Next i
Loop While Sqr(s1 / s2) > l
For i = 1 To n: Cells(n + 3, i) = x(i): Next i
End Sub