Subversion Repositories Kolibri OS

Rev

Rev 5598 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. #ifndef INCLUDE_RANDOM_H
  2. #define INCLUDE_RANDOM_H
  3. #print "[include <random.h>]\n"
  4.  
  5. #ifndef INCLUDE_KOLIBRI_H
  6. #include "../lib/kolibri.h"
  7. #endif
  8.  
  9. #define MASK_RAND 123456789
  10. #define IQ_RAND 12773
  11. #define IA_RAND 16807
  12. #define IR_RAND 2836
  13. #define IM_RAND 2147483647
  14. #define AM_RAND (1./2147483647)
  15.  
  16. inline fastcall int random( ECX)
  17. // get pseudo-random number - ïîëó÷èòü ïñåâäîñëó÷àéíîå ÷èñëî
  18. {
  19.   $push ebx
  20.  
  21.   $rdtsc        // eax & edx
  22.   $xor eax,edx
  23.   $not eax
  24.  
  25.   EBX = __generator;
  26.   $ror ebx,3
  27.   $xor ebx,0xdeadbeef
  28.   EBX += EAX;
  29.   __generator = EBX;
  30.  
  31.   EAX += EBX;
  32.   EAX = EAX % ECX;
  33.  
  34.   $pop ebx  
  35. }
  36.  
  37. inline long unirand0(void)
  38. {
  39.          long k,ans,tmp,save;
  40.          save = __generator;
  41.          __generator^=MASK_RAND;   /* avoid __generator==0 */
  42.          k=__generator/IQ_RAND;
  43.          tmp=__generator-k*IQ_RAND;
  44.          __generator*=IA_RAND*tmp;
  45.          __generator-=IR_RAND*k;
  46.          if(__generator<0) __generator+=IM_RAND;
  47.          if(save == __generator) return unirand0();
  48.          ans=__generator;
  49.          __generator^=MASK_RAND;   /* restore unmasked dummy */
  50.          return ans;
  51. }
  52.  
  53. :long RAND_A,RAND_C,RAND_TMP;
  54. inline long rand(signed long x1,x2)
  55. {
  56.         long tmp,xx;
  57.         RAND_A = __generator;
  58.         __generator = RAND_A*__generator+RAND_C;
  59.         RAND_C = __generator^RAND_A;
  60.         RAND_C>>=1;
  61.         RAND_A<<=1;
  62.         __generator^=RAND_A;
  63.         xx=x2;
  64.         if(x1<0)xx+=-x1;
  65.         tmp = __generator%xx;
  66.         if(tmp<0)tmp=-tmp;
  67.         tmp+=x1;
  68.         return tmp;
  69. }
  70.  
  71. inline fastcall randomize()
  72. // initialize random number __generator - èíèöèàëèçèðîâàòü ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
  73. {
  74.   asm
  75.   {
  76.     mov eax,3
  77.     int 0x40
  78.     ror eax,16
  79.   }
  80.   //if(EAX == __generator)return randomize();
  81.   __generator = EAX;
  82. }
  83.  
  84. #endif