#!/usr/bin/tclsh
### TCP vs. AIMD, 16 flows of each.  Plot the throughput for each flow.
### RED, ECN. 
set ctr [lindex $argv 0]
set increase [lindex $argv 1]
set decrease [lindex $argv 2]
set rate [lindex $argv 3]
set queue [lindex $argv 4]
set ecn [lindex $argv 5]
set stoptime [lindex $argv 6]
catch {exec rm *.tr}
catch {exec rm out.$queue.12}
catch {exec rm out.12}
set i 16
puts "queue = $queue"
eval "exec ./ns tfrm12-poly-stoptime.tcl $i $queue $rate $ecn $increase $decrease $stoptime"
catch {eval "exec ./bwcnt4 $rate 0 1 all.12.tr >> out.$queue.12"}
catch {eval "exec ./bwcnt6 $rate 0 1 all.12.tr > graphs/s$ctr.trace"}
set k 0
while {$k < 32} {
 eval "exec graphs/plottrace.tcl graphs/s$ctr.trace $k > graphs/s$ctr.$k"
 eval "exec graphs/plotdrops.tcl graphs/s$ctr.trace $k > graphs/s$ctr.d.$k"
 eval "exec graphs/plotecn.tcl graphs/s$ctr.trace $k > graphs/s$ctr.e.$k"
 set k [expr $k+1]
}
eval "exec fgrep tcp out.$queue.12 > tmp"
eval "exec grep 000$ out.$queue.12 > graphs/s$ctr.tcp.tmp"
eval "exec grep -v 000$ out.$queue.12 > graphs/s$ctr.poly.tmp"
eval "exec sed \"s/tcp //\" < graphs/s$ctr.tcp.tmp > graphs/s$ctr.tcp"
eval "exec sed \"s/tcp //\" < graphs/s$ctr.poly.tmp > graphs/s$ctr.poly"
eval "exec graphs/getmean.tcl graphs/s$ctr.tcp > graphs/s$ctr.tcpmean"
eval "exec graphs/getmean.tcl graphs/s$ctr.poly > graphs/s$ctr.polymean"