8 lines
183 B
Text
8 lines
183 B
Text
function RandomNormal()
|
|
return sqrt(-2*log(rnd())) * cos(2*PI*rnd())
|
|
end function
|
|
|
|
sequence s = repeat(0,1000)
|
|
for i=1 to length(s) do
|
|
s[i] = 1 + 0.5 * RandomNormal()
|
|
end for
|