が-1x
より大きい場合、これは関係を利用することによって最も効率的に計算される可能性があります。
(x + 1)*(x + 2)* ... *(x + n) = Gamma(x+n+1) / Gamma(x+1).
ガンマは対数で内部的に計算されるため、これらのログを次の形式で使用しますlgamma
。
f <- function(x, n) exp(lgamma(x+n+1) - lgamma(x+1))
次に、たとえば次のように を介して プロットを取得できます。curve
curve(f(x,3), 0, pi)
