確率がおぼつかなくなってきた。 - ページ 7

新しいコメント
 
Mathemat:
いいえ、同等ではありません。6が何個あるかは、やはり4人組にしないとわからない。


百人隊や軍団ならわかるけど。なぜ4つずつなのか？
 

なるほど、私は不器用なんですね。寝る時間だ :)

 
なぜなら、素事象（テストの結果）は「4回の出目で6が1回以上」だからです。プログラムを投げかけるだけです。
 
Mathemat:
なぜなら、素事象（裁判の結果）は「4回の出目で1回以上6が落ちる」ことだからです。

サプライズそうではないんです。
削除済み  
tara:

スヴェトラーナさん、失礼します。名前の由来となる方と少しお話をしてきました。今朝は何してるんですか？

映画に連れて行ってくれるの？:)
 
Swetten:
映画に誘うか？:)

そう、お茶のお供に...。
削除済み  

ジャッカス:)

 

ありがとうございました :)

 
tara:

驚かせますよ。そうではないんです。
それがどうした？
 

ほら、名前ちゃん、これは数学のゲーム（サイコロ4個）、1億ゲームのシミュレーションなんだよ。

#property show_inputs

extern int MAX = 32768;
extern int SERIES = 100000000;

int start( )
{
   int st = GetTickCount( );
   MathSrand( GetTickCount( ) );   
   
   int success = 0;
   for( int i = 0; i < SERIES; i ++ )
   {
      /// В этом маленьком цикле моделируется одна игра (бросок 4 костей). Как только получаем шестерку, игру прекращаем и записываем ее результат как "успех".
      for( int j = 0 ; j < 4; j ++ )
         if( genUniform( ) == 6 )          { success ++ ;   break; }

      ///if( i % 1000000 == 0 )        Comment( i / 1000000 + " mln." );
   }
   
   Print( "success rate = " + ( success + 0.0 ) / SERIES );
   int gone = ( GetTickCount( ) - st ) / 1000.0 ;
   Print( "Total time = " + gone + " sec." );
   return( 0 );
}//+------------------------------------------------------------------+


      int genUniform( )
      {
         int rand = MathRand( );
         return( 1 + 6 * rand / MAX );
      }//+------------------------------------------------------------------+

結果


1から6までの一様分布のシミュレーションは、あまり正確ではありませんが、誤差は0.001以下と小さくなっています。

確率からの度数偏差のS.Q.はMathSqrt( npq ) / n ~ 1/20000 ですから、ここでもp=2/3に近づくチャンスはありません。

確率の正確な値（または...えーと...m.o.頻度）は、1 - (5/6)^4 ~0.517747 です。

1234567891011
新しいコメント