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

Sub лагран()
Const n = 6, xx = 1.6
Dim x(n) As Double, y(n) As Double, i As Integer, j As Integer, yy As Double
For i = 1 To n: x(i) = Cells(i + 1, 1): y(i) = Cells(i + 1, 2): Next i
For i = 0 To n
I1 = 1: I2 = 1
For j = 0 To n
If i <> j Then
I1 = I1 * (xx - x(j)): I2 = I2 * (x(i) - x(j))
End If
Next j
yy = yy + y(i) * I1 / I2
Next i
Debug.Print yy
Debug.Print xx ^ 3.3
End Sub