#!/bin/tcsh
#
# gen-fig8
#
# Michele C. Weigle, mweigle@cs.odu.edu
# Old Dominion University, November 2006

set run = 7
set bw = 100
set stop = 3600
set rate = 50
set pairs = 100000
set window = 64
set debug = 0
set badRNG = 1
set datadir1 = "uncongested-badRNG"
mkdir -p $datadir1

ns pm-script.tcl \
run $run \
length $stop \
pairs $pairs \
PMrate $rate \
debug $debug \
badRNG $badRNG \
bw $bw \
window $window \
datadir $datadir1 >&! $datadir1/exp-r$run.out

set datadir2 = "congested-badRNG"
mkdir -p $datadir2
set bw = 7.5

ns pm-script.tcl \
run $run \
length $stop \
pairs $pairs \
PMrate $rate \
debug $debug \
badRNG $badRNG \
bw $bw \
window $window \
datadir $datadir2 >&! $datadir2/exp-r$run.out

# generate figure 8
set FIG = "fig8.gp"
echo set xlabel \"Connection Start Time \(s\)\" > $FIG
echo set ylabel \"Response Size \(KB\)\" >> $FIG
echo set key left Left norev box >> $FIG
echo set xrange \[:2000\] >> $FIG
echo set yrange \[100:\] >> $FIG
echo set log y >> $FIG
echo plot \\ >> $FIG
echo \"$datadir1/exp-r07-samples-PM0.dat\" using 1:\(\$3/1024\) t \"  Uncongested\" pt 4, \\ >> $FIG
echo \"$datadir2/exp-r07-samples-PM0.dat\" using 1:\(\$3/1024\) t \"  Congested\" pt 2 >> $FIG