File: qrng.ml

package info (click to toggle)
ocamlgsl 0.3.5-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,444 kB
  • ctags: 2,901
  • sloc: ml: 7,956; ansic: 6,796; makefile: 303; sh: 87; awk: 13
file content (7 lines) | stat: -rw-r--r-- 191 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
let _ = 
  let qrng = Gsl_qrng.make Gsl_qrng.SOBOL 2 in
  let tmp = Array.make 2 0. in
  for i=0 to 1023 do
    Gsl_qrng.get qrng tmp ;
    Printf.printf "%.5f %.5f\n" tmp.(0) tmp.(1)
  done