Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var N = 100000; // シミュレーション回数
- var M = 355; // 対局数
- var L = 90; // 3連敗は理論上は0回から89回起こり得る
- var a = new Array(L); // 3連敗がn回起きたケースが何回あったかを数える配列
- for (var i = 0; i < L; ++i) a[i] = 0;
- var p = WScript.Arguments(0) - 0; // 1局の勝率
- for (var i = 0; i < N; ++i) {
- var n = 0; // 現時点の連敗数
- var m = 0; // 3連敗の起きた回数
- for (var j = 0; j < M; ++j) {
- if (Math.random() > p) { // 負けの場合
- ++n;
- } else { // 勝ちの場合
- if (n == 3) ++m; // 3連敗をカウント
- n = 0;
- }
- }
- if (n == 3) ++m; // 3連敗で終了のケース
- ++a[m];
- }
- for (var i = 0; i < L; ++i) { // 結果を表示
- WScript.StdOut.WriteLine(i + "\t" + a[i]);
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement