[Мирька]

Мдя... На информатику пришла только я.

флэшку не взяль)))

function [I,e]=Simpsona(a,b,n)
h=(b-a)/n;
x=linspace(a,b,n+1);
function y=f(x)
y=sin(x)
ind1 = x(2:2:n);
ind2 = x(3:2:n-1);
S1=sum(f(ind1));
S2=sum(f(ind2));
I=(h/3)*(f(a)+f(b)+4*S1+2*S2);

function [I]=mSimpsona_tochn(f,a,b,eps0,n)
d=10;
[I]=metod_Simpsona(f,a,b,n);
while d>eps0
I2=0.2027;
d=abs(I-I2)/15;
n=2*n;
I=I2;
end
n=n/2;
end

function [I]=metodtrap(f,a,b,n)
h=abs(b-a)/n;
x=linspace(a+h,b-h,n-1);
I=h*((f(a)+f(b))./2+sum(f(x)));
end

I=quad('1./((x.^2)-1)',2,3)

I =

0.2027