cbr-20-512-0.1

INSIGNIA是专门为无线ad hoc网络设计的qos信令协议

#############################################################
# This CBR source for INSIGNIA simulation
#
#   BE      11-6 16-39 32-19 25-18 29-26 28-36
#           44-7 23-12 17-13 15-27 
#           24-9  8-50 10-45 21-41
#
#   QoS     11-6 16-39 32-19 25-18 29-26 28-36 
#
# This flow pattern is for 50 nodes, 0~20 m/sec (uniformly
# distributed) mobility model.
# QoS flows are 512 in size whereas BE flows are 127.
#############################################################


#########  BEST EFFORT FLOWS STARTS HERE  #########

# B1 : 11-6
set cbr_(0) [$ns_ create-connection  CBR $node_(11) CBR $node_(6) 0]
$cbr_(0) set packetSize_ 512
$cbr_(0) set interval_ 0.1
$cbr_(0) set random_ 1
$cbr_(0) set maxpkts_ 2500
$ns_ at 5 "$cbr_(0) start"

# B2 : 16-39
set cbr_(1) [$ns_ create-connection  CBR $node_(16) CBR $node_(39) 0]
$cbr_(1) set packetSize_ 512
$cbr_(1) set interval_ 0.1
$cbr_(1) set random_ 1
$cbr_(1) set maxpkts_ 2500
$ns_ at 10 "$cbr_(1) start"

# B3 : 32-19
set cbr_(2) [$ns_ create-connection  CBR $node_(32) CBR $node_(19) 0]
$cbr_(2) set packetSize_ 512
$cbr_(2) set interval_ 0.1
$cbr_(2) set random_ 1
$cbr_(2) set maxpkts_ 2500
$ns_ at 15 "$cbr_(2) start"

# B4 : 25-18
set cbr_(3) [$ns_ create-connection  CBR $node_(25) CBR $node_(18) 0]
$cbr_(3) set packetSize_ 512
$cbr_(3) set interval_ 0.1
$cbr_(3) set random_ 1
$cbr_(3) set maxpkts_ 2500
$ns_ at 20 "$cbr_(3) start"

# B5 : 29-26
set cbr_(4) [$ns_ create-connection  CBR $node_(29) CBR $node_(26) 0]
$cbr_(4) set packetSize_ 512
$cbr_(4) set interval_ 0.1
$cbr_(4) set random_ 1
$cbr_(4) set maxpkts_ 2500
$ns_ at 25 "$cbr_(4) start"

# B6 : 28-36
set cbr_(5) [$ns_ create-connection  CBR $node_(28) CBR $node_(36) 0]
$cbr_(5) set packetSize_ 512
$cbr_(5) set interval_ 0.1
$cbr_(5) set random_ 1
$cbr_(5) set maxpkts_ 2500
$ns_ at 30 "$cbr_(5) start"

# B7 : 44-7
set cbr_(6) [$ns_ create-connection  CBR $node_(44) CBR $node_(7) 0]
$cbr_(6) set packetSize_ 512
$cbr_(6) set interval_ 0.1
$cbr_(6) set random_ 1
$cbr_(6) set maxpkts_ 2500
$ns_ at 35 "$cbr_(6) start"

# B8 : 23-12
set cbr_(7) [$ns_ create-connection  CBR $node_(23) CBR $node_(12) 0]
$cbr_(7) set packetSize_ 512
$cbr_(7) set interval_ 0.1
$cbr_(7) set random_ 1
$cbr_(7) set maxpkts_ 2500
$ns_ at 5 "$cbr_(7) start"

# B9 : 17-13
set cbr_(8) [$ns_ create-connection  CBR $node_(17) CBR $node_(13) 0]
$cbr_(8) set packetSize_ 512
$cbr_(8) set interval_ 0.1
$cbr_(8) set random_ 1
$cbr_(8) set maxpkts_ 2500
$ns_ at 10 "$cbr_(8) start"

# B10 : 15-27
set cbr_(9) [$ns_ create-connection  CBR $node_(15) CBR $node_(27) 0]
$cbr_(9) set packetSize_ 512
$cbr_(9) set interval_ 0.1
$cbr_(9) set random_ 1
$cbr_(9) set maxpkts_ 2500
$ns_ at 15 "$cbr_(9) start"

# B11 : 24-9
set cbr_(10) [$ns_ create-connection  CBR $node_(24) CBR $node_(9) 0]
$cbr_(10) set packetSize_ 512
$cbr_(10) set interval_ 0.1
$cbr_(10) set random_ 1
$cbr_(10) set maxpkts_ 2500
$ns_ at 20 "$cbr_(10) start"

# B12 : 8-50
set cbr_(11) [$ns_ create-connection  CBR $node_(8) CBR $node_(50) 0]
$cbr_(11) set packetSize_ 512
$cbr_(11) set interval_ 0.1
$cbr_(11) set random_ 1
$cbr_(11) set maxpkts_ 2500
$ns_ at 25 "$cbr_(11) start"

# B13 : 10-45
set cbr_(12) [$ns_ create-connection  CBR $node_(10) CBR $node_(45) 0]
$cbr_(12) set packetSize_ 512
$cbr_(12) set interval_ 0.1
$cbr_(12) set random_ 1
$cbr_(12) set maxpkts_ 2500
$ns_ at 30 "$cbr_(12) start"

# B14 : 21-41
set cbr_(13) [$ns_ create-connection  CBR $node_(21) CBR $node_(41) 0]
$cbr_(13) set packetSize_ 512
$cbr_(13) set interval_ 0.1
$cbr_(13) set random_ 1
$cbr_(13) set maxpkts_ 2500
$ns_ at 35 "$cbr_(13) start"

######### QoS flows Starts Here ##########

# Q1 : 11-6
set cbr_(14) [$ns_ create-connection  CBR $node_(11) CBR $node_(6) 0]
$cbr_(14) set packetSize_ 512
$cbr_(14) set interval_ 0.1
$cbr_(14) set random_ 1
$cbr_(14) set maxpkts_ 2500
$cbr_(14) set sport_ 1
$ns_ at 40 "$cbr_(14) start"

# Q2 : 16-39
set cbr_(15) [$ns_ create-connection  CBR $node_(16) CBR $node_(39) 0]
$cbr_(15) set packetSize_ 512
$cbr_(15) set interval_ 0.1
$cbr_(15) set random_ 1
$cbr_(15) set maxpkts_ 2500
$cbr_(15) set sport_ 2
$ns_ at 40 "$cbr_(15) start"

# Q3 : 32-19
set cbr_(16) [$ns_ create-connection  CBR $node_(32) CBR $node_(19) 0]
$cbr_(16) set packetSize_ 512
$cbr_(16) set interval_ 0.1
$cbr_(16) set random_ 1
$cbr_(16) set maxpkts_ 2500
$cbr_(16) set sport_ 3
$ns_ at 40 "$cbr_(16) start"

# Q4 : 25-18
set cbr_(17) [$ns_ create-connection  CBR $node_(25) CBR $node_(18) 0]
$cbr_(17) set packetSize_ 512
$cbr_(17) set interval_ 0.1
$cbr_(17) set random_ 1
$cbr_(17) set maxpkts_ 2500
$cbr_(17) set sport_ 4
$ns_ at 40 "$cbr_(17) start"

# Q5 : 29-26
set cbr_(18) [$ns_ create-connection  CBR $node_(29) CBR $node_(26) 0]
$cbr_(18) set packetSize_ 512
$cbr_(18) set interval_ 0.1
$cbr_(18) set random_ 1
$cbr_(18) set maxpkts_ 2500
$cbr_(18) set sport_ 1
$ns_ at 40 "$cbr_(18) start"

# Q6 : 28-36
set cbr_(19) [$ns_ create-connection  CBR $node_(28) CBR $node_(36) 0]
$cbr_(19) set packetSize_ 512
$cbr_(19) set interval_ 0.1
$cbr_(19) set random_ 1
$cbr_(19) set maxpkts_ 2500
$cbr_(19) set sport_ 1
$ns_ at 40 "$cbr_(19) start"