[問題] 用R模擬猜拳賭博
R的初學者
想用R來模擬一個賭博方式
規則如下
本金1000000元
跟對方玩剪刀時頭布
如果贏對方的話
可以得到100元
如果輸或跟對方平手的話給對方100元後
下次變成賭300元
之後再跟對方玩一次剪刀石頭布
如果贏就不玩了
如果輸或平手
就再賭900元
總之就是如果輸了 就賭上次賭額的3倍
想要R模擬破產的機率是多少
wealth=1000000
a=sample(1:3,1)
if(a==1)
{
c=wealth+100
print(c)
}
if(a!=1)
{
print(wealth-100)
}
這是我想的程式碼
目前以為要用for 或是while來用
但是沒有頭緒
懇請版友幫忙
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.45.69.166
※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1492526596.A.023.html
推
04/18 23:09, , 1F
04/18 23:09, 1F
→
04/18 23:10, , 2F
04/18 23:10, 2F
→
04/18 23:25, , 3F
04/18 23:25, 3F
→
04/18 23:25, , 4F
04/18 23:25, 4F
→
04/18 23:26, , 5F
04/18 23:26, 5F
→
04/18 23:27, , 6F
04/18 23:27, 6F
→
04/18 23:27, , 7F
04/18 23:27, 7F
→
04/18 23:27, , 8F
04/18 23:27, 8F
→
04/18 23:29, , 9F
04/18 23:29, 9F
→
04/18 23:29, , 10F
04/18 23:29, 10F
→
04/18 23:29, , 11F
04/18 23:29, 11F
→
04/18 23:30, , 12F
04/18 23:30, 12F
→
04/18 23:30, , 13F
04/18 23:30, 13F
→
04/18 23:31, , 14F
04/18 23:31, 14F
→
04/18 23:32, , 15F
04/18 23:32, 15F
→
04/19 11:04, , 16F
04/19 11:04, 16F
→
04/19 16:44, , 17F
04/19 16:44, 17F
→
04/20 00:12, , 18F
04/20 00:12, 18F