Anonymous user
Random numbers: Difference between revisions
m
→{{header|Pascal}}
(Random numbers en BASIC256) |
|||
Line 1,927:
u1 := random;
u2 := random;
rnorm := mean * abs(1 + sqrt(-2 * (ln(u1))) * cos(2 * pi * u2) * sd); /* error !?! Shouldn't it be "mean +" instead of "mean *" ?
end;
</lang>
|