Найти область, ограниченную функциями в R

Question

Как рассчитать площадь, ограниченную функциями? Нужна помощь, так как я новичок в R! У меня есть эти функции:

y=sin(x)*cos(x)^2

y=0

0<=x<=pi/2

Answer 1

Возможно, вы заметили, что y = sin(x)*cos(x)^2 неотрицательно в интервале 0<=x<=pi/2, поэтому ваша цель может быть достигнута через интеграл sin(x)*cos(x)^2 за указанный интервал.

Возможно, вы можете попробовать integrate:

s <- integrate(function(x) sin(x)*cos(x)**2,0,pi/2)$value

такой, что

> s
[1] 0.3333333