Random numbers: Difference between revisions
→{{header|Phix}}
Line 1,801:
s[i] = 1 + 0.5 * RandomNormal()
end for</lang>
=={{header|Phixmonti}}==
<lang Phixmonti>include ..\Utilitys.pmt
def RandomNormal
drop rand log -2 * sqrt 2 pi * rand * cos * 0.5 * 1 +
enddef
1000 var n
0 n repeat
getid RandomNormal map
dup
sum n / var mean
"Mean: " print mean print nl
0 swap n for
get mean - 2 power rot + swap
endfor
swap n / sqrt "Standard deviation: " print print</lang>
=={{header|PHP}}==
| |||