请教一个生成随机数的函数

ivhb

如果不保存中间结果，基本很难实现随机数。
你可以参考

1. 
   
2.    unsigned long int next = 1;
   
3. 
   
4.    /* rand:  return pseudo-random integer on 0..32767 */
   
5.    int rand(void)
   
6.    {
   
7.        next = next * 1103515245 + 12345;
   
8.        return (unsigned int)(next/65536) % 32768;
   
9.    }
   
10. 
    
11.    /* srand:  set seed for rand() */
    
12.    void srand(unsigned int seed)
    
13.    {
    
14.        next = seed;
    
15.    }
    
16. 
    
17. 
    

复制代码

这个算法改成SP版本的还是很容易的。只要你每次保存next

wenlq

http://www.iiug.org/resources/faq/ifaq04c.htm.1#4.8.8

ivhb

wenlq ：
那个faq我很有兴趣，但是我没有办法完整的下载，你能告诉我一个可以下载的地方么？
你给的URL上，有个ftp下载该faq的地址，但是那个地址好像不可用。

wenlq

以前下的一个

ivhb

thx a lot

ivhb

1. 
   
2. CREATE PROCEDURE sp_setseed(n INTEGER)
   
3.         DEFINE GLOBAL seed DECIMAL(10) DEFAULT 1;
   
4.         LET seed = n;
   
5. END PROCEDURE;
   
6. 
   
7. CREATE PROCEDURE sp_random(n integer) RETURNING INTEGER;
   
8.         DEFINE GLOBAL seed DECIMAL(10) DEFAULT 1;
   
9.         DEFINE d DECIMAL(20,0);
   
10.         LET d = (seed * 1103515245) + 12345;
    
11.         -- MOD function does not handle 20-digit values...  Dammit!!
    
12.         LET seed = d - 4294967296 * TRUNC(d / 4294967296);
    
13. 
    
14. 
    
15. ---     is this ok ???
    
16.         RETURN MOD(TRUNC(seed / 65536), n);  
    
17. 
    
18. END PROCEDURE;
    
19. 
    
20. 
    
21. dbaccess dbname <<EOF
    
22. select sp_random(9) from systables
    
23. ;
    
24. EOF
    
25. 
    

复制代码

[ 本帖最后由 ivhb 于 2007-7-24 14:56 编辑 ]