全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
3474 5
2015-03-29
求自然数


二维码

扫码加我 拉你入群

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

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

全部回复
2015-3-29 11:40:16
> 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
二维码

扫码加我 拉你入群

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

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

2015-3-29 11:43:25
零星的错误太多了(f的多次出现都非必要, 关键的错误在 "s <- s + f", 应改为"s <- s + 1/factorial(i)")。直接给出我的函数供你参考,自己修改吧。
复制代码
二维码

扫码加我 拉你入群

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

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

2015-3-29 13:27:16
是什么东西 是PYTHON吗,我的网站http://www.nongyie.com就是用它操作的,
二维码

扫码加我 拉你入群

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

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

2015-3-29 14:42:14
毓闻 发表于 2015-3-29 11:40
> f.e
谢谢大神!还想问下为什么 写成s<-s+f的形式,运行代码后会出现“错误于f : 类别为'closure'的对象不可以取子集”这样一句话?f与f(i)的区别在哪里?

二维码

扫码加我 拉你入群

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

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

2015-3-29 23:39:18
belgium 发表于 2015-3-29 14:42
谢谢大神!还想问下为什么 写成s
f 是一个函数,需要有argument才能计算~
二维码

扫码加我 拉你入群

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

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

相关推荐
栏目导航
热门文章
推荐文章

分享

扫码加好友,拉您进群