Random numbers: Difference between revisions

 

The goal of this task is to generate a 1000-element array (vector, list, whatever it's called in your language) filled with normally distributed random numbers with a mean of 1.0 and a [http://en.wikipedia.org/wiki/Standard_deviation standard deviation] of 0.5

 

{{header|Ada}}

 

{{header|E}}

accum [] for _ in 1..1000 { _.with(entropy.nextGaussian()) }

 

{{header|IDL}}

result = 1.0 + 0.5*randomn(seed,1000)

 

 

{{header|Pop11}}

;;; Choose radians as arguments to trigonometic functions

true -> popradians;

 

{{header|Tcl}}

proc nrand {} {return [expr sqrt(-2*log(rand()))*cos(4*acos(0)*rand())]}

for {set i 0} {$i < 1000} {incr i} {lappend result [expr 1+.5*nrand()]}