МетодГаусса-Зейделя

Метод Гаусса-Зейделя является аналогом метода простой итерации. Здесь _ итераций при j< i и уже вычислена на этой итерации.

Условие сходимости:

Расчетная формула:

Программа метода Гаусса-Зейделя

SubГау_Зейд()

k = Val(InputBox(" Введите число уравнений", " Исходные данные"))

Dim a(4, 4)

i1 = 2

For i = 1 To 4

For j = 1 To 4

a(i, j) = Worksheets(" Слау").Cells(i1, j).Value

Next j

i1 = i1 + 1

Next i

Dim b(4)

i1 = 2

For i = 1 To 4

b(i) = Worksheets(" Слау").Cells(i1, 7).Value

i1 = i1 + 1

Next i

e = 0.001

n = 0

x10 = 0

x20 = 0

x30 = 0

x40 = 0

Do

x1 = (b(1) - a(1, 2) * x20 - a(1, 3) * x30 - a(1, 4) * x40) / a(1, 1)

x2 = (b(2) - a(2, 1) * x1 - a(2, 3) * x30 - a(2, 4) * x40) / a(2, 2)

x3 = (b(3) - a(3, 1) * x1 - a(3, 2) * x2 - a(3, 4) * x40) / a(3, 3)

x4 = (b(4) - a(4, 1) * x1 - a(4, 2) * x2 - a(4, 3) * x3) / a(4, 4)

c = Abs(x1 - x10) + Abs(x2 - x20) + Abs(x3 - x30) + Abs(x4 - x40)

x10 = x1

x20 = x2

x30 = x3

x40 = x4

n = n + 1

Loop While c > e

Worksheets(" Слау").Range(" J6").Value = x1

Worksheets(" Слау").Range(" K6").Value = x2

Worksheets(" Слау").Range(" L6").Value = x3

Worksheets(" Слау").Range(" M6").Value = x4

Worksheets(" Слау").Range(" n6").Value = n

EndSub