■ 実習

• A2のセルに「=RAND()」
• 再計算F9により変化を観察
• A2をA3からA12までコピー
• B2に下記のうちどちらかを記入
  • (ギャンブル)=if(rand()<0.5,-1,1)
  • (サイコロ投げ)=INT(RAND()*6)+1
• B2をB3からB12までコピー
• B3からB12までの値を加工してグラフ表示せよ。
  • ギャンブラーの所持金
  • 双六の軌跡

● NORMINV(RAND(),平均値,標準偏差) 正規乱数を発生させる

• 関数を実行して、上記に該当するプログラムを作成せよ。
  1. VBの解説を 参考に以下のマクロを書く。

       Function Gambler(p)
        a = Rnd                '乱数発生 
        If a < p Then 
         Gambler = 1
        Else
         Gambler = -1
        End If 
       End Function
       

  2. A2 のセルに

       = Gambler(0.6)
      

     と書いて実行する。1, -1 のが現れる。
  3. それをコピーして、乱数のように働いているか目で確かめる。