WOLFRAM

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

テニスの試合を分析する

2人の選手間のテニスの試合において，サーバーが点を取る確率が であるとする．17の状態における のランダムウォークグラフを可視化する．

Wolfram Language code: proc = With[{p = 3 / 5, q = 2 / 5}, DiscreteMarkovProcess[17, (⁠| | | | | | | | | | | | | | | | | | | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | - | | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | 0 | p | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | p | 0 | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | q | p | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | p | 0 | 0 | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | q | 0 | 0 | p | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | p | 0 | 0 | 0 | 0 | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | q | 0 | 0 | p | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | p | 0 | 0 | 0 | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | q | 0 | 0 | 0 | 0 | p | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | 0 | 0 | 0 | 0 | 0 | p | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | p | q | 0 | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | p | q | 0 | 0 | 0 | 0 | 0 | 0 | | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | p | q | 0 | 0 | 0 | 0 | | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | p | q | 0 | 0 | 0 | | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | p | q | 0 |⁠)]];
Wolfram Language code: Graph[proc, VertexSize -> {"Scaled", 0.07}, VertexLabels -> Thread[Range[17] -> Map[Placed[Style[#, {Bold}], Center]&, states = {"GameA", "GameB", "Deuce", "AdvA", "AdvB", "40-15", "15-40", "40-0", "30-15", "15-30", "0-40", "30-0", "15-15", "0-30", "15-0", "0-15", "0-0"}]], ImageSize -> Large, ImagePadding -> 25]
でサーバーが試合に勝つ確率を求める：
Wolfram Language code: PDF[proc[∞], 1]//N
平均吸収時間，つまり獲得する点の数を求める：
Wolfram Language code: N[Mean[FirstPassageTimeDistribution[proc, {1, 2}]]]
訪れる状態の平均数を求める：
Wolfram Language code: MarkovProcessProperties[proc, "TransientTotalVisitMean"]//N
スコアがジュースで同点になる平均回数を求める：
Wolfram Language code: MarkovProcessProperties[proc, "TransientVisitMean"][[1]]//N