fairnessall.v2.tcl

来自「CBRP协议（移动adhoc中基于分簇的路由协议）ns2下的源码」· TCL 代码 · 共 37 行

#
# To run this:  "../../ns Fairnessall.v2.tcl"
#
set datafile Fairness.data
source Fairnessall1.v2.tcl
#
set bandwidth 10Mb
set infile Fairness.tr
set psfile Fairness.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 $bandwidth"
# need catch for those "warning: no class variable Queue/RED::fracminthresh_"
    catch {exec ../../ns Collapse.v2.tcl simple 0.000$i $bandwidth} result
#    puts stderr $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 $bandwidth"
    catch {exec ../../ns Collapse.v2.tcl simple 0.00$i $bandwidth} result
#    puts stderr $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 $bandwidth"
    catch {exec ../../ns Collapse.v2.tcl simple 0.0$i $bandwidth} result
#    puts stderr $result
    append $infile $datafile
}
finish