R语言:如何r语言编写程序求e的近似值，精确到10-5

Python014

R语言:如何r语言编写程序求e的近似值，精确到10-5,第1张

最简单但计算量最大的是泰勒公式：e=1+1/1!+1/2!+1/3!+1/4!+...

下面是求e的R语言函数：

e_fun <- function(n) {

  etemp <- 1

  ni <- 1L

  for (i in 1:n) {

    etemp <- etemp + 1 / ni

    ni <- ni * (i + 1)

  }

  return(etemp)

}

不过你题目中要求的是求到精度为0.00001就停止，所以可以采用repeat循环：

i <- 1L

ni <- 1L

etemp <- 1

repeat {

  etemp1 <- etemp

  etemp <- etemp + 1 / ni

  ni <- ni * (i + 1)

  i <- i + 1

  if (etemp - etemp1 < 0.00001) break

}

i

etemp

在最后可以看到，求到i=10时，精度就已经达到要求了。

要求：误差小于0.00001

Private Sub Command1_Click（）

Dim i%， n&， t！， e！

e = 2

i = 1

t = 1

Do While t >0.00001

i = i + 1

t = t / i

e = e + t

Loop

Print "计算了"； i； "项目和是："； e

Print Exp（1） ‘与上句输出值进行对比以证明算法的正确性

End Sub

这种算法是有问题的，不能达到指定的精度的！t <= 0.00001 时结束了循环，这个只是到这一项为止，该项的值比精度小，但是不能保证被舍掉的后面部分（无穷项之和）阶乘的倒数之和比指定的精度小！