WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

一連のコイントス

偏りのないコインを投げたとき，シーケンスの確率が同じでも，表裏裏が出るよりも表表裏が出るまでの方が通常長い時間かかる．

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]
表表裏が出るまでのコイントスの平均回数を求める：
Wolfram Language code: Mean[FirstPassageTimeDistribution[proc, 5]]//N
表裏裏が出るまでのコイントスの平均回数を求める：
Wolfram Language code: Mean[FirstPassageTimeDistribution[proc, 6]]//N