he<-numeric(10000) *模拟一万次
> for (i in 1:10000){he<-sample(1:6,1)+sample(1:6,1)+sample(1:6,1)}
最终计算了下投入产出,可以看出返还奖金的比例在50多一点
和值 | 中奖频数 | 单次中奖金额 | 中奖总金额 | 成本 |
11 | 1262 | 9 | 11358 | 20000 |
10 | 1255 | 9 | 11295 | 20000 |
12 | 1153 | 10 | 11530 | 20000 |
9 | 1120 | 10 | 11200 | 20000 |
8 | 1011 | 12 | 12132 | 20000 |
13 | 1009 | 12 | 12108 | 20000 |
7 | 699 | 16 | 11184 | 20000 |
14 | 665 | 16 | 10640 | 20000 |
15 | 458 | 25 | 11450 | 20000 |
6 | 443 | 25 | 11075 | 20000 |
5 | 279 | 40 | 11160 | 20000 |
16 | 262 | 40 | 10480 | 20000 |
4 | 144 | 80 | 11520 | 20000 |
17 | 140 | 80 | 11200 | 20000 |
3 | 54 |
|
|
|
18 | 46 |
|
|
|