Вычисления значения функции с помощью схемы Эйткена

[Rozaliya]

Используя интерполяционную схему Эйткена в программе на языке Basic вычислить значение в точке x = 4,7296 функции, заданной таблицей
X[ 0] = 0.5016 Y[ 0] = -1.8658
X[ 1] = 1.2472 Y[ 1] = 0.3262
X[ 2] = 2.4400 Y[ 2] = -0.3548
X[ 3] = 2.5432 Y[ 3] = -0.3829
X[4] = 2.9296 Y[ 4] = -0.1263
X[ 5] = 2.9584 Y[ 5] = -0.0781
X[ 6] = 3.2336 Y[ 6] = 0.6437
X[ 7] = 3.2944 Y[ 7] = 0.8743
X[ 8] = 3.9368 Y[ 8] = 5.3285
X[ 9] = 5.7816 Y[ 9] = 50.2972
X[10] = 6.0488 Y[10] = 62.3223
Cпасибо )

[Rozaliya]

Ввод данных через Excel//
Sub Eitken()
Dim k, i, j, m, L, n As Integer
Dim x(11), f(11) As Single
Dim s As Double
Dim Y(11, 11), Eit(11, 11) As Single
k = 11
x1 = Worksheets("Лист3").Range("A5").Val ue
Rem
For i = 0 To 10
x(i) = Worksheets("Лист3").Cells(i + 8, 2).Value
f(i) = Worksheets("Лист3").Cells(i + 8, 3).Value
Next
Rem
If m = 0 Then
s = f(m)
Else
If m = 1 Then
s = (f(L + 1) - f(L)) / (x(L + 1) - x(L))
Else
s = (Y(m - 1, L + 1) - Y(m - 1, L)) / (x(L + m) - x(L))
End If
End If
Y(11, 11) = s
If n = 0 Then
s = f(m)
Else
s = ((x1 - x(m - n)) * Eit(n - 1, m) - (z - x(m)) * Eit(n - 1, m - 1)) / (x(m) - x(m - n))
End If
Eit(11, 11) = s
Worksheets("Лист3").Range("D5").Val ue = Eit(11, 11)
End Sub

Проверьте пожалуйста ...у меня ответ не сходится..

[Rozaliya]

Проверьте пожалуйста ...у меня ответ не сходится..