collapseall.v2.tcl

CBRP协议（移动adhoc中基于分簇的路由协议）ns2下的源码

#
# To run this:  "../../ns Collapseall.v2.tcl" 
#
source Fairnessall1.v2.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.v2.tcl simple 0.000$i"
# need catch for those "warning: no class variable Queue/RED::fracminthresh_"
    catch {exec ../../ns Collapse.v2.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.v2.tcl simple 0.00$i"
    catch {exec ../../ns Collapse.v2.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.v2.tcl simple 0.0$i"
    catch {exec ../../ns Collapse.v2.tcl simple 0.0$i} result
    append $infile $datafile
}
finish