程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle數據庫基礎 >> 如何在Oracle中用PL/SQL產生隨即數

如何在Oracle中用PL/SQL產生隨即數

編輯：Oracle數據庫基礎

在Oracle提供的standard Package中，並沒有產生隨機數的function或procedure.下面的例子是使用PL/SQL些的一個隨機數產生器。

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;

/