Random numbers: Difference between revisions
Content added Content deleted
(New task) |
(-> Tcl) |
||
| Line 7: | Line 7: | ||
result = 1.0 + 0.5*randomn(seed,1000) |
result = 1.0 + 0.5*randomn(seed,1000) |
||
==[[Tcl]]== |
|||
[[Category: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()]} |
|||
Revision as of 04:55, 7 April 2007
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()]}