如何在R中绘制产品功能？

Question

我正在尝试一个问题，但首先我必须在r绘图

(x+1)(x+2)...(x+n),

n是一个固定的整数。

知道如何创建这个例程吗？

Answer 1

如果x大于-1，则可以通过利用该关系来最有效地计算

(x + 1)*(x + 2)* ... *(x + n) = Gamma(x+n+1) / Gamma(x+1).

Gammas是根据它们的对数在内部计算的，所以以lgamma的形式使用这些日志：

f <- function(x, n) exp(lgamma(x+n+1) - lgamma(x+1))

然后可以通过 curve获得绘图，例如，如

curve(f(x,3), 0, pi)

Answer 2

你想要这样的东西吗？

f <- function(x, n) {
  return(prod(1/(x+(1:n))))
}