home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / tcl / tcl_1 / !Hist_makedata < prev    next >
Encoding:
Text File  |  1994-09-22  |  372 b   |  18 lines
  1. #makedata generates random numbers
  2. #vaguely normally distributed 
  3. #usage makedata n
  4.  
  5. if {$argc>0} {set n $argv(0)} else {set n 100}
  6.  
  7. set outfile [open <Hist\$Dir>.Data w]
  8.  
  9. set m 4
  10. set max [expr pow(2.0,31)*$m]
  11.  
  12. for {set i 0} {$i<$n} {incr i}\
  13.   { set x 0 
  14.     for {set j 0} {$j<$m} {incr j} {set x [expr $x+double($rand)]}
  15.     puts $outfile [expr $x/$max]
  16.   }
  17. puts $clock
  18.