Question

delphi 随机函数Random()的随机种子可否自己设置，除了Randomize（）外，跪求！

当randomize放在循环中时，以当前机器时间作为随机种子，所得结果还是有规律，有人尝试用sleep延长每次循环时间，有一定效果，但是却严重影响算法速度！

Answer 1

randomize放在循环外，并且取不可逆数据的话，规律就小很多了。
循环内的话肯定有规律，因为你循环的时间有规律。

Answer 2

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

Answer 3

你将Randomize放循环中干什么呢？
randomize;//在循环前先初始化随机种子；
while true do
begin
//Doing
end;

Answer 4

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;

Answer 5

确实还有一定的规律的