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.
participants (2)
-
Frank Heckenbach -
Miklos Cserzo