#!/usr/local/bin/tclsh8.1
set ctr [lindex $argv 0]
set increase [lindex $argv 1]
set decrease [lindex $argv 2]
set pattern [lindex $argv 3]
set flowtype [lindex $argv 4]
set rate 15
catch {exec rm out.loss}
eval "exec ./ns single.AIMD.tcl $rate $increase $decrease $pattern $flowtype > out.loss"
catch {eval "exec ./bwcnt7 $rate 0 1 all.tr > graphs/s$ctr.trace"}
set k 0
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/plottrace10.tcl graphs/s$ctr.0 > graphs/s$ctr.10.0"