Difference between revisions of "Pseudo-random Number Generator"

From Second Life Wiki
Jump to navigation Jump to search
Line 139: Line 139:


</lsl>
</lsl>
I think MD5 random is just fine. I did some testing with ent and dieharder (random number test suites) based on recursed md5 'random' and it seems to have superior pseudo-random-number charactaristics. The only drawback is the decreased performance, which is usually (for games etc) not an issue at all.
My version (below) added a little extra entropy using timestamps. You could inject other sources of entropy as well. [[User:Tano Toll|Tano Toll]] Tano Toll
<lsl>
string md5="seed";
integer rnd() {
    //add in more entropy if you like, like touch position (detectedtouchST etc).
    //however, seeding the md5 with itself is already quite sufficient
    string md5=llMD5String(md5+(string)llGetUnixTime()+(string)llGetTime(), 0x5EED);       
    return (integer)("0x"+llGetSubString(md5,0,7));   
}
float frnd (float max) {
    //this suffers a few bit rounding errors
    return llFabs(max * rnd()/0x80000000);
}
</lsl>
{{LSLC|Library}}
{{LSLC|Library}}

Revision as of 15:39, 19 February 2013

See also: llFrand, llListRandomize, Seedable_PRNG

Seedable PRNG Based On Multiply/ Add/ Overflow

Here's a Pseudo-random Number Generator - I (Xaviar Czervik) just made it up off the top of my head - so it has no mathematical research behind it to prove it's random... I've tested it for a while and it looks random to me, about the same as llFrand(). But what ever. Sue me. The main reason that I use it so that I can test scripts, and then when it blows up because of a math error, I can just run the script again an it will use the same numbers, in the same order.

I use this for determining a random channel for two (or more) objects to talk on. This allows the scripts to talk without users being able to intercept the messages - and even if they do - then the channel will change in a minute or two - so no harm done.


<lsl> // IMPORTANT: Change the following numbers before using! integer seed1 = 0x053FA20C; integer seed2 = 0x3B1264D5; integer seed1Mod = 0x71B5F252; integer seed2Mod = 0x56A0E61D;

integer rand(integer spread) {

   	seed1 = (seed1 * seed1Mod + 0xB);
   	seed2 = (seed2 * seed2Mod + 0xB);
       seed2Mod = seed1Mod;
       seed1Mod = seed1 * seed2;

return seed1Mod % spread; }

</lsl> The below code is exactly the same as the above, only it is much faster. Thanks to Strife Onizuka. <lsl> integer rand(integer spread) {

   	seed2 = (seed2 * seed2Mod + 0xB);

return (seed1Mod = ((seed1 = (seed1 * (seed2Mod = seed1Mod) + 0xB)) * seed2)) % spread; } </lsl> Example code to test the randomness (Is that a word?) of the generator. <lsl> default { state_entry() { integer i = 0; integer min = 0x7FFFFFFF; integer max = -0x7FFFFFFF; integer total = 0; while (i < 100000000) { integer r = rand(0x7FFFFFFF); if (r < min) { min = r; } if (r > max) { max = r; } total += r; i++; } llOwnerSay("Min: " + (string)min); llOwnerSay("Max: " + (string)max); llOwnerSay("Average: " + (string)(total/100000000));

} } </lsl>

Note: A pattern of digits like yyyymmddnn often works as a seed that changes often enough, e.g., test with 2007090103 == 2,007,090,103 as the 3rd try of the 1st day of the 9th month of the 2007th year, except you must take care to avoid confusing yourself with integers larger than the 2,147,483,647 limit of 32-bit signed arithmetic.

Conventional Linear Congruential Seedable PRNG Based On Multiply/ Add/ Overflow

Note: Google Groups sci.math cites Knuth & Lewis suggesting the following linear congruential generator for 32-bit arithmetic processors. Someone skilled in the relevant mathematics should be able to prove that these choices of multiplier and addend provides results that feel more random. Someone skilled in Google might find yet more popular choices than these. People say the choose function returning the quotient rather than the remainder matters: try counting odd results and even results from the pseudorandom() routine to see why.

<lsl> integer seed = 2007090103;

integer pseudorandom() {

   seed = 1664525 * seed + 1013904223;
   return seed;

}

integer choose(integer count) {

   integer nonnegative = 0x7fffFFFF;
   integer choice = pseudorandom() & nonnegative;
   return ((choice / (nonnegative / count)) % count);

}

default {

   state_entry()
   {
       string line;
       integer index;
       line = "";
       for (index = 0; index < 9; ++index)
       {
          line += " " + (string) pseudorandom();
       }
       llOwnerSay(line);
       line = "";
       for (index = 0; index < 30; ++index)
       {
          line += " " + (string) (1 + choose(6));
       }
       llOwnerSay(line);
       llOwnerSay("OK");
   }

} </lsl>

Seedable PRNG Based On MD5 Hashing

I haven't noticed any irregular behavior in this one, i would love to know what you guys think - Kyrah Abattoir

<lsl>

string seed = "";//Any String you want as your initial seed.

//this version will pull a random int from 0 to max int integer NextInt() { seed = llMD5String(seed,0); integer value = (integer)("0x"+llGetSubString(seed,0,6)); return value; }

//This one will limit the result from 0 to the range indicated integer NextIntClamped(integer max) { max++; seed = llMD5String(seed,0); integer value = (integer)("0x"+llGetSubString(seed,0,6))%max; return value; }

//0 to 1 duh. integer NextBool() { return NextIntClamped(1); }

</lsl>

I think MD5 random is just fine. I did some testing with ent and dieharder (random number test suites) based on recursed md5 'random' and it seems to have superior pseudo-random-number charactaristics. The only drawback is the decreased performance, which is usually (for games etc) not an issue at all. My version (below) added a little extra entropy using timestamps. You could inject other sources of entropy as well. Tano Toll Tano Toll <lsl> string md5="seed"; integer rnd() {

   //add in more entropy if you like, like touch position (detectedtouchST etc).
   //however, seeding the md5 with itself is already quite sufficient
   string md5=llMD5String(md5+(string)llGetUnixTime()+(string)llGetTime(), 0x5EED);        
   return (integer)("0x"+llGetSubString(md5,0,7));    

}

float frnd (float max) {

   //this suffers a few bit rounding errors
   return llFabs(max * rnd()/0x80000000);

}

</lsl>