for {set i 0} {$i < 10} {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TCP 1.0 0.5 0.5 0.5" 
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TCP 0.21 0.875 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TCP 0.11 0.94 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TCP 0.03 0.984 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TCP 0.006 0.995 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 Binomial 1.0 0.5 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 Binomial 0.21 0.875 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 Binomial 0.11 0.94 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 Binomial 0.03 0.984 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 Binomial 0.006 0.995 0.5 0.5"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 1 0 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 8 0 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 16 0 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 64 0 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 128 0 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 256 0 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 1 1 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 8 1 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 16 1 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 64 1 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 128 1 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
for {set i 0} {$i < 10}  {incr i} {
    eval "exec ./ns dropratemetric.tcl 20 5Mb RED 10Mb 150 180 300 TFRC 0 256 1 0"
    eval "exec grep dropratetime tmpthru >> result-RED"
}
eval "exec ./avg result-RED > avg-result-RED"
eval "exec gnuplot plot-RED"