当前位置:编程学习 > Delphi >>

delphi 随机函数Random()的随机种子可否自己设置,除了Randomize()外,跪求!

当randomize放在循环中时,以当前机器时间作为随机种子,所得结果还是有规律,有人尝试用sleep延长每次循环时间,有一定效果,但是却严重影响算法速度!
答案:1.面域图指令 area 
clf;x=-2:2 % 注意:自变量要单调变化
Y=[3,5,2,4,1;3,4,5,2,1;5,4,3,2,5] % 各因素的相对贡献份额
Cum_Sum=cumsum(Y) % 各曲线在图上的绝对坐标
area(x',Y',0) %<4>
legend(' 因素 A',' 因素 B',' 因素 C'),grid on,colormap(spring)
。。。。。。。
各种直方图bar, barh, bar3, bar3hl
其他:你将Randomize放循环中干什么呢?
randomize;//在循环前先初始化随机种子;
while true do
begin
   //Doing
end; var 
      I:   Integer; 
begin 
    Randomize;   //!!! 
    for   I   :=   1   to   50   do 
    begin 
        {   Write   to   window   at   random   locations   } 
        Canvas.TextOut(Random(Width),   Random(Height),   'Boo! '); 
    end; 
end; 确实还有一定的规律的 

上一个:目前开发语言中,DELPHI 与C#那个好?
下一个:delphi如何打开源代码的窗体进行修改?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,