6 lines
160 B
Text
6 lines
160 B
Text
dim a(1000)
|
|
mean =1
|
|
sd =0.5
|
|
for i = 1 to 1000 ' throw 1000 normal variates
|
|
a( i) =mean +sd *( sqr( -2 * log( rnd( 0))) * cos( 2 * pi * rnd( 0)))
|
|
next i
|