如何在R语言中实现log(1+x)的麦克劳林级数并修正代码？

你的代码存在几个核心问题，直接修正如下：

问题分析 #

1. 直接赋值log(1+x)是调用R内置对数函数，并非实现麦克劳林级数；
2. 级数公式写错：(-1^n+1)运算优先级错误，正确符号应为(-1)^(n+1)；
3. 未定义变量n和x，且无穷级数无法直接计算，需指定有限项数做近似。

正确实现代码 #

麦克劳林级数的收敛域是$x \in (-1,1]$，以下是可运行的函数实现：

maclaurin_log <- function(x, n_terms) {
  # 检查输入x的合法性
  if (x <= -1 || x > 1) {
    stop("x必须在(-1, 1]范围内")
  }
  # 生成从1到指定项数的n向量
  n <- 1:n_terms
  # 计算级数的每一项
  terms <- ((-1)^(n+1)) * (x^n) / n
  # 求和得到近似值
  sum(terms)
}

使用示例 #

# 计算x=0.5，取10项近似
maclaurin_log(0.5, 10)
# 和R内置函数结果对比
log(1.5)

内容的提问来源于stack exchange，提问作者user16218933