Random numbers: Difference between revisions
Content added Content deleted
| Line 1,801: | Line 1,801: | ||
s[i] = 1 + 0.5 * RandomNormal() |
s[i] = 1 + 0.5 * RandomNormal() |
||
end for</lang> |
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}}== |
=={{header|PHP}}== |
||