WOLFRAM

Wolfram 语言与系统参考资料中心

硬币投掷序列

当投掷公平硬币时，即使序列概率相同，平均而言，相比正反反（HTT）得到正正反（HHT）需要更长时间.

    
Wolfram Language code: proc = DiscreteMarkovProcess[1, {{1 / 2, 1 / 2, 0, 0, 0, 0}, {0, 0, 1 / 2, 1 / 2, 0, 0}, {0, 0, 1 / 2, 0, 1 / 2, 0}, {0, 1 / 2, 0, 0, 0, 1 / 2}, {0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1}}];
Wolfram Language code: Graph[{"Start", "H", "HH", "HT", "HHT", "HTT"}, proc, ImageSize -> Medium]
求得到正正反（HHT）的平均投掷次数：
Wolfram Language code: Mean[FirstPassageTimeDistribution[proc, 5]]//N
求得到正反反（HTT） 的平均投掷次数：
Wolfram Language code: Mean[FirstPassageTimeDistribution[proc, 6]]//N