Anonymous user
Random numbers: Difference between revisions
m
→{{header|Pascal}}
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>
| |||