aUCBLogo Demos and Tests / randomtest


to randomtest
   
maxn=800
   
n=array maxn
   
for [maxn]
   
[   n.x=int 0 
   
]
   
print [Wait a few moments, 
   
then press a key to show the distribution!]
   
until [key?]
   
[   r=1+random maxn
      
n.r=n.r+1
   
]
   
n=n*600/(max n)
   
ht
   
boundingbox
   
pu
   
setxy -400 n.1-300
   
pd
   
for [maxn]
   
[   setxy x-400 (n.x)-300
   
]
end