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
|
# test for memory usage for 1000 node hier topology using session sim
set ns [new SessionSim]
$ns set-address-format hierarchical
source ./hts1000.tcl
set linkBW 5Mb
global n ns
$ns namtrace-all [open session-hier-1000.nam w]
create-hier-topology $linkBW
set udp [new Agent/UDP]
$ns attach-agent $n(500) $udp
set cbr [new Application/Traffic/CBR]
$cbr attach-agent $udp
$udp set dst_ 0x8002
$ns create-session $n(500) $udp
set rcvr0 [new Agent/LossMonitor]
set rcvr1 [new Agent/LossMonitor]
set rcvr2 [new Agent/LossMonitor]
$ns attach-agent $n(0) $rcvr0
$ns attach-agent $n(1) $rcvr1
$ns attach-agent $n(2) $rcvr2
$ns at 0.2 "$n(0) join-group $rcvr0 0x8002"
$ns at 0.2 "$n(1) join-group $rcvr1 0x8002"
$ns at 0.2 "$n(2) join-group $rcvr2 0x8002"
$ns at 1.0 "$cbr start"
$ns at 3.0 "finish"
proc finish {} {
global ns
$ns flush-trace
puts "running nam..."
exec nam out.nam &
exit 0
}
$ns run
|
