clg
Dim p(300)
for z=0 to 100000
sum =0
for n = 1 to 300
if int(rand*2)=1 then sum=sum+1
next n
rect sum,300-p[sum],1,300
p[sum]=p[sum]+1
next z
Dim p(300)
for z=0 to 100000
sum =0
for n = 1 to 300
if int(rand*2)=1 then sum=sum+1
next n
rect sum,300-p[sum],1,300
p[sum]=p[sum]+1
next z
Posts
No comments:
Post a Comment