Определенный интеграл методом средних прямоугольников (программа)

@John263215536 · Регистрация: 23.12.2015

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

Нужно написать программу в maple определенный интеграл exp(x)dx пределы от 0.2 до 0.8 https://www.cyberforum.ru/atta... 1450873912
результат получается когда решаю через интеграл,а нужно еще написать программу не получается написать ее,заранее спасибо!

@VSI · 23.12.2015, 16:16

John263215536, держите...
> restart;
> f:=exp(x):
> centr_P:=proc(f,a,b,n)
local i,S;
S:=0:
for i from 0 to n-1 do
S:=S+exp(a+((i+1/2)*(b-a))/n):
end do:
S:=S*(b-a)/n:
print(S);
end proc:
> centr_P(f,0.2,0.8,100);
1.004136664
> int(f,x=0.2..0.8);
1.004138170

@John263215536 0 / 0 / 0 Регистрация: 23.12.2015 Сообщений: 21
		1
	Определенный интеграл методом средних прямоугольников (программа) 23.12.2015, 15:34. Показов 3607. Ответов 1 Метки нет (Все метки) Нужно написать программу в maple определенный интеграл exp(x)dx пределы от 0.2 до 0.8 https://www.cyberforum.ru/atta... 1450873912 результат получается когда решаю через интеграл,а нужно еще написать программу не получается написать ее,заранее спасибо! Изображения 0

@VSI Модератор $Эксперт по математике/физике$ 5240 / 4027 / 1385 Регистрация: 30.07.2012 Сообщений: 12,299
	23.12.2015, 16:16	2
	John263215536, держите... > restart; > f:=exp(x): > centr_P:=proc(f,a,b,n) local i,S; S:=0: for i from 0 to n-1 do S:=S+exp(a+((i+1/2)(b-a))/n): end do: S:=S(b-a)/n: print(S); end proc: > centr_P(f,0.2,0.8,100); 1.004136664 > int(f,x=0.2..0.8); 1.004138170 1