N个M面骰子，点数和的概率分布[待学习]

最新推荐文章于 2024-08-09 09:00:00 发布

poxiao8

最新推荐文章于 2024-08-09 09:00:00 发布

阅读量5.8k

点赞数

本文链接：https://blog.csdn.net/poxiao8/article/details/53907183

版权

这篇博客介绍了如何通过编程计算多个m面骰子的点数和的概率分布。作者提供了一段VBA代码，该代码从用户输入的骰子数量和面数开始，逐步迭代计算每个骰子加入后的总点数概率。最后，结果会输出到Excel表格中。

摘要由CSDN通过智能技术生成

索引目录：知乎:1次丢5个骰子的和分布

n个骰子的和概率分布

死办法，要计算n个6面骰的点数和的概率分布，步骤如下

当2个骰子时，制成1个6*6的二维表，表示2个骰子的点数和，并计算他们的概率
当3个骰子时，将上步得到的结果(骰子点数及其概率)与第3个骰子制成6*11的二维表，表示3个骰子的点数和，并计算他们的概率
重复第2步，直至计算完第n个骰子，将数组结果返回
此方法可拓展与n个m面骰情况

代码如下Option Explicit
Sub sumDice()
    Dim n As Integer, m As Integer, InRst(0 To 100) As Double, outRst(0 To 100) As Double
    Dim i As Integer, j As Integer, k As Integer
    n = InputBox("输入投骰子的个数", "骰子数", 3)
    m = InputBox("输入每个骰子的面数", "骰子面数", 6)
    For i = 1 To m 'm面骰中每点出现的概率
        outRst(i) = 1 /