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
|
#
# A 1 phase pull example
# This example tests directed diffusion in a 5 node scenario with 1 sender
# and 1 recvr
#
# ==================================================================
# 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) OnePhasePullFilter
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(sndr) 1 ;# no of senders
set opt(rcvr) 1 ;# no of recvrs
set opt(seed) 0.0
set opt(stop) 500 ;# simulation time
set opt(prestop) 499 ;# time to prepare to stop
set opt(tr) "1pp-5n-1s-1r.tr" ;# trace file
set opt(nam) "1pp-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 ON \
-routerTrace ON \
-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_ 18.587605569735
$node_(0) set Y_ 401.886827012678
$node_(0) set Z_ 0.000000000000
$node_(1) set X_ 11.901958617639
$node_(1) set Y_ 36.218497218617
$node_(1) set Z_ 0.000000000000
$node_(2) set X_ 224.282785411393
$node_(2) set Y_ 20.774608253697
$node_(2) set Z_ 0.000000000000
$node_(3) set X_ 158.840938304009
$node_(3) set Y_ 139.650216383776
$node_(3) set Z_ 0.000000000000
$node_(4) set X_ 101.186886005903
$node_(4) set Y_ 147.993190973633
$node_(4) set Z_ 0.000000000000
# 1 ping sender
for {set i 0} {$i < $opt(sndr)} {incr i} {
set src_($i) [new Application/DiffApp/PingSender/OPP]
$ns_ attach-diffapp $node_([expr $i + 1]) $src_($i)
$ns_ at [expr 0.123 * [expr 1+$i]] "$src_($i) publish"
}
# 1 ping receiver
for {set i 0} {$i < $opt(rcvr)} {incr i} {
set snk_($i) [new Application/DiffApp/PingReceiver/OPP]
$ns_ attach-diffapp $node_([expr $opt(nn)-1 -$i]) $snk_($i)
$ns_ at [expr 1.156*[expr 1+$i]] "$snk_($i) 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:$opt(filters)"
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
|
