Hi all,
I have adopted the perl script to calculate the througpout for new
wireless format.
In my simulation script when i use old trace format then througput is
displayed but when i change the tcl script to new trace format then i get
throughput zero .
#######following is the throuhput script for new wireless trace
# type: perl throughput.pl <trace file> <nodeID> <granlarity> > output
file
$infile=$ARGV[0];
$nodeID=$ARGV[1];
$granularity=$ARGV[2];
#we compute how many bytes were transmitted during time interval specified
#by granularity parameter in seconds
$sum=0;
$clock=0;
open (DATA,"<$infile") || die "Can't open $infile $!";
while (<DATA>)
{
@x = split(' ');
#column 2 is time
if ($x[2]-$clock <= $granularity)
{
#checking if the event corresponds to a reception
if ($x[0] eq 'r')
{
#checking if the destination corresponds to arg 1
if ($x[8] eq $nodeID)
{
#checking if the packet type is UDP
if ($x[18] eq 'AGT')
{
$sum=$sum+$x[36];
}
}
}
}
else
{
$throughput=$sum/$granularity;
print STDOUT "In time=$x[2] throughput is bloody $throughput\n";
$clock=$clock+$granularity;
$sum=0;
}
}
$throughput=$sum/$granularity;
print STDOUT "In time=$x[2] throughput is bloody $throughput\n";
$clock=$clock+$granularity;
$sum=0;
close DATA;
exit(0);
#################################### a line of the new wireless trace format
s -t 12.018000900 -Hs 4 -Hd -2 -Ni 4 -Nx 100.00 -Ny 100.00 -Nz 0.00 -Ne
-1.000000 -Nl RTR -Nw --- -Ma 0 -Md 0 -Ms 0 -Mt 0 -Is 4.0 -Id 0.3 -It cbr -Il
80 -If 0 -Ii 30314 -Iv 32 -Pn cbr -Pi 2391 -Pf 0 -Po 0
r -t 12.019122240 -Hs 0 -Hd -2 -Ni 0 -Nx 250.00 -Ny 250.00 -Nz 0.00 -Ne
-1.000000 -Nl MAC -Nw --- -Ma 39 -Md 0 -Ms 5 -Mt 0 -Is 5.0 -Id 0.4 -It cbr -Il
80 -If 0 -Ii 30315 -Iv 32 -Pn cbr -Pi 2387 -Pf 1 -Po 0
thanks in advance
Send instant messages to your online friends http://uk.messenger.yahoo.com
