Random numbers

From Rosetta Code
Revision as of 04:55, 7 April 2007 by 69.12.181.181 (talk) (-> Tcl)
Task
Random numbers
You are encouraged to solve this task according to the task description, using any language you may know.

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 standard deviation of 0.5

IDL

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


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()]}