#!/usr/bin/tclsh
## set ctr 10
## set ctr 254


foreach minrto_ { 0.5 0.1 } {
foreach wnd_init_ { 2 }  {
foreach p_loss { 0 } {
# 0.005 0.01 0.015 0.02 0.025 0.03 0.035 0.040 0.045 0.050 0.055 0.060 0.065 0.070 0.075 0.080 0.085 0.090 0.095 0.1
foreach tcptype { 0 } {
#0->reno, 1->sack
foreach elntcp { 0 } {
foreach elnrcp { 0 } {
foreach prnt { 0 } {
#1->print, 0->don't print 
foreach cap  { 10 } {
    foreach frac { 0.5 } {
    foreach loss_int_used { 1 } {
     #1->loss_int_used, 0-> loss
	foreach rnd  { 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 } {
	# 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100
	 #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 { 11 } {
	                 # 2 6 11 16 18 21 31 41 51 61 71 81 91 101 111 121 131 141 151 161 171 181 191 201 221 241 261 281 301 321 341 361 381 401 451 501 551 601
			     foreach itcp { 0 } {
			   # itcp 1 10 20 30 40 50 60
                             # 0 1 2 5 for itcp
				 foreach randflows { 0 } {	
				 # reverse background traffic 0 or 1

		if { ($ircp == 0) && ($itcp == 0) } {
		    #skip
		} else {
	


if {1==1} {

eval "exec ./ns simple.tcl $minrto_ $wnd_init_ $p_loss $tcptype $elnrcp $elntcp $prnt $cap $frac $loss_int_used $rnd $queue $decrease $increase $ircp $itcp $randflows >> ./results-sale/result-RTO-$minrto_"




#if { ($elnrcp==0) && ($ircp==1) && ($itcp==0) && ($tcptype==0) } { 

#eval "exec ./ns simple.tcl $minrto_ $wnd_init_ $p_loss $tcptype $elnrcp $elntcp $prnt $cap $frac $loss_int_used $rnd $queue $decrease $increase $ircp $itcp $randflows >> ./results-sale/result-rcp-no-eln"
#}


#if { ($elnrcp==0) && ($ircp==0) && ($itcp==1) && ($tcptype==0) } { 

#eval "exec ./ns simple.tcl $minrto_ $wnd_init_  $p_loss $tcptype $elnrcp $elntcp $prnt $cap $frac $loss_int_used $rnd $queue $decrease $increase $ircp $itcp $randflows >> ./results-sale/result-tcp-reno"
#}


#if { ($elnrcp==0) && ($ircp==0) && ($itcp==1) && ($tcptype==1) } { 

#eval "exec ./ns simple.tcl  $minrto_ $wnd_init_ $p_loss $tcptype $elnrcp $elntcp $prnt $cap $frac $loss_int_used $rnd $queue $decrease $increase $ircp $itcp $randflows >> ./results-sale/result-tcp-sack"
#}

puts "the end $rnd"


}


}
#else

}
#randomflows

}
#itcp

}
#ircp
 
}
#increase

}
#decrease

}
#queue

}
#rnd

}
#loss_int_used

}
#frac

}
#cap

}
#prnt

}
#elnrcp

}
#elntcp

}
#tcptype

}
#p_loss

}
#wnd_init_ 

}
#minrto