上一篇是写的关于洗牌、发牌、计算对应的数据结果。这些我们都已经做好了，这次呢，我玩了10w次这个斗牛，真的是玩的我身心疲惫。其中还崩溃了几次，哈哈哈，其实是使用R跑的。跑了接近8分钟。

这里也劝大家多写并行的R。不然使用for要跑到什么时候。

接下来就是一些描述性统计部分。

part 1 一场（一次发10副）。这10副牌里面有多少个牛？

其实有0， 1， 2， 3， ，，，8，9，10这11种可能。

将结果画出来如下：

从上面的图可以看出来，我运行10w次10副全没有牛才3次。10副里面只有1个牛的是有95次。其中出现最多的是10副里面有6个牛。其实，我刚开始是运行了1w次，发现并没有10副全没牛的这种情况，但是遭到我的室友的质疑。并且给我配出了这种情况，我内心是卧槽加respect。后来我扩大到5w次竟然就有了。还好代码没错误。

part 2 10w次中五花、3带2、四带1、五小各会出现多少次？

经过我的10w次游戏，我统计出下面的结果：

从上面的表可以看出，3带2出现1482次，4带1出现251次，五花出现314次，五小出现179次。这个数值也不是绝对的。大部分都会上下浮动，但是也都在这个范围内。所以说，如果你抓到五小的话，说明今天很幸运。这个时候有没有赢钱已经无所谓了。

part 3 最大的牌是多少（在不管是否有牛的情况下，在没有牛的情况下，在有牛的情况下）？

结果如下：

1. 不管有没有牛的情况下：

2. 在有牛的情况下：

3.在没有牛的情况下：

其实通过上面的结果可以看出，不管在什么情况下，最大的都是K。最小的都是大于等于2。

part 4 最常出现牛的类型是哪些呢？

上面可以看出2、4、8、6、3、1、7、9、5、牛b、没牛依次递增。而且可以看，基本上有牛的各种情况都是差不多的。但是没牛的概率基本上是各种牛的6倍。是不是感觉有点意思。

这次代码都在我的GitHub仓库里面，欢迎大家纠错！！

https://github.com/yuanzhoulvpi2017/use_r_play_niuniu

这次就介绍到这

下次将进行更加复杂的输赢计算

警告，这个只是我想从统计的角度仿真模拟一些**游戏的内在数学规律，主要也是想劝大家认清**本质，请不要有侥幸心理来通过这种方式获得利益。不要拿自己的幸福作为赌注。

这次真的感谢我的室友，提供游戏支持，帮我从菜鸟带上路（手动狗头）。我的电脑也累坏了