Ошибка Рунге при вычислении интеграла - ПРИМЕРЫ ПРОГРАММ - ПРОГРАММИРОВАНИЕ - БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

PRIMAT.ORG
© 2008-2012

ПРИКЛАДНАЯ
МАТЕМАТИКА

Сайт для студентов, школьников, преподавателей, программистов и математиков. Здесь можно online решить задачу, пройти тесты, найти решение или программу, получить помощь. Можно добавить задачу, программу, статью.


	Вход

НОВОЕ В БИБЛИОТЕКЕ

● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Дифференциальные уравнен...
● Составление дифференциал...
● Составление дифференциал...
● Производные высших поряд...
● Производные высших поряд...
● Дифференцирование тригон...
● Дифференцирование алгебр...
● Дифференцирование алгебр...

НОВЫЕ ФАЙЛЫ

● Sm графики функций (beta...
● Graf_builder
● Учимся считать
● Мобильный справочник по ...
● Уникальный калькулятор
● Программа для построения...
● «Новости ПриМата» для An...
● Schedule Builder Light 2...
● График
● Sm Калькулятор

    ЛУЧШИЕ ПУБЛИКАЦИИ

● Бухаете? Тогда я иду к в...
● Считаем сумму ряда
● Новый вирус - три десятк...
● Получить кнопку ТИЦ и Pa...
● Программирование под And...
● Матричный калькулятор (3...
● Пара интересных задач
● Небольшая забава для про...
● Немного юмора для матема...
● Продержись восемнадцать ...

    ЛУЧШИЕ МАТЕРИАЛЫ

● Высшая математика. Лекци...
● Высшая математика. Лекци...
● Умножение матриц (Паскал...
● Высшая Математика. Лекци...
● Высшая математика. Лекци...
● Высшая Математика. Лекци...
● Темы курсовых работ (укр...
● Пример использования мно...
● Теория графов плюс бонус...
● Сортировка Хоара (быстра...

    10 ЛУЧШИХ ФАЙЛОВ

● Эконометрика
● Таблица производных
● Шпаргалка по высшей мате...
● Математические формулы
● Гмурман. Теория вероятно...
● Таблица интегралов
● Таблицы неопределенных и...
● Программирование на язык...
● Программирование на Си (...
● Программирование на язык...

Конструктор информеров


	Карта тегов сайта Навигатор-карта сайта Информация о сайте Статистика сайта FAQ (вопрос/ответ)


	На сайте всего: 3 Посетителей: 3 Пользователей: 0


	БИБЛИОТЕКА УЧЕБНЫХ МАТЕРИАЛОВ

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » ПРИМЕРЫ ПРОГРАММ

[ ДОБАВИТЬ ]

Ошибка Рунге при вычислении интеграла

Вычисление апостериорной ошибки по правилу Рунге при вычислении интеграла методом Симпсона. Полезно студентам-математикам. Язык Паскаль.

program metod_simpsona;
 uses crt;
 const
 a:real=0; b:real=1; epsilon:real=0.00000001;
 var
 s:real;
 function f(x:real):real;
 begin
 f:=exp(-sqr(x));
 end;

 function simpson(a,b,epsilon:real):real;
 var
 s1,s2,s,h,ApEr:real; i,n,k:word;
 begin
 k:=1; n:=2*k; h:=(b-a)/n;
 s2:=(f(a)+f(b))*(h/3);
 repeat
 s1:=s2; k:=2*k; h:=(b-a)/(2*k);
 s2:=f(a)+f(b); s:=0;
 for i:=1 to k do s:=s+f(a+(2*i-1)*h);
 s2:=s2+4*s; s:=0;
 for i:=1 to k-1 do s:=s+f(a+2*i*h);
 s2:=s2+2*s; s2:=s2*h/3;
 ApEr:=abs(s2-s1)/15;
 writeln('При n=',2*k:3,' ошибка= ',ApEr:10:8,', I=',s2:10:8);
 until ApEr < epsilon;
 simpson:=s2
 end;
Begin
 clrscr;
 writeln('Апостериорная ошибка по правилу Рунге');
 writeln('при вычислении интеграла методом Cимпсона');
 writeln('от exp(-x*x) в пределах от a=',a:4:2, ' до b=', b:4:2);
 writeln('epsilon=',epsilon:10:8);
 S:=simpson(a,b,epsilon);
 readln
End.

Просмотров [ 469 ] ● 18.08.10 ● Рейтинг [ 0% ]

Комментариев: [ 0 ]


	Украинская Баннерная Сеть

Ваше Имя