循环语句的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

为计算

已知P0，如何用语句求出P1，P2，P3，P4......

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：循环语句 如何用 如何

1. p0<-0 #设定初始值
   
2. n<-100 #设定循环次数
   
3. p<-0   #定义一个数组
   
4. p[1]<-5+3*p0 #先计算数组第一个值
   
5. for(t in 2:n){
   
6. p[t]<-5+3*p[t-1]}
   
7. p[20]

复制代码

童小军 发表于 2013-10-8 21:38

非常感谢

也可用递归函数

fpt=function(tn) {
  p=numeric()
  for (t in 1:tn) {
    if (t!=1) p[t]=3*p[t-1]+5 else p[t]=3*0+5   # 假设初值p0=0
  }
  return(p)
}
fpt(20)

lanyajia 发表于 2013-10-9 08:01
也可用递归函数

fpt=function(tn) {

受教了，非常感谢

p0 <- 1
pfunc <- function(t) {
        if (t==0) return(p0)
        return(3*pfunc(t-1) + 5)
}

最简单的当然是做下数学

p(t) = 3^t*(p(0) + 2.5) - 2.5

用R的话就是

pfunc <- function(t) 3^t*(p0 + 2.5) - 2.5

ntsean 发表于 2013-10-9 22:07
最简单的当然是做下数学

p(t) = 3^t*(p(0) + 2.5) - 2.5

感谢热心的指导，受教了