1. 程式人生 > 其它 >R-求y=sin(X) 0-PI 面積程式碼

R-求y=sin(X) 0-PI 面積程式碼

integrand <- function(x) {
 
  sin(x)
}
pi<-3.14
up<-pi
res<-integrate(integrand, lower = 0, upper = up)
#integ
res<-res$value*2
print(res)