![]() КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Правило трапеций
Если Правило Симпсона (парабол) Если
Замечание 5. Алгоритмы численного интегрирования, построенные на основе локально-интерполяционных квадратурных формул (25) имеют существенный недостаток – они насыщаемые. Насыщаемость проявляется в том, что асимптотическое представление погрешности формулы (25) имеет главный член. Отсюда следует неулучшаемость оценки погрешности, сколь бы ни была гладкой функция В зависимости от гладкости функции где Имеются простые способы преодоления дефекта локально интерполяционных квадратурных формул – их насыщаемости. Все они основаны на простом соображении, что у соответствующей линейной комбинации двух значений составной квадратурной формулы с различными, но кратными шагами, главный член погрешности исключается. Например, для правила трапеций в силу (28) Пусть погрешность локально-интерполяционной квадратурной формулы (25) представима в виде где Отсюда получаем и, следовательно, с точностью до Если Вычисление приближенной оценки погрешности по формуле (29) называется правилом Рунге. Число в (30) называется уточненным (экстраполированным) по Ричардсону приближенным значением интеграла Замечание 6. Используя этот прием, можно уничтожить и следующие члены асимптотического разложения погрешности квадратурной формулы. Однако целесообразнее применять квадратурные формулы, сразу приводящие к ненасыщаемым алгоритмам, например, составные формулы Гаусса. Отметим, что составные квадратурные формулы, основанные на формулах Гаусса с достаточно большим числом узлов, дают хорошие результаты как для очень гладких функций, так и для функций невыской гладкости. Замечание 7. Каждая квадратурная формула рассчитывается на определенную гладкость подинтегральной функции. Например, для правила Симпсона погрешность которые выбирают так, чтобы: 1.8. Задание. Вычислить интеграл Замечание 8. Обычно для вычисления интеграла Если при этом интеграл вычисляется по формуле (31). Варианты заданий
Приложение. Для выполнения задания можно использовать следующие процедуры (на языке Паскаль):
1. Процедура simps, реализующая алгоритм правила Симпсона (парабол): Procedure simps(a,b:real; var n:longint; var y:real); {Входные параметры: a – левый конец отрезка интегрирования; b – правый конец отрезка интегрирования; n - число частичных отрезков разбиения. Выходные параметры: y – значение интеграла. Здесь f имя функции, вычисляющей значения подинтегральной функции.} var i:longint; h,x:real; begin h:=(b-a)/n; y:=0; x:=a; for i:=1 to n do begin y:=y+f(x)+4*f(x+0.5*h)+f(x+h); x:=x+h end; y:=y*h/6 end;
2. Процедура gauss, реализующая алгоритм составной формулы Гаусса с пятью узлами: Procedure gauss(a,b:real; var n:word; var y:real); {Входные параметры: a – левый конец отрезка интегрирования; b – правый конец отрезка интегрирования; n - число частичных отрезков разбиения. Выходные параметры: y – значение интеграла. Здесь f – имя функции, вычисляющей значения подинтегральной функции; vec – одномерный массив (type vec=array[1..5]of real).} var i,j:word; h,x,x1:real; ag,xg:vec; z:real; begin ag[1]:=0.2369268850; xg[1]:=-0.9061798459; ag[2]:=0.4786286705; xg[2]:=-0.5384693101; ag[3]:=0.5688888889; xg[3]:=0.0; ag[4]:=ag[2]; xg[4]:=-xg[2]; ag[5]:=ag[1]; xg[5]:=-xg[1]; h:=(b-a)/n; z:=0; x1:=a+0.5*h; for j:=1 to n do begin for i:=1 to 5 do begin x:=x1+0.5*h*xg[I]; z:=z+ag[i]*f(x); end; x1:=x1+h end; y:=z*0.5*h end;
Дата добавления: 2014-11-18; Просмотров: 777; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |