RanArray RanArrNext RanArrNext_sub RanfArray RanfArrNext RanfArrNext_sub RanfStart RanStart

RanArrNext() Function RanArrNext ( ) Unsigned 30 bit integer random number (Lagged Fibonacci method) Purpose Generates unsigned 30 bit integer random number by Lagged Fibonacci method. RanArrNext() generates 1009 random numbers using RanArray() and stores in the internal buffer, and returns only the first 100 of them in sequence. Returns Long Generated unsigned 30 bit integer random number. Reference D. E. Knuth, “The Art of Computer Programming Third Edition, Vol.2 / Seminumerical Algorithms”, Addison Wesley Longman (1998) Example Program Generates ten unsigned 30 bit integer random numbers. Sub Ex_RanArrNext() Const Seed = 314159 Dim I As Long Call RanStart(Seed) For I = 1 To 10 Debug.Print RanArrNext() Next End Sub Example Results 512263819 254049029 667424266 250983279 84386153 208871668 530886531 1064357929 698897936 498160000