1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
#
# simple gear/push example
# This example tests directed diffusion in a 5 node scenario with a single sender and a single recvr using gear app with push rtg algorithm
#
# ==================================================================
# Define options
# ===================================================================
set opt(chan) Channel/WirelessChannel
set opt(prop) Propagation/TwoRayGround
set opt(netif) Phy/WirelessPhy
set opt(mac) Mac/802_11
set opt(ifq) Queue/DropTail/PriQueue
set opt(ll) LL
set opt(ant) Antenna/OmniAntenna
set opt(filters) GradientFilter/GeoRoutingFilter ;# old name for twophasepull filter
set opt(x) 670 ;# X dimension of the topography
set opt(y) 670 ;# Y dimension of the topography
set opt(ifqlen) 50 ;# max packet in ifq
set opt(nn) 5 ;# number of nodes
set opt(seed) 0.0
set opt(stop) 500 ;# simulation time
set opt(prestop) 499 ;# time to prepare to stop
set opt(tr) "gear-push-5n-1s-1r.tr" ;# trace file
set opt(nam) "gear-push-5n-1s-1r.nam" ;# nam file
set opt(adhocRouting) Directed_Diffusion
# ==================================================================
LL set mindelay_ 50us
LL set delay_ 25us
LL set bandwidth_ 0 ;# not used
Queue/DropTail/PriQueue set Prefer_Routing_Protocols 1
# unity gain, omni-directional antennas
# set up the antennas to be centered in the node and 1.5 meters above it
Antenna/OmniAntenna set X_ 0
Antenna/OmniAntenna set Y_ 0
Antenna/OmniAntenna set Z_ 1.5
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0
# Initialize the SharedMedia interface with parameters to make
# it work like the 914MHz Lucent WaveLAN DSSS radio interface
Phy/WirelessPhy set CPThresh_ 10.0
Phy/WirelessPhy set CSThresh_ 1.559e-11
Phy/WirelessPhy set RXThresh_ 3.652e-10
Phy/WirelessPhy set Rb_ 2*1e6
Phy/WirelessPhy set Pt_ 0.2818
Phy/WirelessPhy set freq_ 914e+6
Phy/WirelessPhy set L_ 1.0
# ==================================================================
# Main Program
# =================================================================
#
# Initialize Global Variables
#
set ns_ [new Simulator]
set topo [new Topography]
set tracefd [open $opt(tr) w]
$ns_ trace-all $tracefd
set nf [open $opt(nam) w]
$ns_ namtrace-all-wireless $nf $opt(x) $opt(y)
#$ns_ use-newtrace
$topo load_flatgrid $opt(x) $opt(y)
set god_ [create-god $opt(nn)]
# log the mobile nodes movements if desired
#if { $opt(lm) == "on" } {
# log-movement
#}
#global node setting
$ns_ node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
-macType $opt(mac) \
-ifqType $opt(ifq) \
-ifqLen $opt(ifqlen) \
-antType $opt(ant) \
-propType $opt(prop) \
-phyType $opt(netif) \
-channelType $opt(chan) \
-topoInstance $topo \
-diffusionFilter $opt(filters) \
-agentTrace OFF \
-routerTrace OFF \
-macTrace ON
# Create the specified number of nodes [$opt(nn)] and "attach" them
# to the channel.
for {set i 0} {$i < $opt(nn) } {incr i} {
set node_($i) [$ns_ node $i]
$node_($i) color black
$node_($i) random-motion 0 ;# disable random motion
$god_ new_node $node_($i)
}
puts "Loading connection pattern..."
$node_(0) set X_ 618.716707738489
$node_(0) set Y_ 620.707335765875
$node_(0) set Z_ 0.000000000000
$node_(1) set X_ 524.192740186325
$node_(1) set Y_ 540.384818286195
$node_(1) set Z_ 0.000000000000
$node_(2) set X_ 406.438972165239
$node_(2) set Y_ 425.843469852367
$node_(2) set Z_ 0.000000000000
$node_(3) set X_ 320.192740186325
$node_(3) set Y_ 350.384818286195
$node_(3) set Z_ 0.000000000000
$node_(4) set X_ 177.438972165239
$node_(4) set Y_ 145.843469852367
$node_(4) set Z_ 0.000000000000
# starting gear filter separately
for {set i 0} {$i < $opt(nn)} {incr i} {
set gearf($i) [new Application/DiffApp/GeoRoutingFilter \
[$node_($i) get-dr]]
$gearf($i) start
}
# 1 ping sender
set src_(0) [new Application/DiffApp/GearSenderApp]
$ns_ attach-diffapp $node_(0) $src_(0)
$src_(0) push-pull-options push region 100 650 100 650
$ns_ at 0.123 "$src_(0) publish"
# 1 ping receiver
set snk_(0) [new Application/DiffApp/GearReceiverApp]
$ns_ attach-diffapp $node_(4) $snk_(0)
$snk_(0) push-pull-options push point 177.438 145.843
$ns_ at 1.456 "$snk_(0) subscribe"
# Define node initial position in nam
for {set i 0} {$i < $opt(nn)} {incr i} {
# 20 defines the node size in nam, must adjust it according to your scenario
# The function must be called after mobility model is defined
$ns_ initial_node_pos $node_($i) 20
}
#
# Tell nodes when the simulation ends
#
for {set i 0} {$i < $opt(nn) } {incr i} {
$ns_ at $opt(stop).000000001 "$node_($i) reset";
}
# tell nam the simulation stop time
$ns_ at $opt(stop) "$ns_ nam-end-wireless $opt(stop)"
$ns_ at $opt(stop).000000001 "puts \"NS EXITING...\" ; $ns_ halt"
puts $tracefd "Directed Diffusion:2PP/5nodes/1sender/1rcvr"
puts $tracefd "M 0.0 nn $opt(nn) x $opt(x) y $opt(y)"
puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"
puts "Starting Simulation..."
$ns_ run
|
