deac/osd-contiki
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Scripts for manipulating and calculating statistics from .csc files

Browse source
This commit is contained in:
Adam Dunkels 2011-02-11 08:41:40 +01:00
parent bb8377dfee
commit 4633e2fcfd
2 changed files with 83 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
tools/csc/csc-create-range-success Executable file
View file

@ -0,0 +1,29 @@
#!/usr/bin/perl
$csc = $ARGV[0];
$range = $ARGV[1];
$success = $ARGV[2];
if(!$success) {
print "takes a .csc file as input, creates a .csc file with a given tx range and reliability\n";
exit 0;
}
open(F, $csc);
$csc =~ s/\.csc/-$range-$success.csc/g;
open(O, "> $csc");
while(<F>) {
if(m-\<transmitting_range\>[\d.]+\</transmitting_range\>-) {
print O "<transmitting_range>$range</transmitting_range>\n";
} elsif(m-\<interference_range\>[\d.]+\</interference_range\>-) {
print O "<interference_range>" . ($range * 2) . "</transmitting_range>\n";
} elsif(m-\<success_ratio_rx\>[\d.]+\</success_ratio_rx\>-) {
print O "<success_ratio_rx>$success</success_ratio_rx>\n";
} else {
print O;
}
}