9 lines
183 B
Text
9 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
|