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
|
source ../lan/vlan.tcl
set opt(tr) out
set opt(namtr) "vlantest-mcst.nam"
set opt(seed) 0
set opt(stop) 0.2
set opt(node) 3
set opt(qsize) 100y
set opt(bw) 20Mb
set opt(delay) 1ms
set opt(ll) LL
set opt(ifq) Queue/DropTail
set opt(mac) Mac/Csma/Cd
set opt(chan) Channel
set opt(tcp) TCP/Reno
set opt(sink) TCPSink
set opt(source) FTP
proc finish {} {
global ns opt
$ns flush-trace
exec nam $opt(namtr) &
exit 0
}
proc create-trace {} {
global ns opt
if [file exists $opt(tr)] {
catch "exec rm -f $opt(tr) $opt(tr)-bw [glob $opt(tr).*]"
}
set trfd [open $opt(tr) w]
$ns trace-all $trfd
if {$opt(namtr) != ""} {
$ns namtrace-all [open $opt(namtr) w]
}
return $trfd
}
proc create-topology {} {
global ns opt
global lan node source node0 nodex nodey
set num $opt(node)
for {set i 0} {$i < $num} {incr i} {
set node($i) [$ns node]
lappend nodelist $node($i)
}
set lan [$ns newLan $nodelist $opt(bw) $opt(delay) \
-llType $opt(ll) -ifqType $opt(ifq) \
-macType $opt(mac) -chanType $opt(chan)]
#$lan addNode $nodelist $opt(bw) $opt(delay)
set node0 [$ns node]
$ns duplex-link $node0 $node(1) 5Mb 2ms DropTail
$ns duplex-link-op $node0 $node(1) orient right
set nodex [$ns node]
$ns duplex-link $nodex $node(2) 5Mb 2ms DropTail
$ns duplex-link-op $nodex $node(2) orient left
set nodey [$ns node]
$ns duplex-link $nodey $node(0) 5Mb 2ms DropTail
$ns duplex-link-op $nodey $node(0) orient down
}
## MAIN ##
set ns [new Simulator -multicast on]
$ns color 2 black
$ns color 1 blue
$ns color 0 red
$ns color 30 purple
$ns color 31 green
set trfd [create-trace]
create-topology
set mproto DM
set mrthandle [$ns mrtproto $mproto {}]
set group [Node allocaddr]
set udp0 [new Agent/UDP]
$ns attach-agent $node0 $udp0
set cbr0 [new Application/Traffic/CBR]
$cbr0 attach-agent $udp0
set rcvrx [new Agent/Null]
$ns attach-agent $nodex $rcvrx
set rcvry [new Agent/Null]
$ns attach-agent $nodey $rcvry
$udp0 set dst_ $group
$cbr0 set interval_ 0.01
$ns at 0.0 "$nodex join-group $rcvrx $group"
$ns at 0.0 "$nodey join-group $rcvry $group"
$ns at 0.1 "$cbr0 start"
$ns at $opt(stop) "finish"
$ns run
|
