cbr_40

ns2下的仿真环境tcl文件。40节点的随即数据传送

$cbr_(16) set packetSize_ 512
$cbr_(16) set interval_ 0.5
$cbr_(16) set random_ 1
$cbr_(16) set maxpkts_ 10000
$cbr_(16) attach-agent $udp_(16)
$ns_ connect $udp_(16) $null_(16)
$ns_ at 137.20174070317378 "$cbr_(16) start"
#
# 17 connecting to 18 at time 72.99343390995331
#
set udp_(17) [new Agent/UDP]
$ns_ attach-agent $node_(17) $udp_(17)
set null_(17) [new Agent/Null]
$ns_ attach-agent $node_(18) $null_(17)
set cbr_(17) [new Application/Traffic/CBR]
$cbr_(17) set packetSize_ 512
$cbr_(17) set interval_ 0.5
$cbr_(17) set random_ 1
$cbr_(17) set maxpkts_ 10000
$cbr_(17) attach-agent $udp_(17)
$ns_ connect $udp_(17) $null_(17)
$ns_ at 72.99343390995331 "$cbr_(17) start"
#
# 17 connecting to 19 at time 19.655724884781858
#
set udp_(18) [new Agent/UDP]
$ns_ attach-agent $node_(17) $udp_(18)
set null_(18) [new Agent/Null]
$ns_ attach-agent $node_(19) $null_(18)
set cbr_(18) [new Application/Traffic/CBR]
$cbr_(18) set packetSize_ 512
$cbr_(18) set interval_ 0.5
$cbr_(18) set random_ 1
$cbr_(18) set maxpkts_ 10000
$cbr_(18) attach-agent $udp_(18)
$ns_ connect $udp_(18) $null_(18)
$ns_ at 19.655724884781858 "$cbr_(18) start"
#
# 20 connecting to 21 at time 170.32769159894795
#
set udp_(19) [new Agent/UDP]
$ns_ attach-agent $node_(20) $udp_(19)
set null_(19) [new Agent/Null]
$ns_ attach-agent $node_(21) $null_(19)
set cbr_(19) [new Application/Traffic/CBR]
$cbr_(19) set packetSize_ 512
$cbr_(19) set interval_ 0.5
$cbr_(19) set random_ 1
$cbr_(19) set maxpkts_ 10000
$cbr_(19) attach-agent $udp_(19)
$ns_ connect $udp_(19) $null_(19)
$ns_ at 170.32769159894795 "$cbr_(19) start"
#
# 20 connecting to 22 at time 160.44260791523504
#
set udp_(20) [new Agent/UDP]
$ns_ attach-agent $node_(20) $udp_(20)
set null_(20) [new Agent/Null]
$ns_ attach-agent $node_(22) $null_(20)
set cbr_(20) [new Application/Traffic/CBR]
$cbr_(20) set packetSize_ 512
$cbr_(20) set interval_ 0.5
$cbr_(20) set random_ 1
$cbr_(20) set maxpkts_ 10000
$cbr_(20) attach-agent $udp_(20)
$ns_ connect $udp_(20) $null_(20)
$ns_ at 160.44260791523504 "$cbr_(20) start"
#
# 24 connecting to 25 at time 60.419296464146719
#
set udp_(21) [new Agent/UDP]
$ns_ attach-agent $node_(24) $udp_(21)
set null_(21) [new Agent/Null]
$ns_ attach-agent $node_(25) $null_(21)
set cbr_(21) [new Application/Traffic/CBR]
$cbr_(21) set packetSize_ 512
$cbr_(21) set interval_ 0.5
$cbr_(21) set random_ 1
$cbr_(21) set maxpkts_ 10000
$cbr_(21) attach-agent $udp_(21)
$ns_ connect $udp_(21) $null_(21)
$ns_ at 60.419296464146719 "$cbr_(21) start"
#
# 26 connecting to 27 at time 46.258873029732555
#
set udp_(22) [new Agent/UDP]
$ns_ attach-agent $node_(26) $udp_(22)
set null_(22) [new Agent/Null]
$ns_ attach-agent $node_(27) $null_(22)
set cbr_(22) [new Application/Traffic/CBR]
$cbr_(22) set packetSize_ 512
$cbr_(22) set interval_ 0.5
$cbr_(22) set random_ 1
$cbr_(22) set maxpkts_ 10000
$cbr_(22) attach-agent $udp_(22)
$ns_ connect $udp_(22) $null_(22)
$ns_ at 46.258873029732555 "$cbr_(22) start"
#
# 27 connecting to 28 at time 98.067954088592884
#
set udp_(23) [new Agent/UDP]
$ns_ attach-agent $node_(27) $udp_(23)
set null_(23) [new Agent/Null]
$ns_ attach-agent $node_(28) $null_(23)
set cbr_(23) [new Application/Traffic/CBR]
$cbr_(23) set packetSize_ 512
$cbr_(23) set interval_ 0.5
$cbr_(23) set random_ 1
$cbr_(23) set maxpkts_ 10000
$cbr_(23) attach-agent $udp_(23)
$ns_ connect $udp_(23) $null_(23)
$ns_ at 98.067954088592884 "$cbr_(23) start"
#
# 28 connecting to 29 at time 47.128346453946243
#
set udp_(24) [new Agent/UDP]
$ns_ attach-agent $node_(28) $udp_(24)
set null_(24) [new Agent/Null]
$ns_ attach-agent $node_(29) $null_(24)
set cbr_(24) [new Application/Traffic/CBR]
$cbr_(24) set packetSize_ 512
$cbr_(24) set interval_ 0.5
$cbr_(24) set random_ 1
$cbr_(24) set maxpkts_ 10000
$cbr_(24) attach-agent $udp_(24)
$ns_ connect $udp_(24) $null_(24)
$ns_ at 47.128346453946243 "$cbr_(24) start"
#
# 28 connecting to 30 at time 99.87114126788039
#
set udp_(25) [new Agent/UDP]
$ns_ attach-agent $node_(28) $udp_(25)
set null_(25) [new Agent/Null]
$ns_ attach-agent $node_(30) $null_(25)
set cbr_(25) [new Application/Traffic/CBR]
$cbr_(25) set packetSize_ 512
$cbr_(25) set interval_ 0.5
$cbr_(25) set random_ 1
$cbr_(25) set maxpkts_ 10000
$cbr_(25) attach-agent $udp_(25)
$ns_ connect $udp_(25) $null_(25)
$ns_ at 99.87114126788039 "$cbr_(25) start"
#
# 33 connecting to 34 at time 170.4269140541679
#
set udp_(26) [new Agent/UDP]
$ns_ attach-agent $node_(33) $udp_(26)
set null_(26) [new Agent/Null]
$ns_ attach-agent $node_(34) $null_(26)
set cbr_(26) [new Application/Traffic/CBR]
$cbr_(26) set packetSize_ 512
$cbr_(26) set interval_ 0.5
$cbr_(26) set random_ 1
$cbr_(26) set maxpkts_ 10000
$cbr_(26) attach-agent $udp_(26)
$ns_ connect $udp_(26) $null_(26)
$ns_ at 170.4269140541679 "$cbr_(26) start"
#
# 33 connecting to 35 at time 139.08523271749041
#
set udp_(27) [new Agent/UDP]
$ns_ attach-agent $node_(33) $udp_(27)
set null_(27) [new Agent/Null]
$ns_ attach-agent $node_(35) $null_(27)
set cbr_(27) [new Application/Traffic/CBR]
$cbr_(27) set packetSize_ 512
$cbr_(27) set interval_ 0.5
$cbr_(27) set random_ 1
$cbr_(27) set maxpkts_ 10000
$cbr_(27) attach-agent $udp_(27)
$ns_ connect $udp_(27) $null_(27)
$ns_ at 139.08523271749041 "$cbr_(27) start"
#
# 35 connecting to 36 at time 32.17101298839367
#
set udp_(28) [new Agent/UDP]
$ns_ attach-agent $node_(35) $udp_(28)
set null_(28) [new Agent/Null]
$ns_ attach-agent $node_(36) $null_(28)
set cbr_(28) [new Application/Traffic/CBR]
$cbr_(28) set packetSize_ 512
$cbr_(28) set interval_ 0.5
$cbr_(28) set random_ 1
$cbr_(28) set maxpkts_ 10000
$cbr_(28) attach-agent $udp_(28)
$ns_ connect $udp_(28) $null_(28)
$ns_ at 32.17101298839367 "$cbr_(28) start"
#
# 36 connecting to 37 at time 16.444244867397586
#
set udp_(29) [new Agent/UDP]
$ns_ attach-agent $node_(36) $udp_(29)
set null_(29) [new Agent/Null]
$ns_ attach-agent $node_(37) $null_(29)
set cbr_(29) [new Application/Traffic/CBR]
$cbr_(29) set packetSize_ 512
$cbr_(29) set interval_ 0.5
$cbr_(29) set random_ 1
$cbr_(29) set maxpkts_ 10000
$cbr_(29) attach-agent $udp_(29)
$ns_ connect $udp_(29) $null_(29)
$ns_ at 16.444244867397586 "$cbr_(29) start"
#
# 36 connecting to 38 at time 88.50990661816202
#
set udp_(30) [new Agent/UDP]
$ns_ attach-agent $node_(36) $udp_(30)
set null_(30) [new Agent/Null]
$ns_ attach-agent $node_(38) $null_(30)
set cbr_(30) [new Application/Traffic/CBR]
$cbr_(30) set packetSize_ 512
$cbr_(30) set interval_ 0.5
$cbr_(30) set random_ 1
$cbr_(30) set maxpkts_ 10000
$cbr_(30) attach-agent $udp_(30)
$ns_ connect $udp_(30) $null_(30)
$ns_ at 88.50990661816202 "$cbr_(30) start"
#
# 38 connecting to 39 at time 95.921739365869087
#
set udp_(31) [new Agent/UDP]
$ns_ attach-agent $node_(38) $udp_(31)
set null_(31) [new Agent/Null]
$ns_ attach-agent $node_(39) $null_(31)
set cbr_(31) [new Application/Traffic/CBR]
$cbr_(31) set packetSize_ 512
$cbr_(31) set interval_ 0.5
$cbr_(31) set random_ 1
$cbr_(31) set maxpkts_ 10000
$cbr_(31) attach-agent $udp_(31)
$ns_ connect $udp_(31) $null_(31)
$ns_ at 95.921739365869087 "$cbr_(31) start"
#
# 38 connecting to 0 at time 132.31640266828072
#
set udp_(32) [new Agent/UDP]
$ns_ attach-agent $node_(38) $udp_(32)
set null_(32) [new Agent/Null]
$ns_ attach-agent $node_(0) $null_(32)
set cbr_(32) [new Application/Traffic/CBR]
$cbr_(32) set packetSize_ 512
$cbr_(32) set interval_ 0.5
$cbr_(32) set random_ 1
$cbr_(32) set maxpkts_ 10000
$cbr_(32) attach-agent $udp_(32)
$ns_ connect $udp_(32) $null_(32)
$ns_ at 132.31640266828072 "$cbr_(32) start"
#
#Total sources/connections: 21/33
#