如何解决您如何证明玩家损失了钱? 彩色游戏
我必须为学校解决这个问题:
将掷出三个彩色骰子,玩家将赌注押在6种颜色之一。如果玩家选择的颜色与掷出的3个骰子中的颜色相匹配,则赢得的赌注相同,两倍或三倍。假设玩家每轮只下注一种颜色。模拟此游戏,并显示玩家最终将失去金钱。
我有模拟游戏的代码。但是,我不知道该如何证明玩家最终会赔钱。
这是R中的代码:
dice = c("red","blue","yellow","green","orange","violet")
win = 0
lose = 0
sims = 10000
multiplier = 0
ctr = 0
bet = 1
consecutive = 0
while (ctr != sims) {
rolls <- sample(dice,3)
chosen_color <- sample(dice,1)
for (x in rolls) {
if (chosen_color == x) {
multiplier = multiplier + 1
}
}
winnings = bet * multiplier
if (winnings == 0) {
lose = lose + 1
multiplier = 0
}
if (winnings > 0) {
consecutive = consecutive + 1
win = win + 1
multiplier = 0
}
ctr = ctr + 1
}
print("Results:")
print(paste("Games won: ",win))
print(paste("Games lost: ",lose))
print(paste("Probability of winning: ",win/sims))
print(paste("Probability of losing: ",lose/sims))
我认为应该有一个money变量,其输出应该为0。但是我不知道如何将其合并到程序中。
感谢您的时间!
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。