RanArray RanArrNext RanArrNext_sub RanfArray RanfArrNext RanfArrNext_sub RanfStart RanStart

RanfArrNext() Function RanfArrNext ( ) 53 bit real random number in [0,1) (Lagged Fibonacci method) Purpose Generates 53 bit real random number in [0,1) by Lagged Fibonacci method. RanfArrNext() generates 1009 random numbers using RanfArray() and stores in the internal buffer, and returns only the first 100 of them in sequence. Returns Double Generated 53 bit real random number in [0,1). Reference D. E. Knuth, “The Art of Computer Programming Third Edition, Vol.2 / Seminumerical Algorithms”, Addison Wesley Longman (1998) Example Program Generates ten 53 bit real random numbers. Sub Ex_RanfArrNext() Const Seed = 314159 Dim I As Long Call RanfStart(Seed) For I = 1 To 10 Debug.Print RanfArrNext() Next End Sub Example Results 0.524684800201494 0.726548552471813 0.9609049752137 0.889272805173326 0.227826029210785 0.174781467409852 0.721634836341662 0.305582896514576 0.23246372865035 0.265391103319004