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

最简单但计算量最大的是泰勒公式：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时，精度就已经达到要求了。

最简单的方法就是每次引用时把写好的函数复制一下，到R console 中，然后写其他的。然后，编好的函数写成运戚誉誉.r 文件，下次直接使用命令 source（function.r）就旁虚陵能导入使用了。

1. 开始→程序→Microsoft Word→选“模板”→确定→选“键前演示文稿设计”卡片→“彩晕型模板” →“确定”选第一行第二列的幻灯片→确定。2.将工具栏的“50%”改为“66%”3.插入→文本框→文本框→在幻灯片左上角单击→输入“计算机世界”→在其他地方单击。4.单击底部的“自选图形”→单击“基本”基本选梯形→在页面左下角拖动鼠标，形成梯形→在梯形上单击右键→选“添加文本”→输入“梯形”→在其他地方单击。5.单击标题文字→选中标题文字→在文字上击右键→选复制，在副标题处击右键，选粘贴。6.在框上击右键→设置文本框格式→“位置”卡片→将“水平”、“垂直”中的数改为“15”→确定。7.选中文字“计算机专业方向”，在文字上击“右键”→选字体→将宋体改为楷体，字号改为80，效果中选下划线，颜色改为红色→确定。8.选中带项目符号的文字，在文字上击右键→选项目符合→把颜色改为绿色→确定。9．选中文字→格式→行距→把行距改为1.50→确定。10.视图→页眉页脚→选“自动更新”，改日期格式→选幻灯片编号→把“页脚”去掉→击“全部应用”。11.视图→母版→幻灯片母版12.在桌面上双击Powerpoint图标→选“内容提示向导”→蔽信确定→下一步→选“常规”→下一步→下一步→下一步→完成。13.格式→背景→选颜色为“黄色”→再击“ ”，选“填充效果”，选“双色”，“斜上”→确定→全部应用。14、在幻灯片上击“右键”→选“应用设计模板”→选“草地型模板”→应用15、在底部击“反选图形”→击“基本形状”→选“笑脸”→在幻灯片上拖运鼠标，画出笑脸→在图像上击右键→击“设置自选图形格式”→选“位置”卡片把水平、垂直均改为8.5→确定16、在五角星上击“右键”→选“设置的选图形格式”将填充颜色改为红色→选中“半透明”→确定17、击底部从右边数第二个图标，选“阴稿并清影设置”，击“阴影设置”中左数第5个图标，然后击第6个图标选红色18、击底部从右边数第一个图标，选第三行第二列的图标19、在图形上击“右键”，选复制，在其他的地方击右键选“粘贴”在图形上击右键，选“设置自选图形格式”→选“位置”卡片将水平、垂直按要求改数。20、在图形上击右键，选“设置自选图形格式”→选“大小”卡面，将旋转改为45度→确定

---