本に掲載されたC言語の乱数発生方法をVBAでかく方法が知りたいです．

質問

本に掲載されたC言語の乱数発生方法をVBAでかく方法が知りたいです．

0.0から1.0までの一様乱数を発生させる方法です．
C言語のコードは以下に載せます．

#define IA 16807
#define IM 2147483647
#define AM (1.0/IM)
#define IQ 127773
#define IR 2836
#define MASK 123459876

float ran0(long *idum)
{
long k;
　　float ans;

*idum ^= MASK;
k=(*idum)/IQ;
*idum=IA*(*idum-k*IQ)-IR*k;
if (*idum < 0) *idum += IM;
ans=AM*(*idum);
*idum ^= MASK;
return ans;
}

　以下に自分でVBAでかいてみたコードを載せます．

Sub 乱数発生()

Const IA As Integer = 16807
Const IM As Long = 2147483647
Const AM = (1# / IM)
Const IQ As Long = 127773
Const IR As Integer = 2836
Const MASK As Long = 123459876

Dim k As Long
Dim ans As Single
Dim idum

idum = idum Xor MASK
k = (idum) / IQ
idum = IA * (idum - k * IQ) - IR * k
If idum < 0 Then idum = idum + IM
ans = AM * (idum)
idum = idum Xor MASK

End Sub

　最初と最後のidum =　の式の説明に排他的論理和をとるという説明が書いてあったので，^ではなくXorと書きました．これで一応ansは1より小さい数値がでましたが，C言語の数値と合いませんでした．

プログラムのことはほとんどわからないので，教えて下さい．
よろしくお願いします．

回答No.1

OXY23 · ベストアンサー

こんばんは。

スレちがいな気がしますが、とりあえずコメントします。

質問者さんは、生成した乱数は、どんな環境でも同じ結果になると考えていませんか？

ソースのほうはしっかり見ていませんが、乱数の出力値は、CとVBで異なるので、発生させた乱数の結果が異なるのは適切なのではないでしょうか？

お礼

回答ありがとうございます．

MASKに入れる数値を変えると乱数が初期化されると本に書いてあったので，その数値を変えない限りは生成される乱数の値は常に同じになると思いこんでいました．

教えて頂きありがとうございました．