utils/generate-distributions.pl
author Marco Miozzo <marco.miozzo@cttc.es>
Thu, 29 Aug 2013 16:07:34 +0200
changeset 10190 2a14ac86aafd
parent 191 411f29b214f0
permissions -rwxr-xr-x
Correct typo in DlRsrpSinrFilename trace name in lte user manual
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
}