5 lines
115 B
Text
5 lines
115 B
Text
dim a(1000)
|
|
pi = 22/7
|
|
for i = 1 to 1000
|
|
a( i) = 1 + .5 * (sqr(-2 * log(rnd(0))) * cos(2 * pi * rnd(0)))
|
|
next i
|