test/randtest.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3
   4 int main(void)
   5 {
   6   int c = 0;
   7   int array[20];
   8   unsigned short param[7] = {4,5,0,1,2,1,0x2};
   9   unsigned short seed16v[3] = {1,2,3};
  10   unsigned short xsubi[3] = {1,2,3};
  11   unsigned short *sptr;
  12   srand48(0x1);
  13
  14   c = 0 ;
  15   while (c < 20)
  16   {
  17     array[c] = lrand48();
  18     c++;
  19   }
  20
  21   printf("---\n");
  22
  23   srand48(0x1);
  24   c = 0 ;
  25   while (c < 20)
  26   {
  27     union {
  28         double d;
  29         int i[2];
  30     } tmp;
  31     tmp.d = drand48();
  32     int a = tmp.i[0];
  33     int b = tmp.i[1];
  34
  35     printf("%d. %e  (%x %x) %x\n",c,tmp.d,a,b,array[c]);
  36     c++;
  37   }
  38
  39   lcong48(param);
  40   c = 0 ;
  41   while (c < 30)
  42   {
  43     printf("%d. %lx\n",c,lrand48());
  44
  45     c++;
  46   }
  47
  48   sptr = seed48(seed16v);
  49   printf("---\n %x,%x,%x\n",sptr[0],sptr[1],sptr[2]);
  50   c = 0 ;
  51   while (c < 30)
  52   {
  53     printf("%d. %lx\n",c,lrand48());
  54     c++;
  55   }
  56   printf("---\n");
  57
  58   c = 0 ;
  59   while (c < 10)
  60   {
  61     printf("%d. %e (%x,%x,%x)\n",c,erand48(xsubi),xsubi[0],xsubi[1],xsubi[2]);
  62     c++;
  63   }
  64   printf("---\n");
  65
  66   c = 0 ;
  67   xsubi[0] = 0;
  68   xsubi[1] = 1;
  69   xsubi[2] = 0;
  70   while (c < 10)
  71   {
  72     printf("%d. %lx (%x,%x,%x)\n",c,nrand48(xsubi),xsubi[0],xsubi[1],xsubi[2]);
  73     c++;
  74   }
  75   printf("---\n");
  76
  77   c = 0 ;
  78   while (c < 10)
  79   {
  80     printf("%d. %lx (%x,%x,%x)\n",c,jrand48(xsubi),xsubi[0],xsubi[1],xsubi[2]);
  81     c++;
  82   }
  83
  84
  85   return 0;
  86 }