モンテカルロシミュレーションのプログラム

締切済

質問者：konkons001
質問日時：2011/01/26 05:35
回答数：4件

ブラックジャックのプログラムについて困っています。プレイヤーは1対1とし2人とも戦略は16以下はもう1枚引き、１７以上になったら引くのをやめるものとし、何回も何回も試合を自動で繰り返すモンテカルロシミュレーションを作ることは出来ますか？3万回以上の試合を目標としています。
簡単なソースでもよろしいので教えてください。（勝率を表示することが可能ならお願いします。）
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： yama5140
回答日時：2011/01/26 13:11

（「ブラックジャック」をしたことないので、的はずれになるかも・・）

#1補＞乱数を発生させて
#2補＞プログラミングについて詳しくありませんのでrandで

rand で「どのように」４組のエースからキングまでを作ろうと考えていますか。
もし思いついていないとしたら、１例として

　　http://oshiete.goo.ne.jp/qa/6382508.html　の質問者のソースが参考になるかと。

ここでは、０－１９の数字を重複無く作成し、シャッフルしています。
今回も、エースは４枚、・・キングも４枚と過不足なく作成し、《並び》を「乱数で管理」する必要があることから、このアルゴリズムが参考になるかと・・。
そのプログラム例

　　　for( i = 0; i < ( 13 * 4 ); i++ ){　// ５２ケ整列
　　　　iVal = ( i % 13 ) + 1;　// 「エース」から「キング」まで（ 1 - 13 ）
　　　　if( iVal > 10 )　iVal = 10;　// 絵札は、10 点？
　　　　iCardVal[ i ] = iVal;
　　　}
　　　for( i = ( 13 * 4 - 1 ); i > 1; i-- ){　// シャッフル
　　　　iBasyo = rand() % ( i + 1 );
　　　　iVal = iCardVal[ i ];
　　　　iCardVal[ i ] = iCardVal[ iBasyo ];
　　　　iCardVal[ iBasyo ] = iVal;
　　　}
これで、１から９までの数字が各４ケ、１０が１６ケの計５２ケがランダムに入った配列ができます。

#2補＞自動でカードを１６以下はもう１枚引き、１７以上になったら引くのをやめるという条件文がわからず、

～まで繰り返す、というのは、while 文が適していると思います。

　　　　while( iA < 17 ){
　　　　　iA += iCardVal[ nn ];
　　　　　nn++;
　　　　}
　　　　while( iB < 17 ){
　　　　　iB += iCardVal[ nn ];
　　　　　nn++;
　　　　}

なお、１（エース）を、手持ち点に応じて 11 点にしたり、1 点のままにする必要がある？ならば、
その判断をする関数を用意し、

　　　　iA += AceCard( iA, iCardVal[ nn ] );　とすればいいと思います。

ちなみに、関数は、

　　　　int　AceCard( int iPoint, int iVal )
　　　　{
　　　　　if( 1 == iVal ){　// エースカード
　　　　　　　if( iPoint < 11 )　return( 11 );
　　　　　}
　　　　　return( iVal );
　　　　}
になろうかと。

＞簡単なソースでもよろしいので教えてください。

　あとは、超簡単な部分を組み合わせるだけ・・。

　（・シャッフル）
　　・はじめの２枚の配布
　（・１６点以下はもう１枚引き、１７点以上になったら引くのをやめる）
　　・２２点以上になった場合の処理
　　・勝ち負け判定
　　・勝ち負けカウント
　　・３万回ループ
　　・結果出力

★なお、１ゲームあたり配られた枚数頻度（母数３万）を求めるのも、いいかも。

　１１枚が最大かなぁ？