******************************************************************** * Description.......: TestRandom * Calling Samples...: TestRandom (100) * Parameter List....: pNumber * Created by........: Nadya Nosonovsky 03/13/2000 01:38:52 PM * Modified by.......: ******************************************************************** lparameters pNumber if type('pNumber')<>'N' or pNumber<0 pNumber=100 endif CLOSE DATABASES CREATE TABLE Random (Rand1 N(3), Rand2 N(3)) gnLower = 1 gnUpper = 50 FOR nItem = 1 TO int(pNumber) APPEND BLANK lnRand1=INT((gnUpper - gnLower + 1) * RAND( ) + gnLower) lnRand2=INT((gnUpper - gnLower + 1) * RAND( ) + gnLower) REPLACE Rand1 with lnRand1, rand2 with lnRand2 && Insert random values ENDFOR select rand1, count(*) as cntt from Random; group by rand1 ; order by 1 select rand2, count(*) as cntt from Random ; group by rand2; order by 1>