この発言は
#01203　ひの            さんの高速で高品位な乱数生成ユニット(D3版)
に対するコメントです



#1203 ひの さん、こんにちは。

  Delphi 3 用の乱数に[0..1)の実数乱数で負の値が返る場合があるバグがありまし
た。function MTRandom の最後の行

｜  MTRandom := (y xor (y shr 18)) * 2.3283064365386962891e-10 + 0.500;
                                     ^^^^^^^^^^^^^^^^^^^^^^^^^
  この乗数を、2.328306436538696289e-10 に変更してください。

                              2000/12/03(Sun) 11:09am  GFD03044 ひの
 



Original document by ひの            氏 ID:(GFD03044)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。