#!/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-allinone-2.1b6/ns-2.1b7-current/ns single.binomial.new.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"
eval "exec graphs/plottracefull.tcl graphs/s$ctr.0 > graphs/s$ctr.full.0"