qi-hardware/wernermisc
1
0
Fork 0
mirror of git://projects.qi-hardware.com/wernermisc.git synced 2024-11-15 08:50:38 +02:00
Code

m1rc3/norruption/2/plot-corr: options -n and -i to set samples and interval

Browse Source 
Simulation with both -n and -i also doesn't need to read a log file.
This commit is contained in:
Werner Almesberger 2011-10-12 09:49:28 -03:00
parent 1c331b3b5c
commit 36b52a976d
1 changed files with 33 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
m1rc3/norruption/2/plot-corr
View File

@ -2,34 +2,45 @@
sub usage
{
print STDERR "usage: $0 [-s] [log_file]\n";
print STDERR "usage: $0 [-s [-n samples] [-i interval]] [log_file]\n";
exit(1);
}
if ($ARGV[0] eq "-s") {
shift @ARGV;
$sim = 1;
while ($ARGV[0] =~ /^-/) {
$opt = shift @ARGV;
if ($opt eq "-s") {
$sim = 1;
} elsif ($opt eq "-n") {
$sim_n = shift @ARGV;
&usage unless defined $sim_n;
} elsif ($opt eq "-i") {
$sim_t = shift @ARGV;
&usage unless defined $sim_t;
} else {
&usage;
}
}
&usage if $ARGV[0] =~ /^-/;
$n = 1;
while (<>) {
next unless /^=== (\d+) ===/;
while ($1 != $n) {
push(@f, $n);
unless ($sim && defined $sim_n && defined $sim_t) {
$n = 1;
while (<>) {
next unless /^=== (\d+) ===/;
while ($1 != $n) {
push(@f, $n);
$n++;
}
$n++;
}
$n++;
}
$n--;
$t = int($n/@f+0.5);
$n--;
$t = int($n/@f+0.5);
$last = 0;
for (@f) {
push(@d, $_-$last);
$last = $_;
$last = 0;
for (@f) {
push(@d, $_-$last);
$last = $_;
}
}
if ($sim) {
@ -39,9 +50,11 @@ if ($sim) {
# -T*ln(1-y) = x
$type = " (SIMULATED)";
$sim_n = @f unless defined $sim_n;
$sim_t = $t unless defined $sim_t;
@d = ();
for ($i = 0; $i != @f; $i++) {
push(@d, -$t*log(1-rand));
for ($i = 0; $i != $sim_n; $i++) {
push(@d, -$sim_t*log(1-rand));
}
}