R语言之R程序（老虎机）

第一步，模拟动作。可以用sample函数随机生成三个符号,就像你在项目1中随机“掷”骰子一样。下面的函数能够从老虎机的常用符号中随机选择三个符号。这些常用符号包括:钻石(DD)、七(7)、三条杠(BBB)、两条杠(BB)、一条杠(B)、樱桃©和零(0)。符号的选择完全是随机的,但是每个符号出现的概率各不相同。

get_symbols<-function()
            wheel<-c("DD",“7","BBB","BB",“B",“C","0")
            sample(wheel,size=3,replace=TRUE, prob=c(0.03,.03,0.06,0.1,0.25,0.01,0.52))

 可以使用get_symbols随机生成老虎机中的三个符号。

每玩一次老虎机游戏需要花费一美元.转出的符号组合决定了玩家所能获得的中奖金额。钻石符号(DD)是可以百搭的,并且能够将最终的金额加倍。*表示任意符号

如果不能满足以下三种情形中的任意一种,玩家将一无所获。
(1)三个符号完全相同(但不能是符号零)。
(2)三个带杠的符号(任意组合)。
(3)一个或多个樱桃。
PS:(百搭牌(DD)的使用有一个例外:除非组合中已经有了一个樱桃,否则钻石不能被当作樱桃。
只要中奖组合中出现了钻石,奖金都会翻倍。

策略

1.有序步骤

生成符号组合→显示符号组合→根据符号组合计算中奖金额

 play<-function(){
   
      #步骤1:生成符号组合
      symbols<-get_symbols()
       #步骤2:显示符号组合
       print(symbols)
       #步骤3:根据符号组合计算中奖金额
       score(symbols)
      }

2.同类情况

if语句

同其他高级语言的语法规则
(1) 下面的函数会返回什么结果?

          x <-1
           if(3=3){
           x<-2}
           x

答案:这段代码的返回值是2。
(2)

 x <-1
  if(TRUE){
   
   x<-2}
   x
   }

练习 ：

x<-1
 if(x==1){