etx_probes.tcl

thomson_mesh_modules_Enhanced Wireless Mesh Networking for ns-2 simulator

$ns_ attach-agent $node_(48) $ping_rcvr58
$ns_ connect $ping58 $ping_rcvr58

# nhbr of $node_(59) is $node_(69)
set ping59 [new Agent/Ping]
$ns_ attach-agent $node_(59) $ping59
set ping_rcvr59 [new Agent/Ping]
$ns_ attach-agent $node_(69) $ping_rcvr59
$ns_ connect $ping59 $ping_rcvr59

# nhbr of $node_(60) is $node_(50)
set ping60 [new Agent/Ping]
$ns_ attach-agent $node_(60) $ping60
set ping_rcvr60 [new Agent/Ping]
$ns_ attach-agent $node_(50) $ping_rcvr60
$ns_ connect $ping60 $ping_rcvr60

# nhbr of $node_(61) is $node_(71)
set ping61 [new Agent/Ping]
$ns_ attach-agent $node_(61) $ping61
set ping_rcvr61 [new Agent/Ping]
$ns_ attach-agent $node_(71) $ping_rcvr61
$ns_ connect $ping61 $ping_rcvr61

# nhbr of $node_(62) is $node_(52)
set ping62 [new Agent/Ping]
$ns_ attach-agent $node_(62) $ping62
set ping_rcvr62 [new Agent/Ping]
$ns_ attach-agent $node_(52) $ping_rcvr62
$ns_ connect $ping62 $ping_rcvr62

# nhbr of $node_(63) is $node_(64)
set ping63 [new Agent/Ping]
$ns_ attach-agent $node_(63) $ping63
set ping_rcvr63 [new Agent/Ping]
$ns_ attach-agent $node_(64) $ping_rcvr63
$ns_ connect $ping63 $ping_rcvr63

# nhbr of $node_(64) is $node_(63)
set ping64 [new Agent/Ping]
$ns_ attach-agent $node_(64) $ping64
set ping_rcvr64 [new Agent/Ping]
$ns_ attach-agent $node_(63) $ping_rcvr64
$ns_ connect $ping64 $ping_rcvr64

# nhbr of $node_(65) is $node_(55)
set ping65 [new Agent/Ping]
$ns_ attach-agent $node_(65) $ping65
set ping_rcvr65 [new Agent/Ping]
$ns_ attach-agent $node_(55) $ping_rcvr65
$ns_ connect $ping65 $ping_rcvr65

# nhbr of $node_(66) is $node_(65)
set ping66 [new Agent/Ping]
$ns_ attach-agent $node_(66) $ping66
set ping_rcvr66 [new Agent/Ping]
$ns_ attach-agent $node_(65) $ping_rcvr66
$ns_ connect $ping66 $ping_rcvr66

# nhbr of $node_(67) is $node_(68)
set ping67 [new Agent/Ping]
$ns_ attach-agent $node_(67) $ping67
set ping_rcvr67 [new Agent/Ping]
$ns_ attach-agent $node_(68) $ping_rcvr67
$ns_ connect $ping67 $ping_rcvr67

# nhbr of $node_(68) is $node_(67)
set ping68 [new Agent/Ping]
$ns_ attach-agent $node_(68) $ping68
set ping_rcvr68 [new Agent/Ping]
$ns_ attach-agent $node_(67) $ping_rcvr68
$ns_ connect $ping68 $ping_rcvr68

# nhbr of $node_(69) is $node_(59)
set ping69 [new Agent/Ping]
$ns_ attach-agent $node_(69) $ping69
set ping_rcvr69 [new Agent/Ping]
$ns_ attach-agent $node_(59) $ping_rcvr69
$ns_ connect $ping69 $ping_rcvr69

# nhbr of $node_(70) is $node_(71)
set ping70 [new Agent/Ping]
$ns_ attach-agent $node_(70) $ping70
set ping_rcvr70 [new Agent/Ping]
$ns_ attach-agent $node_(71) $ping_rcvr70
$ns_ connect $ping70 $ping_rcvr70

# nhbr of $node_(71) is $node_(70)
set ping71 [new Agent/Ping]
$ns_ attach-agent $node_(71) $ping71
set ping_rcvr71 [new Agent/Ping]
$ns_ attach-agent $node_(70) $ping_rcvr71
$ns_ connect $ping71 $ping_rcvr71

# nhbr of $node_(72) is $node_(82)
set ping72 [new Agent/Ping]
$ns_ attach-agent $node_(72) $ping72
set ping_rcvr72 [new Agent/Ping]
$ns_ attach-agent $node_(82) $ping_rcvr72
$ns_ connect $ping72 $ping_rcvr72

# nhbr of $node_(73) is $node_(83)
set ping73 [new Agent/Ping]
$ns_ attach-agent $node_(73) $ping73
set ping_rcvr73 [new Agent/Ping]
$ns_ attach-agent $node_(83) $ping_rcvr73
$ns_ connect $ping73 $ping_rcvr73

# nhbr of $node_(74) is $node_(64)
set ping74 [new Agent/Ping]
$ns_ attach-agent $node_(74) $ping74
set ping_rcvr74 [new Agent/Ping]
$ns_ attach-agent $node_(64) $ping_rcvr74
$ns_ connect $ping74 $ping_rcvr74

# nhbr of $node_(75) is $node_(85)
set ping75 [new Agent/Ping]
$ns_ attach-agent $node_(75) $ping75
set ping_rcvr75 [new Agent/Ping]
$ns_ attach-agent $node_(85) $ping_rcvr75
$ns_ connect $ping75 $ping_rcvr75

# nhbr of $node_(76) is $node_(86)
set ping76 [new Agent/Ping]
$ns_ attach-agent $node_(76) $ping76
set ping_rcvr76 [new Agent/Ping]
$ns_ attach-agent $node_(86) $ping_rcvr76
$ns_ connect $ping76 $ping_rcvr76

# nhbr of $node_(77) is $node_(87)
set ping77 [new Agent/Ping]
$ns_ attach-agent $node_(77) $ping77
set ping_rcvr77 [new Agent/Ping]
$ns_ attach-agent $node_(87) $ping_rcvr77
$ns_ connect $ping77 $ping_rcvr77

# nhbr of $node_(78) is $node_(77)
set ping78 [new Agent/Ping]
$ns_ attach-agent $node_(78) $ping78
set ping_rcvr78 [new Agent/Ping]
$ns_ attach-agent $node_(77) $ping_rcvr78
$ns_ connect $ping78 $ping_rcvr78

# nhbr of $node_(79) is $node_(89)
set ping79 [new Agent/Ping]
$ns_ attach-agent $node_(79) $ping79
set ping_rcvr79 [new Agent/Ping]
$ns_ attach-agent $node_(89) $ping_rcvr79
$ns_ connect $ping79 $ping_rcvr79

# nhbr of $node_(80) is $node_(81)
set ping80 [new Agent/Ping]
$ns_ attach-agent $node_(80) $ping80
set ping_rcvr80 [new Agent/Ping]
$ns_ attach-agent $node_(81) $ping_rcvr80
$ns_ connect $ping80 $ping_rcvr80

# nhbr of $node_(81) is $node_(80)
set ping81 [new Agent/Ping]
$ns_ attach-agent $node_(81) $ping81
set ping_rcvr81 [new Agent/Ping]
$ns_ attach-agent $node_(80) $ping_rcvr81
$ns_ connect $ping81 $ping_rcvr81

# nhbr of $node_(82) is $node_(72)
set ping82 [new Agent/Ping]
$ns_ attach-agent $node_(82) $ping82
set ping_rcvr82 [new Agent/Ping]
$ns_ attach-agent $node_(72) $ping_rcvr82
$ns_ connect $ping82 $ping_rcvr82

# nhbr of $node_(83) is $node_(73)
set ping83 [new Agent/Ping]
$ns_ attach-agent $node_(83) $ping83
set ping_rcvr83 [new Agent/Ping]
$ns_ attach-agent $node_(73) $ping_rcvr83
$ns_ connect $ping83 $ping_rcvr83

# nhbr of $node_(84) is $node_(94)
set ping84 [new Agent/Ping]
$ns_ attach-agent $node_(84) $ping84
set ping_rcvr84 [new Agent/Ping]
$ns_ attach-agent $node_(94) $ping_rcvr84
$ns_ connect $ping84 $ping_rcvr84

# nhbr of $node_(85) is $node_(75)
set ping85 [new Agent/Ping]
$ns_ attach-agent $node_(85) $ping85
set ping_rcvr85 [new Agent/Ping]
$ns_ attach-agent $node_(75) $ping_rcvr85
$ns_ connect $ping85 $ping_rcvr85

# nhbr of $node_(86) is $node_(76)
set ping86 [new Agent/Ping]
$ns_ attach-agent $node_(86) $ping86
set ping_rcvr86 [new Agent/Ping]
$ns_ attach-agent $node_(76) $ping_rcvr86
$ns_ connect $ping86 $ping_rcvr86

# nhbr of $node_(87) is $node_(77)
set ping87 [new Agent/Ping]
$ns_ attach-agent $node_(87) $ping87
set ping_rcvr87 [new Agent/Ping]
$ns_ attach-agent $node_(77) $ping_rcvr87
$ns_ connect $ping87 $ping_rcvr87

# nhbr of $node_(88) is $node_(89)
set ping88 [new Agent/Ping]
$ns_ attach-agent $node_(88) $ping88
set ping_rcvr88 [new Agent/Ping]
$ns_ attach-agent $node_(89) $ping_rcvr88
$ns_ connect $ping88 $ping_rcvr88

# nhbr of $node_(89) is $node_(88)
set ping89 [new Agent/Ping]
$ns_ attach-agent $node_(89) $ping89
set ping_rcvr89 [new Agent/Ping]
$ns_ attach-agent $node_(88) $ping_rcvr89
$ns_ connect $ping89 $ping_rcvr89

# nhbr of $node_(90) is $node_(80)
set ping90 [new Agent/Ping]
$ns_ attach-agent $node_(90) $ping90
set ping_rcvr90 [new Agent/Ping]
$ns_ attach-agent $node_(80) $ping_rcvr90
$ns_ connect $ping90 $ping_rcvr90

# nhbr of $node_(91) is $node_(90)
set ping91 [new Agent/Ping]
$ns_ attach-agent $node_(91) $ping91
set ping_rcvr91 [new Agent/Ping]
$ns_ attach-agent $node_(90) $ping_rcvr91
$ns_ connect $ping91 $ping_rcvr91

# nhbr of $node_(92) is $node_(93)
set ping92 [new Agent/Ping]
$ns_ attach-agent $node_(92) $ping92
set ping_rcvr92 [new Agent/Ping]
$ns_ attach-agent $node_(93) $ping_rcvr92
$ns_ connect $ping92 $ping_rcvr92

# nhbr of $node_(93) is $node_(94)
set ping93 [new Agent/Ping]
$ns_ attach-agent $node_(93) $ping93
set ping_rcvr93 [new Agent/Ping]
$ns_ attach-agent $node_(94) $ping_rcvr93
$ns_ connect $ping93 $ping_rcvr93

# nhbr of $node_(94) is $node_(84)
set ping94 [new Agent/Ping]
$ns_ attach-agent $node_(94) $ping94
set ping_rcvr94 [new Agent/Ping]
$ns_ attach-agent $node_(84) $ping_rcvr94
$ns_ connect $ping94 $ping_rcvr94

# nhbr of $node_(95) is $node_(96)
set ping95 [new Agent/Ping]
$ns_ attach-agent $node_(95) $ping95
set ping_rcvr95 [new Agent/Ping]
$ns_ attach-agent $node_(96) $ping_rcvr95
$ns_ connect $ping95 $ping_rcvr95

# nhbr of $node_(96) is $node_(95)
set ping96 [new Agent/Ping]
$ns_ attach-agent $node_(96) $ping96
set ping_rcvr96 [new Agent/Ping]
$ns_ attach-agent $node_(95) $ping_rcvr96
$ns_ connect $ping96 $ping_rcvr96

# nhbr of $node_(97) is $node_(96)
set ping97 [new Agent/Ping]
$ns_ attach-agent $node_(97) $ping97
set ping_rcvr97 [new Agent/Ping]
$ns_ attach-agent $node_(96) $ping_rcvr97
$ns_ connect $ping97 $ping_rcvr97

# nhbr of $node_(98) is $node_(99)
set ping98 [new Agent/Ping]
$ns_ attach-agent $node_(98) $ping98
set ping_rcvr98 [new Agent/Ping]
$ns_ attach-agent $node_(99) $ping_rcvr98
$ns_ connect $ping98 $ping_rcvr98

# nhbr of $node_(99) is $node_(98)
set ping99 [new Agent/Ping]
$ns_ attach-agent $node_(99) $ping99
set ping_rcvr99 [new Agent/Ping]
$ns_ attach-agent $node_(98) $ping_rcvr99
$ns_ connect $ping99 $ping_rcvr99



# Just ensure that each node is sending ping to another node
# Capture all the monitored traffic on each node, and infer loss %


# SETTINGS specific to ETX measurement

set opt(ARF)         0; # No auto rate for ETX probes
set opt(INIT_RATE)   0; # Use the lowes rate, 6Mbps for broadcasting
set opt(pingInt)   1.0; # A beacon every 1.0 second

# Broadcast probes from each node.
# Although we generate unicast probes, each node will
# log all the rcvd pkts in its MAC trace. Use this for
# ETX info.


# MAC: Use multi-rate, multi-SINR 802.11g links with ARF

$mac_(0)  setup-link [$mac_(10) id] $opt(ARF) $opt(INIT_RATE)
$mac_(10)  setup-link [$mac_(0) id] $opt(ARF) $opt(INIT_RATE)

$mac_(1)  setup-link [$mac_(11) id] $opt(ARF) $opt(INIT_RATE)
$mac_(11)  setup-link [$mac_(1) id] $opt(ARF) $opt(INIT_RATE)

$mac_(2)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(2) id] $opt(ARF) $opt(INIT_RATE)

$mac_(3)  setup-link [$mac_(13) id] $opt(ARF) $opt(INIT_RATE)
$mac_(13)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)

$mac_(4)  setup-link [$mac_(5) id] $opt(ARF) $opt(INIT_RATE)
$mac_(5)  setup-link [$mac_(4) id] $opt(ARF) $opt(INIT_RATE)

$mac_(5)  setup-link [$mac_(4) id] $opt(ARF) $opt(INIT_RATE)
$mac_(4)  setup-link [$mac_(5) id] $opt(ARF) $opt(INIT_RATE)

$mac_(6)  setup-link [$mac_(16) id] $opt(ARF) $opt(INIT_RATE)
$mac_(16)  setup-link [$mac_(6) id] $opt(ARF) $opt(INIT_RATE)

$mac_(7)  setup-link [$mac_(8) id] $opt(ARF) $opt(INIT_RATE)
$mac_(8)  setup-link [$mac_(7) id] $opt(ARF) $opt(INIT_RATE)

$mac_(8)  setup-link [$mac_(18) id] $opt(ARF) $opt(INIT_RATE)
$mac_(18)  setup-link [$mac_(8) id] $opt(ARF) $opt(INIT_RATE)

$mac_(9)  setup-link [$mac_(8) id] $opt(ARF) $opt(INIT_RATE)
$mac_(8)  setup-link [$mac_(9) id] $opt(ARF) $opt(INIT_RATE)

$mac_(10)  setup-link [$mac_(0) id] $opt(ARF) $opt(INIT_RATE)
$mac_(0)  setup-link [$mac_(10) id] $opt(ARF) $opt(INIT_RATE)

$mac_(11)  setup-link [$mac_(1) id] $opt(ARF) $opt(INIT_RATE)
$mac_(1)  setup-link [$mac_(11) id] $opt(ARF) $opt(INIT_RATE)

$mac_(12)  setup-link [$mac_(13) id] $opt(ARF) $opt(INIT_RATE)
$mac_(13)  setup-link [$mac_(12) id] $opt(ARF) $opt(INIT_RATE)

$mac_(13)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(13) id] $opt(ARF) $opt(INIT_RATE)

$mac_(14)  setup-link [$mac_(23) id] $opt(ARF) $opt(INIT_RATE)
$mac_(23)  setup-link [$mac_(14) id] $opt(ARF) $opt(INIT_RATE)

$mac_(15)  setup-link [$mac_(25) id] $opt(ARF) $opt(INIT_RATE)
$mac_(25)  setup-link [$mac_(15) id] $opt(ARF) $opt(INIT_RATE)

$mac_(16)  setup-link [$mac_(6) id] $opt(ARF) $opt(INIT_RATE)
$mac_(6)  setup-link [$mac_(16) id] $opt(ARF) $opt(INIT_RATE)

$mac_(17)  setup-link [$mac_(27) id] $opt(ARF) $opt(INIT_RATE)
$mac_(27)  setup-link [$mac_(17) id] $opt(ARF) $opt(INIT_RATE)

$mac_(18)  setup-link [$mac_(19) id] $opt(ARF) $opt(INIT_RATE)
$mac_(19)  setup-link [$mac_(18) id] $opt(ARF) $opt(INIT_RATE)

$mac_(19)  setup-link [$mac_(18) id] $opt(ARF) $opt(INIT_RATE)
$mac_(18)  setup-link [$mac_(19) id] $opt(ARF) $opt(INIT_RATE)

$mac_(20)  setup-link [$mac_(30) id] $opt(ARF) $opt(INIT_RATE)
$mac_(30)  setup-link [$mac_(20) id] $opt(ARF) $opt(INIT_RATE)

$mac_(21)  setup-link [$mac_(20) id] $opt(ARF) $opt(INIT_RATE)
$mac_(20)  setup-link [$mac_(21) id] $opt(ARF) $opt(INIT_RATE)

$mac_(22)  setup-link [$mac_(12) id] $opt(ARF) $opt(INIT_RATE)
$mac_(12)  setup-link [$mac_(22) id] $opt(ARF) $opt(INIT_RATE)

$mac_(23)  setup-link [$mac_(14) id] $opt(ARF) $opt(INIT_RATE)
$mac_(14)  setup-link [$mac_(23) id] $opt(ARF) $opt(INIT_RATE)

$mac_(24)  setup-link [$mac_(34) id] $opt(ARF) $opt(INIT_RATE)
$mac_(34)  setup-link [$mac_(24) id] $opt(ARF) $opt(INIT_RATE)

$mac_(25)  setup-link [$mac_(15) id] $opt(ARF) $opt(INIT_RATE)
$mac_(15)  setup-link [$mac_(25) id] $opt(ARF) $opt(INIT_RATE)

$mac_(26)  setup-link [$mac_(16) id] $opt(ARF) $opt(INIT_RATE)
$mac_(16)  setup-link [$mac_(26) id] $opt(ARF) $opt(INIT_RATE)

$mac_(27)  setup-link [$mac_(37) id] $opt(ARF) $opt(INIT_RATE)
$mac_(37)  setup-link [$mac_(27) id] $opt(ARF) $opt(INIT_RATE)

$mac_(28)  setup-link [$mac_(29) id] $opt(ARF) $opt(INIT_RATE)
$mac_(29)  setup-link [$mac_(28) id] $opt(ARF) $opt(INIT_RATE)

$mac_(29)  setup-link [$mac_(28) id] $opt(ARF) $opt(INIT_RATE)
$mac_(28)  setup-link [$mac_(29) id] $opt(ARF) $opt(INIT_RATE)

$mac_(30)  setup-link [$mac_(20) id] $opt(ARF) $opt(INIT_RATE)
$mac_(20)  setup-link [$mac_(30) id] $opt(ARF) $opt(INIT_RATE)

$mac_(31)  setup-link [$mac_(40) id] $opt(ARF) $opt(INIT_RATE)
$mac_(40)  setup-link [$mac_(31) id] $opt(ARF) $opt(INIT_RATE)

$mac_(32)  setup-link [$mac_(42) id] $opt(ARF) $opt(INIT_RATE)
$mac_(42)  setup-link [$mac_(32) id] $opt(ARF) $opt(INIT_RATE)

$mac_(33)  setup-link [$mac_(43) id] $opt(ARF) $opt(INIT_RATE)
$mac_(43)  setup-link [$mac_(33) id] $opt(ARF) $opt(INIT_RATE)

$mac_(34)  setup-link [$mac_(24) id] $opt(ARF) $opt(INIT_RATE)