前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >R语言:斐波那契数列

R语言:斐波那契数列

作者头像
努力在北京混出人样
发布2019-02-18 16:07:28
3K0
发布2019-02-18 16:07:28
举报
文章被收录于专栏:祥子的故事

用R语言实现斐波那契数列

代码语言:javascript
复制
#斐波那契数列
#1,1,2,3,5,8,13,21,34,....
a=1;b=1
qing <- function(x){
  for (i in 1:5){
    print(a)
    c = a +b
    a =b
    b =c
  }
  }

qing(5)
[1] 1
[1] 1
[1] 2
[1] 3
[1] 5
# c = a +b 将a+b 赋值给c
#a =b 把b赋值给a,a原来的值被覆盖掉
#b =c 把c赋值给b,b原来的值被覆盖掉
#a是更新最慢的,从而将每个数都给打印出来
###这里采用了循环,是为了提示运行次数或兔子问题中的繁殖代数





a=1;b=1;i=0
wo <- function(x){
  while(i <= x) {
    print(a)
    c = a +b
    a =b
    b =c
    i = i + 1
  } 
  }
wo(5)
[1] 1
[1] 1
[1] 2
[1] 3
[1] 5
[1] 8
##和第一个类似



wo <- function(x){
  if (x ==1 || x == 2){
    return(1)
  }else{
    return(qing(x-1) + qing(x-2))
  }
}

wo(6)
[1] 8
##采用了递归的编程思想。
本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2016年10月27日,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档