ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 06.04.2021
Просмотров: 161
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
int:=int+Gauss6(l,r);
end do;
int1:=int2;
int2:=int;
k:=k*2;
end do;
return evalf(int2);
end proc;
# задаем подынтегральную функцию
> f:=x-> sin(x)*xˆ 2*ln(x)/(xˆ 4*exp(x)ˆ 2);
Проверим работу процедур.
> Gauss(1,8,0.0000000001);
0.008185355232
> evalf(int(f(x),x=1..8));
0.008185355234
> Gauss6(1,8);
0.008710562730
16