求自然数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求自然数

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：自然数 function return repeat 自然数

> f.e<-function(f,eps=1e-5){
+     s<-0;i<-0
+     repeat{
+         s<-s+f(i)
+         i<-i+1
+         if (f(i)<eps) break
+     }
+     return (c(s,i))
+ }
> f<-function(i) 1/factorial(i)
> f.e(f,1e-5)
[1] 2.718279 9.000000
> exp(1)
[1] 2.718282

零星的错误太多了(f的多次出现都非必要， 关键的错误在 "s <- s + f", 应改为"s <- s + 1/factorial(i)"）。直接给出我的函数供你参考，自己修改吧。

1. f.e <- function(eps = 1e-5) {
   
2.         i <- appe <- 1
   
3.         while (1/factorial(i) > eps) {
   
4.                 appe <- appe + 1/factorial(i)
   
5.                 i <- i + 1
   
6.         }
   
7.         return(appe)
   
8. }

复制代码

是什么东西 是PYTHON吗，我的网站http://www.nongyie.com就是用它操作的，

毓闻 发表于 2015-3-29 11:40
> f.e

谢谢大神！还想问下为什么 写成s<-s+f的形式，运行代码后会出现“错误于f : 类别为'closure'的对象不可以取子集”这样一句话？f与f(i)的区别在哪里？

belgium 发表于 2015-3-29 14:42
谢谢大神！还想问下为什么 写成s

f 是一个函数，需要有argument才能计算~