#!/usr/bin/tclsh ## set ctr 10 ## set ctr 254 foreach rnd { 1 } { #rnd 0 means default - we have the same thing foreach queue { RED } { #queue type foreach decrease { 0.5 } { #decrease parameter foreach increase { 1.0} { #increase parameter foreach ircp { 1 } { # 0 1 2 3 4 5 for ircp foreach itcp { 7 } { # 0 1 2 5 for itcp foreach randflows { 1 } { # reverse background traffic 0 or 1 if { ($ircp == 0) && ($itcp == 0) } { #skip } else { if {1==1} { eval "exec ./ns simple.tcl $rnd $queue $decrease $increase $ircp $itcp $randflows > ./results-sale/drops-$rnd-$queue-$decrease-$increase-$ircp-$itcp-$randflows" puts "the end" } } #else } #randomflows } #itcp } #ircp } #increase } #decrease } #queue } #rnd