function [b,c]=testa(m,n,a);
// tests two estimates for the range of a random number generator

for i=1:m 
  xx=a*rand(1,n);
  b(i)=(n+1)/n*max(xx);
  c(i)=2*mean(xx);
end;

endfunction;

