Dim mu As Integer 2 15 Dim x

  • Slides: 16
Download presentation

擬似乱数列の発生：プログラム例 Dim mu As Integer = 2 ^ 15 Dim x, lambda, c As

擬似乱数列の発生：プログラム例 Dim mu As Integer = 2 ^ 15 Dim x, lambda, c As Integer Console. Write. Line("xの初期値(0 -32768)を入力して下さい") Console. Write("x 0=") x = Console. Read. Line() lambda = 12869 c = 6925 For i As Integer = 1 To 20 x = (lambda * x + c) Mod mu Console. Write. Line("{0, 8}", x) Next

サイコロの出目の発生：プログラム例 Dim mu As Integer = 2 ^ 15 Sub Main() Console. Title =

サイコロの出目の発生：プログラム例 Dim mu As Integer = 2 ^ 15 Sub Main() Console. Title = "乱数の発生" Dim x, x_dice As Integer, n As Integer = 100 Console. Write. Line("xの初期値(0 -32768)を入力して下さい") Console. Write("x 0=") 一様乱数を生成する関数 x = Console. Read. Line() For i As Integer = 1 To n x_dice = Fix(6 * uni_rnd(x) / mu + 1) If i Mod 10 <> 0 Then 1≦x＜ 7の Console. Write("{0, 5}", x_dice) Else 実数列を生 Console. Write. Line("{0, 5}", x_dice) 成 End If x = uni_rnd(x) Next xを次の値に置き直す End Sub

サイコロの出目の発生：プログラム例（つづき） Function uni_rnd(x) Dim lambda, c As Integer lambda = 12869 c = 6925

サイコロの出目の発生：プログラム例（つづき） Function uni_rnd(x) Dim lambda, c As Integer lambda = 12869 c = 6925 x = (lambda * x + c) Mod mu Return x End Function 一様乱数を計算する 関数副プログラム

サイコロの出目の頻度：プログラム例 Dim mu As Integer = 2 ^ 15 各目の Sub Main() カウンター Console.

サイコロの出目の頻度：プログラム例 Dim mu As Integer = 2 ^ 15 各目の Sub Main() カウンター Console. Title = "乱数の発生" Dim x, x_dice, n, c 1, c 2, c 3, c 4, c 5, c 6 As Integer 各目の Dim p 1, p 2, p 3, p 4, p 5, p 6 As Single 頻度 c 1 = 0 : c 2 = 0 : c 3 = 0 : c 4 = 0 : c 5 = 0 : c 6 = 0 Console. Write. Line("xの初期値(0 -32768)を入力して下さい") Console. Write("x 0=") x = Console. Read. Line() n = 1000000 試行回数

サイコロの出目の頻度：プログラム例（つづき） For i As Integer = 1 To n x_dice = Fix(6 * uni_rnd(x)

サイコロの出目の頻度：プログラム例（つづき） For i As Integer = 1 To n x_dice = Fix(6 * uni_rnd(x) / mu + 1) Select Case x_dice Case 1 c 1 = c 1 + 1 出目の判定 Case 2 とカウント c 2 = c 2 + 1 Case 3 c 3 = c 3 + 1 Case 4 c 4 = c 4 + 1 Case 5 c 5 = c 5 + 1 Case 6 c 6 = c 6 + 1 End Select x = uni_rnd(x) Next

サイコロの出目の頻度：プログラム例（つづき） p 1 = c 1 / n Console. Write. Line("1の確率は{0}", p 2 =

サイコロの出目の頻度：プログラム例（つづき） p 1 = c 1 / n Console. Write. Line("1の確率は{0}", p 2 = c 2 / n Console. Write. Line("2の確率は{0}", p 3 = c 3 / n Console. Write. Line("3の確率は{0}", p 4 = c 4 / n Console. Write. Line("4の確率は{0}", p 5 = c 5 / n Console. Write. Line("5の確率は{0}", p 6 = c 6 / n Console. Write. Line("6の確率は{0}", End Sub p 1) p 2) p 3) p 4) p 5) p 6) 出目の頻度 と表示

サイコロの出目の頻度：プログラム例（つづき） Function uni_rnd(x) Dim lambda, c As Integer lambda = 12869 c = 6925

サイコロの出目の頻度：プログラム例（つづき） Function uni_rnd(x) Dim lambda, c As Integer lambda = 12869 c = 6925 x = (lambda * x + c) Mod mu Return x End Function 一様乱数を計算する 関数副プログラム

Dim chicken As Integer Dim foot As IntegerDim chicken As Integer Dim foot As Integer
Dim sum As Integer id As Integer DimDim sum As Integer id As Integer Dim
SOLAR SYSTEM DIM dim dim adjective Having orSOLAR SYSTEM DIM dim dim adjective Having or
Sub Main Dim x9 As Integer Dim iSub Main Dim x9 As Integer Dim i
Arrays Dim One Dim 9 As Integer 10Arrays Dim One Dim 9 As Integer 10
Dim i as integer Dim x as floatDim i as integer Dim x as float
2 7 Dim As Dim Dimension Integer String2 7 Dim As Dim Dimension Integer String
3 Dim i as integer s as integer3 Dim i as integer s as integer
type sharrecord x integer y integer R integertype sharrecord x integer y integer R integer
Chapter 15 Integer Optimization Integer Optimization An integerChapter 15 Integer Optimization Integer Optimization An integer
Chapter 15 Integer Optimization Integer Optimization An integerChapter 15 Integer Optimization Integer Optimization An integer
Dim Conn As New Sql Connection Dim daDim Conn As New Sql Connection Dim da
POAR DIM POAR DIM IZRAUN NAPOLNITVE PROSTORA ZPOAR DIM POAR DIM IZRAUN NAPOLNITVE PROSTORA Z
if if Dim x as single Dim yif if Dim x as single Dim y
POAR DIM POAR DIM STATISTINA VERJETNOST NASTANKA POARAPOAR DIM POAR DIM STATISTINA VERJETNOST NASTANKA POARA