home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2000 August / augusty_2000.iso / Windows-CE / Applications / basice / randtest.bas < prev    next >
Encoding:
BASIC Source File  |  1997-12-26  |  751 b   |  40 lines
  1.  dim uu%[100]
  2.  
  3. call randomize
  4.  
  5. loop for i%=1 to 25
  6.    print i%,dtime$(0)
  7.    loop for j%=1 to 1000
  8.       u#=rand
  9.       u%=1+100*u#
  10.       uu%[u%] = uu%[u%]+1
  11.       endloop
  12.    endloop
  13.  
  14.    min%=uu%[1]
  15.    max%=min%
  16.  
  17.    loop for i%=1 to 100
  18.       if uu%[i%] > max% then max%=uu%[i%] endif
  19.       if uu%[i%] < min% then min%=uu%[i%] endif
  20.       endloop
  21.  
  22.  
  23. call clrscr
  24. call gr_init
  25. call gr_setwin(50,470,10,230)
  26. call gr_setscale(0,100,0,max%+90)
  27. call gr_xaxis(0,100,10,5,0,0,8)
  28. call gr_xaxis(0,100,10,5,max%,8,0)
  29. call gr_yaxis(0,max%,100,5,0,0,8)
  30. call gr_yaxis(0,max%,100,5,100,8,0)
  31.  
  32. pen%=0
  33.  
  34. loop for i%=1 to 100
  35.    call gr_plot(i%,uu%[i%],pen%)
  36.    pen%=1
  37.    endloop
  38. print "minimum bin = " min%
  39. print "maximum bin = " max%
  40.