Introducing the Colour Maximite 2


Author Message
matherp
Guru

Joined: 11/12/2012
Location: United Kingdom
Posts: 6491
Posted: 10:08am 08 May 2020      

For interest the attached is a pictorial demonstration of the random number generation. The program takes 5 seconds to run (240,000 random numbers binned and plotted)

cls
dim a%(799)
for i%=1 to 800*300
 j%=rnd(799)
 a%(j%)=a%(j%)+1
next i%
for i%=0 to 799
 line i%,599-a%(i%),i%,599
next i%
do
loop