Hi Folks,
the memory leak problem not seems to be linked to the call of the "random"
function. However, during the test I realized that the built-in "random"
is piss poor. The test source goes at the end. You supposed to see evenly
distributed numbers in the third column of the output. Try it for
yourself.
miklos
___________________________________________________
program cgr; { Chaos-game test of random number generator }
const
dim=100; { Change these if they are too large for you }
cyc=100000000;
var
c,i,j,r:integer;
s:array[-dim .. dim, -dim .. dim] of integer;
x,y:real;
begin
for i:= -dim to dim do for j:= -dim to dim do
s[i,j]:=0;
x:=0; y:=0;
for c:= 1 to cyc do begin
r:= random(3);
case r of
0:begin x:= (x+1)/2; y:= (y+1)/2; end;
1:begin x:= (x-1)/2; y:= (y+1)/2; end;
2:begin x:= (x-1)/2; y:= (y-1)/2; end;
3:begin x:= (x+1)/2; y:= (y-1)/2; end;
end;
i:= round( x*dim ); j:= round( y*dim );
inc(s[i,j]);
end;
for i:= -dim to dim do for j:= -dim to dim do
writeln(i:6,j:6,s[i,j]:12);
end.