utils/generate-distributions.pl
author Peter D. Barnes, Jr. <barnes26@llnl.gov>
Wed, 10 Dec 2014 16:30:51 -0800
changeset 11129 8522545f2943
parent 191 411f29b214f0
permissions -rwxr-xr-x
[Doxygen] Tracing.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
191
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     1
#!/usr/bin/env perl
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     2
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     3
use Math::Random qw(:all);
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     4
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     5
@values = random_uniform (10000, 0, 10000000);
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     6
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     7
foreach $value (@values) {
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     8
    print $value . "\n";
411f29b214f0 add small perl utility to generate static sample distributions
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff changeset
     9
}