在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;
/
分享到:
相关推荐
C/C++生成随机数,保存到.in文件,以便后续测试使用
主要为大家详细介绍了C/C++产生随机数函数的实现方法,如何使用C/C++产生随机数函数,感兴趣的小伙伴们可以参考一下
//随机数最小值 $mi = $_POST["min"];//随机数最大值 $y = array(); $d=array(); for ($x=$min; $x$ma; $x++) { $y[$x]=$x; } //获取随机数最大最小值之间的所有数值 for($x=$mi;$x$ma;$x++){ $d[$x] = ...
产生随机数并运算产生随机数并运算产生随机数并运算产生随机数并运算产生随机数并运算产生随机数并运算
用单片机产生随机数的两种方法。
Keil C51 中产生随机数的方法和样例
c#产生随机数有问题到467449165@qq.com咨询
使用tcl脚本产生随机数
汇编语言 产生随机数并运算 汇编语言 产生随机数并运算
混合同余法产生随机数和M序列产生方法(算例及matlab程序),参考文献《过程辨识》,方崇智,肖德云,清华大学出版社
国密标准 《GM/T 0105-2021 软件随机数发生器设计指南》 正式版
产生随机数的摇奖机产生随机数的摇奖机产生随机数的摇奖机
C/C++生成随机数的实现,有c的实现也有c++的实现,新手可以看一下。
本文实例讲述了C#实现随机数产生类。分享给大家供大家参考。具体分析如下: 这个类主要扩展的random的使用,对一个经常需要使用的随机数生成进行了封装,可以产生指定范围内的随机数,可以随机生成字符串等 using ...
用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用c语言产生随机数.doc 用...
系统辨识中利用乘同余法产生服从0,1分布的随机数
自定义Oracle函数,向Oracle数据库中插入随机数。
//产生随机数的类 final SuiJiShuClass sjs=new SuiJiShuClass(); final JPanel panel=new JPanel(); //初始化一个JPanel panel.setBorder(BorderFactory.createTitledBorder("QQ:330936274")); //设置边界 ...
利用移位寄存器产生均匀随机数,再利用Box-Muller产生高斯随机数。