OpenEuphoria

Re: Pseudo random binary number gen

• Posted by Grape_ Vine_ <g__vine at HOTMAIL.COM> Dec 23, 1999
• 526 views

Yes this is what i am after...1000 Thanx

>From: stab master <stabmaster_ at HOTMAIL.COM>
>Reply-To: Euphoria Programming for MS-DOS <EUPHORIA at LISTSERV.MUOHIO.EDU>
>To: EUPHORIA at LISTSERV.MUOHIO.EDU
>Subject: Re: Pseudo random binary number gen
>Date: Thu, 23 Dec 1999 14:22:52 PST
>
>I've got a pseudo rnd number generator wich I wrote a while back for some
>assembly projects I was doing. I don't know if this is what you're looking
>for, but here it is anyway..
>
>
>--<CODE>
>sequence random64
>integer seed1,seed2
>
>
>--64 32-bit random numbers for use with the rnd number generator.
>--I don't remember where I got these numbers from, probably from
>--some old demo.. oh well.
>random64={
>342098742,397843269,234983498,986538974
>}
>
>seed1=29
>seed2=63
>
>
>function Rand(integer range)
>atom crap
>crap=random64[seed1+1]
>crap+=random64[seed2+1]
>random64[seed2+1]=crap
>seed1+=1
>seed1=and_bits(seed1,63)
>seed2+=1
>seed2=and_bits(seed2,63)
>return remainder(crap,range)
>end function
>
>
>
>--test function
>for i=1 to 20 do
>printf(1,"Rand(300) = %d\n",Rand(300))
>end for
>
>--</CODE>
>
>______________________________________________________
>Get Your Private, Free Email at http://www.hotmail.com

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com