etx_probes.tcl

thomson_mesh_modules_Enhanced Wireless Mesh Networking for ns-2 simulator

# READING ETX specific info on TRAFFIC agents, ARF, ROUTING
# PROBE Agents

# nhbr of $node_(0) is $node_(10)
set ping0 [new Agent/Ping]
$ns_ attach-agent $node_(0) $ping0
set ping_rcvr0 [new Agent/Ping]
$ns_ attach-agent $node_(10) $ping_rcvr0
$ns_ connect $ping0 $ping_rcvr0

# nhbr of $node_(1) is $node_(11)
set ping1 [new Agent/Ping]
$ns_ attach-agent $node_(1) $ping1
set ping_rcvr1 [new Agent/Ping]
$ns_ attach-agent $node_(11) $ping_rcvr1
$ns_ connect $ping1 $ping_rcvr1

# nhbr of $node_(2) is $node_(3)
set ping2 [new Agent/Ping]
$ns_ attach-agent $node_(2) $ping2
set ping_rcvr2 [new Agent/Ping]
$ns_ attach-agent $node_(3) $ping_rcvr2
$ns_ connect $ping2 $ping_rcvr2

# nhbr of $node_(3) is $node_(13)
set ping3 [new Agent/Ping]
$ns_ attach-agent $node_(3) $ping3
set ping_rcvr3 [new Agent/Ping]
$ns_ attach-agent $node_(13) $ping_rcvr3
$ns_ connect $ping3 $ping_rcvr3

# nhbr of $node_(4) is $node_(5)
set ping4 [new Agent/Ping]
$ns_ attach-agent $node_(4) $ping4
set ping_rcvr4 [new Agent/Ping]
$ns_ attach-agent $node_(5) $ping_rcvr4
$ns_ connect $ping4 $ping_rcvr4

# nhbr of $node_(5) is $node_(4)
set ping5 [new Agent/Ping]
$ns_ attach-agent $node_(5) $ping5
set ping_rcvr5 [new Agent/Ping]
$ns_ attach-agent $node_(4) $ping_rcvr5
$ns_ connect $ping5 $ping_rcvr5

# nhbr of $node_(6) is $node_(16)
set ping6 [new Agent/Ping]
$ns_ attach-agent $node_(6) $ping6
set ping_rcvr6 [new Agent/Ping]
$ns_ attach-agent $node_(16) $ping_rcvr6
$ns_ connect $ping6 $ping_rcvr6

# nhbr of $node_(7) is $node_(8)
set ping7 [new Agent/Ping]
$ns_ attach-agent $node_(7) $ping7
set ping_rcvr7 [new Agent/Ping]
$ns_ attach-agent $node_(8) $ping_rcvr7
$ns_ connect $ping7 $ping_rcvr7

# nhbr of $node_(8) is $node_(18)
set ping8 [new Agent/Ping]
$ns_ attach-agent $node_(8) $ping8
set ping_rcvr8 [new Agent/Ping]
$ns_ attach-agent $node_(18) $ping_rcvr8
$ns_ connect $ping8 $ping_rcvr8

# nhbr of $node_(9) is $node_(8)
set ping9 [new Agent/Ping]
$ns_ attach-agent $node_(9) $ping9
set ping_rcvr9 [new Agent/Ping]
$ns_ attach-agent $node_(8) $ping_rcvr9
$ns_ connect $ping9 $ping_rcvr9

# nhbr of $node_(10) is $node_(0)
set ping10 [new Agent/Ping]
$ns_ attach-agent $node_(10) $ping10
set ping_rcvr10 [new Agent/Ping]
$ns_ attach-agent $node_(0) $ping_rcvr10
$ns_ connect $ping10 $ping_rcvr10

# nhbr of $node_(11) is $node_(1)
set ping11 [new Agent/Ping]
$ns_ attach-agent $node_(11) $ping11
set ping_rcvr11 [new Agent/Ping]
$ns_ attach-agent $node_(1) $ping_rcvr11
$ns_ connect $ping11 $ping_rcvr11

# nhbr of $node_(12) is $node_(13)
set ping12 [new Agent/Ping]
$ns_ attach-agent $node_(12) $ping12
set ping_rcvr12 [new Agent/Ping]
$ns_ attach-agent $node_(13) $ping_rcvr12
$ns_ connect $ping12 $ping_rcvr12

# nhbr of $node_(13) is $node_(3)
set ping13 [new Agent/Ping]
$ns_ attach-agent $node_(13) $ping13
set ping_rcvr13 [new Agent/Ping]
$ns_ attach-agent $node_(3) $ping_rcvr13
$ns_ connect $ping13 $ping_rcvr13

# nhbr of $node_(14) is $node_(23)
set ping14 [new Agent/Ping]
$ns_ attach-agent $node_(14) $ping14
set ping_rcvr14 [new Agent/Ping]
$ns_ attach-agent $node_(23) $ping_rcvr14
$ns_ connect $ping14 $ping_rcvr14

# nhbr of $node_(15) is $node_(25)
set ping15 [new Agent/Ping]
$ns_ attach-agent $node_(15) $ping15
set ping_rcvr15 [new Agent/Ping]
$ns_ attach-agent $node_(25) $ping_rcvr15
$ns_ connect $ping15 $ping_rcvr15

# nhbr of $node_(16) is $node_(6)
set ping16 [new Agent/Ping]
$ns_ attach-agent $node_(16) $ping16
set ping_rcvr16 [new Agent/Ping]
$ns_ attach-agent $node_(6) $ping_rcvr16
$ns_ connect $ping16 $ping_rcvr16

# nhbr of $node_(17) is $node_(27)
set ping17 [new Agent/Ping]
$ns_ attach-agent $node_(17) $ping17
set ping_rcvr17 [new Agent/Ping]
$ns_ attach-agent $node_(27) $ping_rcvr17
$ns_ connect $ping17 $ping_rcvr17

# nhbr of $node_(18) is $node_(19)
set ping18 [new Agent/Ping]
$ns_ attach-agent $node_(18) $ping18
set ping_rcvr18 [new Agent/Ping]
$ns_ attach-agent $node_(19) $ping_rcvr18
$ns_ connect $ping18 $ping_rcvr18

# nhbr of $node_(19) is $node_(18)
set ping19 [new Agent/Ping]
$ns_ attach-agent $node_(19) $ping19
set ping_rcvr19 [new Agent/Ping]
$ns_ attach-agent $node_(18) $ping_rcvr19
$ns_ connect $ping19 $ping_rcvr19

# nhbr of $node_(20) is $node_(30)
set ping20 [new Agent/Ping]
$ns_ attach-agent $node_(20) $ping20
set ping_rcvr20 [new Agent/Ping]
$ns_ attach-agent $node_(30) $ping_rcvr20
$ns_ connect $ping20 $ping_rcvr20

# nhbr of $node_(21) is $node_(20)
set ping21 [new Agent/Ping]
$ns_ attach-agent $node_(21) $ping21
set ping_rcvr21 [new Agent/Ping]
$ns_ attach-agent $node_(20) $ping_rcvr21
$ns_ connect $ping21 $ping_rcvr21

# nhbr of $node_(22) is $node_(12)
set ping22 [new Agent/Ping]
$ns_ attach-agent $node_(22) $ping22
set ping_rcvr22 [new Agent/Ping]
$ns_ attach-agent $node_(12) $ping_rcvr22
$ns_ connect $ping22 $ping_rcvr22

# nhbr of $node_(23) is $node_(14)
set ping23 [new Agent/Ping]
$ns_ attach-agent $node_(23) $ping23
set ping_rcvr23 [new Agent/Ping]
$ns_ attach-agent $node_(14) $ping_rcvr23
$ns_ connect $ping23 $ping_rcvr23

# nhbr of $node_(24) is $node_(34)
set ping24 [new Agent/Ping]
$ns_ attach-agent $node_(24) $ping24
set ping_rcvr24 [new Agent/Ping]
$ns_ attach-agent $node_(34) $ping_rcvr24
$ns_ connect $ping24 $ping_rcvr24

# nhbr of $node_(25) is $node_(15)
set ping25 [new Agent/Ping]
$ns_ attach-agent $node_(25) $ping25
set ping_rcvr25 [new Agent/Ping]
$ns_ attach-agent $node_(15) $ping_rcvr25
$ns_ connect $ping25 $ping_rcvr25

# nhbr of $node_(26) is $node_(16)
set ping26 [new Agent/Ping]
$ns_ attach-agent $node_(26) $ping26
set ping_rcvr26 [new Agent/Ping]
$ns_ attach-agent $node_(16) $ping_rcvr26
$ns_ connect $ping26 $ping_rcvr26

# nhbr of $node_(27) is $node_(37)
set ping27 [new Agent/Ping]
$ns_ attach-agent $node_(27) $ping27
set ping_rcvr27 [new Agent/Ping]
$ns_ attach-agent $node_(37) $ping_rcvr27
$ns_ connect $ping27 $ping_rcvr27

# nhbr of $node_(28) is $node_(29)
set ping28 [new Agent/Ping]
$ns_ attach-agent $node_(28) $ping28
set ping_rcvr28 [new Agent/Ping]
$ns_ attach-agent $node_(29) $ping_rcvr28
$ns_ connect $ping28 $ping_rcvr28

# nhbr of $node_(29) is $node_(28)
set ping29 [new Agent/Ping]
$ns_ attach-agent $node_(29) $ping29
set ping_rcvr29 [new Agent/Ping]
$ns_ attach-agent $node_(28) $ping_rcvr29
$ns_ connect $ping29 $ping_rcvr29

# nhbr of $node_(30) is $node_(20)
set ping30 [new Agent/Ping]
$ns_ attach-agent $node_(30) $ping30
set ping_rcvr30 [new Agent/Ping]
$ns_ attach-agent $node_(20) $ping_rcvr30
$ns_ connect $ping30 $ping_rcvr30

# nhbr of $node_(31) is $node_(40)
set ping31 [new Agent/Ping]
$ns_ attach-agent $node_(31) $ping31
set ping_rcvr31 [new Agent/Ping]
$ns_ attach-agent $node_(40) $ping_rcvr31
$ns_ connect $ping31 $ping_rcvr31

# nhbr of $node_(32) is $node_(42)
set ping32 [new Agent/Ping]
$ns_ attach-agent $node_(32) $ping32
set ping_rcvr32 [new Agent/Ping]
$ns_ attach-agent $node_(42) $ping_rcvr32
$ns_ connect $ping32 $ping_rcvr32

# nhbr of $node_(33) is $node_(43)
set ping33 [new Agent/Ping]
$ns_ attach-agent $node_(33) $ping33
set ping_rcvr33 [new Agent/Ping]
$ns_ attach-agent $node_(43) $ping_rcvr33
$ns_ connect $ping33 $ping_rcvr33

# nhbr of $node_(34) is $node_(24)
set ping34 [new Agent/Ping]
$ns_ attach-agent $node_(34) $ping34
set ping_rcvr34 [new Agent/Ping]
$ns_ attach-agent $node_(24) $ping_rcvr34
$ns_ connect $ping34 $ping_rcvr34

# nhbr of $node_(35) is $node_(34)
set ping35 [new Agent/Ping]
$ns_ attach-agent $node_(35) $ping35
set ping_rcvr35 [new Agent/Ping]
$ns_ attach-agent $node_(34) $ping_rcvr35
$ns_ connect $ping35 $ping_rcvr35

# nhbr of $node_(36) is $node_(45)
set ping36 [new Agent/Ping]
$ns_ attach-agent $node_(36) $ping36
set ping_rcvr36 [new Agent/Ping]
$ns_ attach-agent $node_(45) $ping_rcvr36
$ns_ connect $ping36 $ping_rcvr36

# nhbr of $node_(37) is $node_(38)
set ping37 [new Agent/Ping]
$ns_ attach-agent $node_(37) $ping37
set ping_rcvr37 [new Agent/Ping]
$ns_ attach-agent $node_(38) $ping_rcvr37
$ns_ connect $ping37 $ping_rcvr37

# nhbr of $node_(38) is $node_(37)
set ping38 [new Agent/Ping]
$ns_ attach-agent $node_(38) $ping38
set ping_rcvr38 [new Agent/Ping]
$ns_ attach-agent $node_(37) $ping_rcvr38
$ns_ connect $ping38 $ping_rcvr38

# nhbr of $node_(39) is $node_(38)
set ping39 [new Agent/Ping]
$ns_ attach-agent $node_(39) $ping39
set ping_rcvr39 [new Agent/Ping]
$ns_ attach-agent $node_(38) $ping_rcvr39
$ns_ connect $ping39 $ping_rcvr39

# nhbr of $node_(40) is $node_(41)
set ping40 [new Agent/Ping]
$ns_ attach-agent $node_(40) $ping40
set ping_rcvr40 [new Agent/Ping]
$ns_ attach-agent $node_(41) $ping_rcvr40
$ns_ connect $ping40 $ping_rcvr40

# nhbr of $node_(41) is $node_(51)
set ping41 [new Agent/Ping]
$ns_ attach-agent $node_(41) $ping41
set ping_rcvr41 [new Agent/Ping]
$ns_ attach-agent $node_(51) $ping_rcvr41
$ns_ connect $ping41 $ping_rcvr41

# nhbr of $node_(42) is $node_(43)
set ping42 [new Agent/Ping]
$ns_ attach-agent $node_(42) $ping42
set ping_rcvr42 [new Agent/Ping]
$ns_ attach-agent $node_(43) $ping_rcvr42
$ns_ connect $ping42 $ping_rcvr42

# nhbr of $node_(43) is $node_(42)
set ping43 [new Agent/Ping]
$ns_ attach-agent $node_(43) $ping43
set ping_rcvr43 [new Agent/Ping]
$ns_ attach-agent $node_(42) $ping_rcvr43
$ns_ connect $ping43 $ping_rcvr43

# nhbr of $node_(44) is $node_(45)
set ping44 [new Agent/Ping]
$ns_ attach-agent $node_(44) $ping44
set ping_rcvr44 [new Agent/Ping]
$ns_ attach-agent $node_(45) $ping_rcvr44
$ns_ connect $ping44 $ping_rcvr44

# nhbr of $node_(45) is $node_(46)
set ping45 [new Agent/Ping]
$ns_ attach-agent $node_(45) $ping45
set ping_rcvr45 [new Agent/Ping]
$ns_ attach-agent $node_(46) $ping_rcvr45
$ns_ connect $ping45 $ping_rcvr45

# nhbr of $node_(46) is $node_(45)
set ping46 [new Agent/Ping]
$ns_ attach-agent $node_(46) $ping46
set ping_rcvr46 [new Agent/Ping]
$ns_ attach-agent $node_(45) $ping_rcvr46
$ns_ connect $ping46 $ping_rcvr46

# nhbr of $node_(47) is $node_(37)
set ping47 [new Agent/Ping]
$ns_ attach-agent $node_(47) $ping47
set ping_rcvr47 [new Agent/Ping]
$ns_ attach-agent $node_(37) $ping_rcvr47
$ns_ connect $ping47 $ping_rcvr47

# nhbr of $node_(48) is $node_(49)
set ping48 [new Agent/Ping]
$ns_ attach-agent $node_(48) $ping48
set ping_rcvr48 [new Agent/Ping]
$ns_ attach-agent $node_(49) $ping_rcvr48
$ns_ connect $ping48 $ping_rcvr48

# nhbr of $node_(49) is $node_(48)
set ping49 [new Agent/Ping]
$ns_ attach-agent $node_(49) $ping49
set ping_rcvr49 [new Agent/Ping]
$ns_ attach-agent $node_(48) $ping_rcvr49
$ns_ connect $ping49 $ping_rcvr49

# nhbr of $node_(50) is $node_(51)
set ping50 [new Agent/Ping]
$ns_ attach-agent $node_(50) $ping50
set ping_rcvr50 [new Agent/Ping]
$ns_ attach-agent $node_(51) $ping_rcvr50
$ns_ connect $ping50 $ping_rcvr50

# nhbr of $node_(51) is $node_(41)
set ping51 [new Agent/Ping]
$ns_ attach-agent $node_(51) $ping51
set ping_rcvr51 [new Agent/Ping]
$ns_ attach-agent $node_(41) $ping_rcvr51
$ns_ connect $ping51 $ping_rcvr51

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

# nhbr of $node_(53) is $node_(54)
set ping53 [new Agent/Ping]
$ns_ attach-agent $node_(53) $ping53
set ping_rcvr53 [new Agent/Ping]
$ns_ attach-agent $node_(54) $ping_rcvr53
$ns_ connect $ping53 $ping_rcvr53

# nhbr of $node_(54) is $node_(64)
set ping54 [new Agent/Ping]
$ns_ attach-agent $node_(54) $ping54
set ping_rcvr54 [new Agent/Ping]
$ns_ attach-agent $node_(64) $ping_rcvr54
$ns_ connect $ping54 $ping_rcvr54

# nhbr of $node_(55) is $node_(56)
set ping55 [new Agent/Ping]
$ns_ attach-agent $node_(55) $ping55
set ping_rcvr55 [new Agent/Ping]
$ns_ attach-agent $node_(56) $ping_rcvr55
$ns_ connect $ping55 $ping_rcvr55

# nhbr of $node_(56) is $node_(55)
set ping56 [new Agent/Ping]
$ns_ attach-agent $node_(56) $ping56
set ping_rcvr56 [new Agent/Ping]
$ns_ attach-agent $node_(55) $ping_rcvr56
$ns_ connect $ping56 $ping_rcvr56

# nhbr of $node_(57) is $node_(58)
set ping57 [new Agent/Ping]
$ns_ attach-agent $node_(57) $ping57
set ping_rcvr57 [new Agent/Ping]
$ns_ attach-agent $node_(58) $ping_rcvr57
$ns_ connect $ping57 $ping_rcvr57

# nhbr of $node_(58) is $node_(48)
set ping58 [new Agent/Ping]
$ns_ attach-agent $node_(58) $ping58
set ping_rcvr58 [new Agent/Ping]