Метод симпсона

@Predvestnik · Регистрация: 09.10.2010

Author24 — интернет-сервис помощи студентам

у меня в программе вычисляется определённый интеграл методом симпсона, только я вот не понял как его считать с погрешностью , ниже на картинке формула с вычислением погрешности, как мне её в свою программу всунуть???

Pascal

Program Simpson;
Uses crt;
Var a,b,p:real;
function f(x:real):real;
begin
   f:=x+1;
end;
Begin
clrscr;
Writeln('Ввелите пределы интегрирования [a,b]');
readln(a,b);
p:=((b-a)/6)*(f(a)+f(b)+4*f(((a+b)/2)));
Writeln('Интеграл P=',p);
readkey;
End.

@Просто_Юлия · 24.02.2011, 09:25

а обязательно по этой формуле? просто для f(x)=x+1 четвертая производная везде равна 0...

на практике обычно используют правило Рунге: вычисляют интеграл с n шагами интегрирования, потом с 2n, находят модуль разности и умножают на коэффициент (для метода Симпсона 1/15).

@Просто_Юлия 134 / 47 / 11 Регистрация: 27.05.2008 Сообщений: 246
	24.02.2011, 09:25	2
	а обязательно по этой формуле? просто для f(x)=x+1 четвертая производная везде равна 0... на практике обычно используют правило Рунге: вычисляют интеграл с n шагами интегрирования, потом с 2n, находят модуль разности и умножают на коэффициент (для метода Симпсона 1/15). 0