Chinaunix

标题: 请教一个生成随机数的函数 [打印本页]
作者: czw1413_cn    时间: 2007-07-18 09:09
提示: 作者被禁止或删除 内容自动屏蔽
作者: ivhb    时间: 2007-07-18 09:27
如果不保存中间结果，基本很难实现随机数。
你可以参考

  2.    unsigned long int next = 1;

  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.    }

  11.    /* srand:  set seed for rand() */
  12.    void srand(unsigned int seed)
  13.    {
  14.        next = seed;
  15.    }


复制代码

这个算法改成SP版本的还是很容易的。只要你每次保存next
作者: wenlq    时间: 2007-07-18 12:14
http://www.iiug.org/resources/faq/ifaq04c.htm.1#4.8.8
作者: ivhb    时间: 2007-07-18 13:55
wenlq ：
那个faq我很有兴趣，但是我没有办法完整的下载，你能告诉我一个可以下载的地方么？
你给的URL上，有个ftp下载该faq的地址，但是那个地址好像不可用。
作者: wenlq    时间: 2007-07-18 15:03
以前下的一个

ifaq20051116.zip

377.46 KB, 下载次数: 294
作者: ivhb    时间: 2007-07-18 15:34
thx a lot
作者: czw1413_cn    时间: 2007-07-22 11:15
提示: 作者被禁止或删除 内容自动屏蔽
作者: ivhb    时间: 2007-07-24 12:29

  2. CREATE PROCEDURE sp_setseed(n INTEGER)
  3.         DEFINE GLOBAL seed DECIMAL(10) DEFAULT 1;
  4.         LET seed = n;
  5. END PROCEDURE;

  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);


  15. ---     is this ok ???
  16.         RETURN MOD(TRUNC(seed / 65536), n);  

  18. END PROCEDURE;


  21. dbaccess dbname <<EOF
  22. select sp_random(9) from systables
  23. ;
  24. EOF

复制代码

[ 本帖最后由 ivhb 于 2007-7-24 14:56 编辑 ]
作者: czw1413_cn    时间: 2007-07-24 18:39
提示: 作者被禁止或删除 内容自动屏蔽



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2