转盘问题的R语言模拟

原创
2017/03/31 11:24
阅读数 10

##一次的结果
##初始化
a1 <- NULL;a2 <- NULL;a3 <- NULL;zuida <- NULL
##第一个人转轮盘过程  
x <- sample(c(1:20),1)
exp1<-15
if(x>=exp1){a1 <- x
           }else{
              a1 <- x+sample(c(1:20),1)
              }
while(a1>20){a1=0}
zuida[1]=a1


##第二个人转轮盘过程
x <- sample(c(1:20),1)
exp2<- sample(c(14,15,16,17,18),1)
if(x>=exp2&&x>a1){a2=x
                 }else{
                   a2=x+sample(c(1:20),1)
                 }
while(a2>20){a2=0}
zuida[2] <- a2
max=max(zuida)

#第三个人转轮盘过程
x <- sample(c(1:20),1)
if(x>max){a3=x
            }else{
              a3=x+sample(c(1:20),1)
            }
while(a3>20){a3=0}
zuida[3] <- a3
##找出获胜者
for(i in 1:3){
  if(zuida[order(zuida,decreasing=T)][1]==zuida[i]){
    win=i
  }
}
##########################################
##重复一万遍游戏
for(j in 1:100){
  ##一次的结果
  ##初始化
  a1 <- NULL;a2 <- NULL;a3 <- NULL;zuida <- NULL
  ##第一个人转轮盘过程  
  x <- sample(c(1:20),1)
  exp1<-15
  if(x>=exp1){a1 <- x
  }else{
    a1 <- x+sample(c(1:20),1)
  }
  while(a1>20){a1=0}
  zuida[1]=a1
  
  
  ##第二个人转轮盘过程
  x <- sample(c(1:20),1)
  exp2<- sample(c(14,15,16,17,18),1)
  if(x>=exp2&&x>a1){a2=x
  }else{
    a2=x+sample(c(1:20),1)
  }
  while(a2>20){a2=0}
  zuida[2] <- a2
  max=max(zuida)
  
  #第三个人转轮盘过程
  x <- sample(c(1:20),1)
  if(x>max){a3=x
  }else{
    a3=x+sample(c(1:20),1)
  }
  while(a3>20){a3=0}
  zuida[3] <- a3
  ##找出获胜者
  for(i in 1:3){
    if(zuida[order(zuida,decreasing=T)][1]==zuida[i]){
      win=i
    }
  }
  winman[j]=win
}


 

展开阅读全文
R
打赏
0
0 收藏
分享
加载中
更多评论
打赏
0 评论
0 收藏
0
分享
返回顶部
顶部