srandom ( ) 和 random ( ) 【C語言庫函數原始碼】

來源:互聯網
上載者:User

【C語言庫函數原始碼】

【本程式在Dev C++ 4.9.9.2 下編譯通過】

/*

   這兩個函數也是C庫中產生隨機數的程式。你需要先

   使用srandom()函數賦隨機數種子值。然後再使用

   random()函數來產生隨機數。是對srand()和rand()

   這兩個函數的改良,用法也很類似。現在的這個代碼

   僅僅是實現了隨機數函數srand()和rand()的功能。

   在GCC庫函數中要比現在的代碼完全的多,另外可以

   指定其他的狀態值,使得隨機更完全。

*/

 

#define ULONG_MAX  ((unsigned long)(~0L)) /* 0xFFFFFFFF*/

#define LONG_MAX   ((long)(ULONG_MAX >> 1))/* 0x7FFFFFFF*/

 

#define NULL (void *) 0

 

static long int RandomTable[32] ={ 3,

      0x9a319039, 0x32d9c024, 0x9b663182, 0x5da1f342,

      0xde3b81e0, 0xdf0a6fb5, 0xf103bc02, 0x48f340fb,

      0x7449e56b, 0xbeb1dbb0, 0xab5c5918, 0x946554fd,

      0x8c2e680f, 0xeb3d799f, 0xb11ee0b7, 0x2d436b86,

      0xda672e2a, 0x1588ca88, 0xe369735d, 0x904f35f7,

      0xd7158fd6, 0x6fa6f051, 0x616e6b96, 0xac94efdc,

      0x36413f93, 0xc622c298, 0xf5a42ab8, 0x8a88d77b,

      0xf5ad9d0e, 0x8999220b, 0x27fb47b9

    };

 

static long int *fptr = &RandomTable[4];

static long int *rptr = &RandomTable[1];

static long int *state = &RandomTable[1];

static long int *end_ptr = &RandomTable[sizeof(RandomTable) / sizeof(RandomTable[0])];

 

long int my_random ()

{

   long int i;

   *fptr += *rptr;

 

   i = (*fptr >> 1) & LONG_MAX;

   fptr++;

   if (fptr >= end_ptr)

   {

      fptr = state;

      rptr++;

   }

   else

   {

      rptr++;

      if (rptr >= end_ptr)

        rptr = state;

   }

   return i;

}

void my_srandom (unsigned int seed)

{

   state[0] = seed;

   register long int i;

   for (i = 1; i < 31; ++i)

      state[i] = (1103515145 * state[i - 1]) + 12345;

   fptr = &state[3];

   rptr = &state[0];

   for (i = 0; i < 10 * 31; ++i)

      my_random();

}

 

#include <time.h>

int main()

{

   int i;

  

   my_srandom((unsigned)(time(NULL)));

   for(i=0;i<100;i++)

   {

      if(i % 10 == 0)

         printf("/n");

      printf("%d/t",my_random()%99+1);

   }

   system("pause");

   return 0;

}

 

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.