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如何打开源代码的窗体进行修改?