Random numbers: Difference between revisions
Content added Content deleted
m (→{{header|Chipmunk Basic}}: Ending tag corrected.) |
(Added XPL0 example.) |
||
Line 2,802: | Line 2,802: | ||
Actual std dev: 0.4961645117026 |
Actual std dev: 0.4961645117026 |
||
</pre> |
</pre> |
||
=={{header|XPL0}}== |
|||
{{trans|C}} |
|||
<syntaxhighlight lang "XPL0">define PI = 3.14159265358979323846; |
|||
func real DRand; \Uniform distribution, [0..1] |
|||
return float(Ran(1_000_000)) / 1e6; |
|||
func real RandomNormal; \Normal distribution, centered on 0, std dev 1 |
|||
return sqrt(-2.*Log(DRand)) * Cos(2.*PI*DRand); |
|||
int I; |
|||
real Rands(1000); |
|||
for I:= 0 to 1000-1 do |
|||
Rands(I):= 1.0 + 0.5*RandomNormal</syntaxhighlight> |
|||
=={{header|Yorick}}== |
=={{header|Yorick}}== |