integrand <- function(x) { sin(x) } pi<-3.14 up<-pi res<-integrate(integrand, lower = 0, upper = up) #integ res<-res$value*2 print(res)
本文分享自 作者个人站点/博客 前往查看
如有侵权,请联系 cloudcommunity@tencent.com 删除。
本文参与 腾讯云自媒体同步曝光计划 ,欢迎热爱写作的你一起参与!