绘制包含积分

Question

我想曲线定义如下的函数v：

u<-function(x){log(x^2+1)}

v<-function(x){integrate(v,0,x)}

当我使用命令curve(v,1,2,10)时，结果是

Error in curve(v, 1, 2, 10) : 
  'expr' did not evaluate to an object of length 'n' 

请帮我绘制函数v。

的曲线

Answer 1

你有一个拼写错误，它应该是integrate(u, ...)，而不是v 你必须让函数v返回一个向量。像这样：

u <- function(x){log(x^2+1)}

v <- function(x){
    sapply(x, function(.x) integrate(u, 0, .x)$value)
}

curve(v, from = 1, to = 2, n = 10)