|
Ознакомиться с методикой приближенного представления функций в виде интерполяционного полинома и способами оценивания погрешностей интерполяции.
2.Постановка задачи
Вычислить приближенные значения функции y = f(x), x[a, b] с шагом (= 0,1) посредством интерполяционного полинома (n = 2, 3, 4), определенного через в узлах интерполяции (N = 3, 4, 5) с шагом h = (b - a)/(N - 1) = const на интервале [a, b].
Оценить погрешности интерполирования функции y = f(x) на интервале [a, b].
Исследовать влияние количества узлов N (порядка n) на точность интерполирования
№ |
y = f(x) |
[a, b] |
5 |
[0,8, 4,0] |
3. Формула интерполяционного полинома в общем виде.
Для заданной на [a, b] в узлах интерполяции функции y = f(x) полином в общем виде , коэффициенты могут быть определены из системы линейных алгебраических уравнений
4. Листинг программы.
real x(51),y(51),u(5,5),v(5),pk(5),p(51),e(51)
print*,'N->'
read*,N
a=0.8
b=4.0
h=(b-a)/(N-1)
do 1 i=1,N
x(i)=a+(i-1)*h
1 y(i)=exp(x(i))*cos(x(i))
call n1ysau (N,x,y,u,v)
call n1ygau (u,v,pk,N)
write (1,101) N
write (1,102) (x(i),i=1,N)
write (1,102) (y(i),i=1,N)
write (1,102) (pk(i),i=1,N)
dx=0.1
kn=(b-a)/dx+1.1
do 2 k=1,kn
x(k)=a+(k-1)*dx
y(k)=exp(x(k))*cos(x(k))
p(k)=0
do 2 i=1,N
2 p(k)=p(k)+pk(i)*x(k)**(i-1)
call n1yeee (y,p,kn,e,em,es,ep,emo,eso,epo)
do 3 k=1,kn
3 write (2,103) x(k),y(k),p(k),e(k)
write (2,104) Emo,Eso
101 format (3x,'N=',i1)
102 format (5(1x,f8.3))
103 format (3x,f5.2,3(2x,e11.4))
104 format (3x,'Emo=',e11.4,2x,'Eso=',e11.4)
stop
end
5. Результаты вычислений для N = 3, 4, 5
Интерполирование ведется по таблице |
|||||||
*** |
X |
Y=F(X) |
*** |
||||
*** |
0.800 |
1.551 |
*** |
||||
*** |
2.400 |
-8.128 |
*** |
||||
*** |
4.000 |
-35.688 |
*** |
||||
Степень полинома n=2 |
|||||||
Коэффициенты полинома: -0.315 5.126 -3.492 |
|||||||
K |
X |
F(X) |
Pn(x) |
E(X) |
|||
1 |
0,80 |
1,55E+00 |
-1,55E+00 |
1,19E-07 |
|||
2 |
0,90 |
1,53E+00 |
1,47E+00 |
5,95E-02 |
|||
3 |
1,00 |
1,47E+00 |
1,32E+00 |
1,50E-01 |
|||
4 |
1,10 |
1,36E+00 |
1,10E+00 |
2,65E-01 |
|||
5 |
1,20 |
1,20E+00 |
8,07E-01 |
3,96E-01 |
|||
6 |
1,30 |
9,82E-01 |
4,47E-01 |
5,35E-01 |
|||
7 |
1,40 |
6,89E-01 |
1,63E-02 |
6,73E-01 |
|||
8 |
1,50 |
3,17E-01 |
-4,84E-01 |
8,01E-01 |
|||
9 |
1,60 |
-1,45E-01 |
-1,05E+00 |
9,09E-01 |
|||
10 |
1,70 |
-7,05E-01 |
-1,69E+00 |
9,89E-01 |
|||
11 |
1,80 |
-1,37E+00 |
-2,40E+00 |
1,03E+00 |
|||
12 |
1,90 |
-2,16E+00 |
-3,18E+00 |
1,02E+00 |
|||
13 |
2,00 |
-3,08E+00 |
-4,03E+00 |
9,58E-01 |
|||
14 |
2,10 |
-4,12E+00 |
-4,95E+00 |
8,29E-01 |
|||
15 |
2,20 |
-5,31E+00 |
-5,94E+00 |
6,30E-01 |
|||
16 |
2,30 |
-6,65E+00 |
-7,00E+00 |
3,54E-01 |
|||
17 |
2,40 |
-8,13E+00 |
-8,13E+00 |
0,00E+00 |
|||
18 |
2,50 |
-9,76E+00 |
-9,33E+00 |
-4,33E-01 |
|||
19 |
2,60 |
-1,15E+01 |
-1,06E+01 |
-9,41E-01 |
|||
20 |
2,70 |
-1,35E+01 |
-1,19E+01 |
-1,52E+00 |
|||
21 |
2,80 |
-1,55E+01 |
-1,33E+01 |
-2,15E+00 |
|||
22 |
2,90 |
-1,77E+01 |
-1,48E+01 |
-2,83E+00 |
|||
23 |
3,00 |
-1,99E+01 |
-1,64E+01 |
-3,52E+00 |
|||
24 |
3,10 |
-2,22E+01 |
-1,80E+01 |
-4,19E+00 |
|||
25 |
3,20 |
-2,45E+01 |
-1,97E+01 |
-4,82E+00 |
|||
26 |
3,30 |
-2,68E+01 |
-2,14E+01 |
-5,34E+00 |
|||
27 |
3,40 |
-2,90E+01 |
-2,33E+01 |
-5,71E+00 |
|||
28 |
3,50 |
-3,10E+01 |
-2,52E+01 |
-5,86E+00 |
|||
29 |
3,60 |
-3,28E+01 |
-2,71E+01 |
-5,70E+00 |
|||
30 |
3,70 |
-3,43E+01 |
-2,92E+01 |
-5,15E+00 |
|||
31 |
3,80 |
-3,54E+01 |
-3,13E+01 |
-4,09E+00 |
|||
32 |
3,90 |
-3,59E+01 |
-3,34E+01 |
-2,42E+00 |
|||
33 |
4,00 |
-3,57E+01 |
-3,57E+01 |
0,00E+00 |
|||
Погрешности: Eмo = 0.1633E+00 |
|||||||
Eco = 0.1505E+00 |
|||||||
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.