#
# To run this:  "./ns Collapseall.tcl" 
#
source Fairnessall1.tcl
set datafile Collapse.data
set infile Collapse.tr
set psfile Collapse.ps

exec rm -f $datafile
# for interval=0.00008, CBR arrival rate is 10 Mbps
# for interval=0.0008, CBR arrival rate is 1 Mbps
# intervals 0.0001 to 0.0009
for {set i 4} {$i <= 9} {incr i 1} {
    puts "./ns Collapse.tcl simple 0.000$i"
# need catch for those "warning: no class variable Queue/RED::fracminthresh_"
    catch {exec ./ns Collapse.tcl simple 0.000$i} result
    append $infile $datafile
}
# intervals 0.001 to 0.009
for {set i 1} {$i <= 9} {incr i 1} {
    puts "./ns Collapse.tcl simple 0.00$i"
    catch {exec ./ns Collapse.tcl simple 0.00$i} result
    append $infile $datafile
}
# intervals 0.01 to 0.09
for {set i 1} {$i <= 9} {incr i 1} {
    puts "./ns Collapse.tcl simple 0.0$i"
    catch {exec ./ns Collapse.tcl simple 0.0$i} result
    append $infile $datafile
}
finish