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

## No comments:

## Post a Comment