create or replace package pk_rand

is

/*****************************************************************

* 这个package返回一个0-1之间的随机数，可以通过设置set_rang(low,upper)

*来重新指定返回那个范围的随机数。

*大家都知道，产生随机数需要‘种子’，可以通过set_seed这个procedure来设*置初始值******************************************************************/

procedure set_range(p_lower in number

,p_upper in number

,p_integer in varchar2 := ’y’);

procedure set_seed(p_seed in number);

procedure rand(p_result out number) ;

function f_rand

return number;

pragma restrict_references(f_rand,wnds);

end;

/

create or replace package body pk_rand

is

v_range_lower number := 0;

v_range_upper number := 1;

v_lastval number;

v_rand number;

v_result number;

v_integer boolean := false;

cursor c_seed is

select to_char(sysdate,’sssssdddhhsssss’)

from dual;

procedure set_seed(p_seed in number)

is

begin

v_lastval := p_seed;

end;

procedure set_range(p_lower in number,p_upper in number

,p_integer in varchar2 := ’y’)

is

begin

v_range_lower := p_lower;

v_range_upper := p_upper;

if p_integer = ’y’ then

v_integer := true;

else

v_integer := false;

end if;

end;

procedure rand(p_result out number)

is

begin

p_result := f_rand;

end;

function f_rand

return number is

/* fixed values used in generation */

a number := 25214903917;

c number := 11;

m number := power(2,48);

begin

/* compute next random number */

v_rand := ((a * v_lastval + c ) mod m );

/* store it as seed value in next calculation */

v_lastval := v_rand;

/* get output between 0 and 1 */

v_rand := v_rand / m;

/* multiply up to required range */

if v_integer then

/* increment the range by 1 to allow for truncation */

v_result := v_rand * ((v_range_upper +1) - v_range_lower ) +

v_range_lower;

v_result := trunc(v_result);

else

/* just multiply to expand the answer */

v_result := v_rand * (v_range_upper - v_range_lower ) + v_range_lower;

end if;

return v_result;

end;

/* and now the initialisation code */

begin

open c_seed;

fetch c_seed

into v_lastval;

close c_seed;

end;

/

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：oracle数据库系统使用经验六则
下一篇：优化－数据库
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。