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

Sub метод_прогонки()
Const n = 3
Dim a(1 To n) As Double, b(1 To n) As Double, c(1 To n) As Double, d(1 To n) As Double, x(1 To n) As Double, i As Integer, u(n) As Double, v(n) As Double
For i = 1 To n
d(i) = Cells(i, n + 1)
If i > 1 Then a(i) = Cells(i, i - 1)
b(i) = -Cells(i, i)
If i < n Then c(i) = Cells(i, i + 1)
Next i
For i = 1 To n
v(i) = c(i) / (b(i) - a(i) * v(i - 1)): u(i) = (a(i) * u(i - 1) - d(i)) / (b(i) - a(i) * v(i - 1))
Next i
x(n) = u(n)
For i = n To 2 Step -1
x(i - 1) = v(i - 1) * x(i) + u(i - 1)
Next i
For i = 1 To n
Cells(n + 3, i) = x(i)
Next i

End Sub