某台阶有n阶,青蛙每次以1/3概率跳一阶,以2/3概率跳二阶。(注:若只剩1级台阶,此时步数+1就是总步数)研究青蛙平均要跳多少步才能爬上台阶。
(1)自编函数,以n(台阶阶数),
rep(重复次数)为参数,返回步数平均值。
(2)n=20,rep=5000时,用所编函数计算平均步数。
有关R语言的问题一个问题。
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
- 澍17 2021-10-12 19:29关注
steps <- function(n,rep){
sum_step <- c()
for (i in 1:rep){
step=0
surplus=n
while(surplus>0){
x <- rbinom(1,size=1,1/3)
if(x==1){
step=step+1
surplus=surplus-1
}
if(x==0){
step=step+1
surplus=surplus-2
}
if(surplus==1){
step=step+1
break
}
}
sum_step <- c(sum_step,step)
}
mean_step <- mean(sum_step)
return(mean_step)
}
#(2)
steps(20,5000)本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 1无用
悬赏问题
- ¥15 有了解d3和topogram.js库的吗?有偿请教
- ¥100 任意维数的K均值聚类
- ¥15 stamps做sbas-insar,时序沉降图怎么画
- ¥15 unity第一人称射击小游戏,有demo,在原脚本的基础上进行修改以达到要求
- ¥15 买了个传感器,根据商家发的代码和步骤使用但是代码报错了不会改,有没有人可以看看
- ¥15 关于#Java#的问题,如何解决?
- ¥15 加热介质是液体,换热器壳侧导热系数和总的导热系数怎么算
- ¥100 嵌入式系统基于PIC16F882和热敏电阻的数字温度计
- ¥15 cmd cl 0x000007b
- ¥20 BAPI_PR_CHANGE how to add account assignment information for service line