Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
15
Добавлен:
05.06.2015
Размер:
13.87 Кб
Скачать

Упражнение 4

Создать М-функцию, вычисляющую значение нижней суммы Дарбу на отрезке с равномерным разбиением на отрезков.

function darbuniz(f,n,a,b)

syms x;

in=0;

for i=0:1:n-1

[xmin ymin]=fminbnd(f,a+(b-a)/n*i,a+(b-a)/n*(i+1));

in=in+ymin*(b-a)/n;

end

in

end

>> darbuniz(@(x)x,2,1,2)

in =

1.2501

function darbuverx(f,n,a,b)

syms x;

in=0;

for i=0:1:n-1

[xmin ymin]=fminbnd(f,a+(b-a)/n*i,a+(b-a)/n*(i+1));

in=in+ymin*(b-a)/n;

end

in1=-in;

in1

end

>> darbuverx(@(x)-x,2,1,2)

in1 =

1.7499

Соседние файлы в папке МП-11_МА