scipt ns2 sous ubuntu 10.04

[kakachix]

Salut
SVP j'ai besoin d'un coup de main,je n'arrive pas a faire fonctionner un script tcl qui relie deux noeud en wifi .quand j'execute le script la fenetre NAM s'ouvre mais elle est vide , je ne voit aucun noeud desiner , si je clic sur play pour commencer la simulation , la fenetre se referme .

voici mon script si quelqu'un a une proposition a me faire .

Code :

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
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
# ======================================================================
 
# Define options
 
# ======================================================================
 
set val(chan)           Channel/WirelessChannel    ;# channel type
 
set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
 
set val(netif)          Phy/WirelessPhy            ;# network interface type
 
set val(mac)            Mac/802_11                 ;# MAC type
 
set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
 
set val(ll)             LL                         ;# link layer type
 
set val(ant)            Antenna/OmniAntenna        ;# antenna model
 
set val(ifqlen)         50                         ;# max packet in ifq
 
set val(nn)             2                          ;# number of mobilenodes
 
set val(rp)             DSDV                       ;# routing protocol
 
 
 
# ======================================================================
 
# Main Program
 
# ======================================================================
 
 
 
 
 
#
 
# Initialize Global Variables
 
#
 
set ns_		[new Simulator]
 
set nf          [open simple.nam w]
 
$ns_ namtrace-all $nf
 
set tracefd     [open simple.tr w]
 
$ns_ trace-all $tracefd
 
 
 
# set up topography object
 
set topo       [new Topography]
 
 
 
$topo load_flatgrid 500 500
 
 
 
#
 
# Create God
 
#
 
create-god $val(nn)
 
 
 
#
 
#  Create the specified number of mobilenodes [$val(nn)] and "attach" them
 
#  to the channel. 
 
#  Here two nodes are created : node(0) and node(1)
 
 
 
# configure node
 
 
 
        $ns_ node-config -adhocRouting $val(rp) \
 
			 -llType $val(ll) \
 
			 -macType $val(mac) \
 
			 -ifqType $val(ifq) \
 
			 -ifqLen $val(ifqlen) \
 
			 -antType $val(ant) \
 
			 -propType $val(prop) \
 
			 -phyType $val(netif) \
 
			 -channelType $val(chan) \
 
			 -topoInstance $topo \
 
			 -agentTrace ON \
 
			 -routerTrace ON \
 
			 -macTrace OFF \
 
			 -movementTrace OFF			
 
 
 
	for {set i 0} {$i < $val(nn) } {incr i} {
 
		set node_($i) [$ns_ node]	
 
		$node_($i) random-motion 0		;# disable random motion
 
	}
 
 
 
#
 
# Provide initial (X,Y, for now Z=0) co-ordinates for mobilenodes
 
#
 
$node_(0) set X_ 5.0
 
$node_(0) set Y_ 2.0
 
$node_(0) set Z_ 0.0
 
 
 
$node_(1) set X_ 390.0
 
$node_(1) set Y_ 385.0
 
$node_(1) set Z_ 0.0
 
 
 
#
 
# Now produce some simple node movements
 
# Node_(1) starts to move towards node_(0)
 
#
 
$ns_ at 50.0 "$node_(1) setdest 25.0 20.0 15.0"
 
$ns_ at 10.0 "$node_(0) setdest 20.0 18.0 1.0"
 
 
 
# Node_(1) then starts to move away from node_(0)
 
$ns_ at 100.0 "$node_(1) setdest 490.0 480.0 15.0" 
 
 
 
# Setup traffic flow between nodes
 
# TCP connections between node_(0) and node_(1)
 
 
 
set tcp [new Agent/TCP]
 
$tcp set class_ 2
 
set sink [new Agent/TCPSink]
 
$ns_ attach-agent $node_(0) $tcp
 
$ns_ attach-agent $node_(1) $sink
 
$ns_ connect $tcp $sink
 
set ftp [new Application/FTP]
 
$ftp attach-agent $tcp
 
$ns_ at 10.0 "$ftp start" 
 
 
 
#
 
# Tell nodes when the simulation ends
 
#
 
for {set i 0} {$i < $val(nn) } {incr i} {
 
    $ns_ at 150.0 "$node_($i) reset";
 
}
 
$ns_ at 150.0 "stop"
 
$ns_ at 150.01 "puts \"NS EXITING...\" ; $ns_ halt"
 
proc stop {} {
 
    global ns_ nf
 
 close $nf
 
    $ns_ flush-trace
 
exec nam simple.nam &
 
exit 0    
 
}
 
 
 
puts "Starting Simulation..."
 
$ns_ run