#!/usr/bin/tclsh set ctr 250 # foreach ecn {0 1} foreach ecn { 1 0 } { foreach rate {15 60} { foreach queue {DropTail RED} { if { ($ecn == 1) && ($queue == "DropTail") } { # skip } else { catch {exec rm out.$queue.12} foreach i {1 2 4 8 16 24 32 40 48 56 64} { eval "exec sed \"s/s0/s$ctr/g\" < graphs/s0.12.mf | sed \"s/QUEUE/$queue/\" | sed \"s/RATE/$rate/\" > graphs/s$ctr.mf" eval "exec sed \"s/s0/s$ctr/g\" < graphs/s0.loss3.mf | sed \"s/QUEUE/$queue/\" | sed \"s/RATE/$rate/\" > graphs/s$ctr.loss1.mf" } } incr ctr } } }