sss / Задание для МП_11,17,П_12 / учет успеваемости_к_20_02_12 / МП-11_МА / Integralnye Summy_17_Chernyak_1

Нижняя:

function [sum] = intsum(f,n,a,b)

sh=(b-a)/n;

sum=0;

for i=0:n-1

sum=sum+sh*feval(f,(a+i*sh));

end

end

> intsum(@(x)x+1,5,0,5)

ans =

15

>> intsum(@(x)x+1,10,0,5)

ans =

16.2500

>> intsum(@(x)x+1,100,0,5)

ans =

17.3750

>> intsum(@(x)x+1,1000,0,5)

ans =

17.4875

>> intsum(@(x)x^2,5,0,1)

ans =

0.2400

>> intsum(@(x)x^2,10,0,1)

ans =

0.2850

>> intsum(@(x)x^2,100,0,1)

ans =

0.3284

>> intsum(@(x)x^2,1000,0,1)

ans =

0.3328

Верхняя:

function [sum] = intsum(f,n,a,b)

sh=(b-a)/n;

sum=0;

for i=1:n

sum=sum+sh*feval(f,(a+i*sh));

end

end

>> intsum(@(x)x+1,5,0,5)

ans =

20

>> intsum(@(x)x+1,10,0,5)

ans =

18.7500

>> intsum(@(x)x+1,100,0,5)

ans =

17.6250

>> intsum(@(x)x+1,1000,0,5)

ans =

17.5125

>> intsum(@(x)x^2,5,0,1)

ans =

0.4400

>> intsum(@(x)x^2,10,0,1)

ans =

0.3850

>> intsum(@(x)x^2,100,0,1)

ans =

0.3384

>> intsum(@(x)x^2,1000,0,1)

ans =

0.3338