Домашняя работа - Интерполяция многочленом Лагранжа - Епишкин - Несмелов - 2008 / Вычмат(слава)

Российский Химико-Технологический Университет

им. Д.И. Менделеева

Домашняя работа

приближение функции методом интерполяции многочленом Лагранжа

Выполнил: студент группы И-24 Несмелов С.

Принял: Епишкин А.П.

Москва 2008

Задание: построение интерполяционного многочлена методом Лагранжа, вариант 18

Функция задана таблицей

Определить интерполяционный многочлен

Программа для вычисления коэффициентов в интерполяционном многочлене:

Sub intrpl()

Dim i As Integer, x(4), y(4), l(4), s, s1, A(4), B(4), C(4), D(4), S_a, S_b, S_c, S_d As Single

For i = 0 To 3

x(i) = Cells(2, i + 2)

y(i) = Cells(3, i + 2)

Next i

s = x(0) + x(1) + x(2) + x(3)

s1 = x(0) * (x(1) + x(2) + x(3)) + x(1) * (x(2) + x(3)) + x(2) * x(3)

For i = 0 To 3

A(i) = y(i) / (x(i) ^ 3 - x(i) ^ 2 * (s - x(i)) + x(i) * (s1 - x(i) * (s - x(i))) - x(0) * x(1) * x(2) * x(3) / x(i))

B(i) = -(s - x(i)) * A(i)

C(i) = (s1 - x(i) * (s - x(i))) * A(i)

D(i) = -x(0) * x(1) * x(2) * x(3) / x(i) * A(i)

Cells(7 + i, 2) = A(i)

Cells(7 + i, 3) = B(i)

Cells(7 + i, 4) = C(i)

Cells(7 + i, 5) = D(i)

Next i

S_a = 0

S_b = 0

S_c = 0

S_d = 0

For i = 0 To 3

Sa = Sa + A(i)

Sb = Sb + B(i)

Sc = Sc + C(i)

Sd = Sd + D(i)

Next i

Cells(12, 2) = Sa

Cells(12, 3) = Sb

Cells(12, 4) = Sc

Cells(12, 5) = Sd

End Sub

Ответ: