sk-30-3-3-1-1-6-64.tcl~

NS-2.28的802.11e协议扩展源代码

#
# nodes: 30, send rate: 0.167
# seed: 0.0
#
#
# node 7 is ready to send data type 0 at time 0.036182026954452516
#
set src_(0) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(7) $src_(0)
$ns_ put-in-list $src_(0)
$src_(0) set packetSize_ 64
$src_(0) set interval_ 0.167
$src_(0) data-type 0
$src_(0) set fid_ 0
$node_(7) color red
$ns_ at 0.036182026954452516 "$src_(0) ready"
#
# node 8 is ready to send data type 0 at time 0.036182026954452516
#
set src_(1) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(8) $src_(1)
$ns_ put-in-list $src_(1)
$src_(1) set packetSize_ 64
$src_(1) set interval_ 0.167
$src_(1) data-type 0
$src_(1) set fid_ 0
$node_(8) color red
$ns_ at 0.036182026954452516 "$src_(1) ready"
#
# node 19 is ready to send data type 0 at time 0.036182026954452516
#
set src_(2) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(19) $src_(2)
$ns_ put-in-list $src_(2)
$src_(2) set packetSize_ 64
$src_(2) set interval_ 0.167
$src_(2) data-type 0
$src_(2) set fid_ 0
$node_(19) color red
$ns_ at 0.036182026954452516 "$src_(2) ready"
#
# node 3 expresses interest type 0 at time 0.036182026954452516
#
set sk_(0) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(3) $sk_(0)
$ns_ put-in-list $sk_(0)
$sk_(0) set packetSize_ 64
$sk_(0) set interval_ 0.167
$sk_(0) data-type 0
$sk_(0) set fid_ 1
$node_(3) color blue
$ns_ at 0.036182026954452516 "$sk_(0) announce"
#
# node 21 expresses interest type 0 at time 0.036182026954452516
#
set sk_(1) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(21) $sk_(1)
$ns_ put-in-list $sk_(1)
$sk_(1) set packetSize_ 64
$sk_(1) set interval_ 0.167
$sk_(1) data-type 0
$sk_(1) set fid_ 1
$node_(21) color blue
$ns_ at 0.036182026954452516 "$sk_(1) announce"
#
# node 23 expresses interest type 0 at time 0.036182026954452516
#
set sk_(2) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(23) $sk_(2)
$ns_ put-in-list $sk_(2)
$sk_(2) set packetSize_ 64
$sk_(2) set interval_ 0.167
$sk_(2) data-type 0
$sk_(2) set fid_ 1
$node_(23) color blue
$ns_ at 0.036182026954452516 "$sk_(2) announce"