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
|
# rmcc-3.tcl
# Multiple RM flows scenario
#
# RM sender1
# topology: 2 o o 6 RM recv 1
# \ 0 1 /
# RM send2 3o---o-----------o--o 7 RM recv 2
# /| B/N link |\
# / | | \
# o o o o 8 RM recv 3
# RM send3 4 5 9
# CBR receiver1
# CBR sender1
# RM sender 1 starts to send at t=0s
# RM sender 2 starts to send at t=5s
# RM sender 3 starts to send at t=10
# CBR sender 1 starts to send at t=20s at 500Kbps
# CBR reduces its rate to 200Kbps at t=40s
# comparison of flow bandwidth for RM flows by flow monitors attached on
# links 1-6, 1-7, 1-8 and 1-9
# usage : ns rmcc-3.tcl
#
source rmcc.tcl
ScenLib/RM instproc make_topo3 { time } {
global ns n t opts
$self make_nodes 10
#color them
$n(0) color "red"
$n(1) color "red"
$n(2) color "orchid"
$n(3) color "orchid"
$n(4) color "orchid"
$n(6) color "green"
$n(7) color "green"
$n(8) color "green"
$n(4) color "black"
$n(9) color "black"
#now setup topology
# bottleneck link
$ns duplex-link $n(0) $n(1) $opts(bottleneckBW) \
$opts(bottleneckDelay) DropTail
$ns duplex-link-op $n(0) $n(1) queuePos 0.5
$ns duplex-link $n(0) $n(2) 10Mb 5ms DropTail
$ns duplex-link $n(0) $n(3) 10Mb 5ms DropTail
$ns duplex-link $n(0) $n(4) 10Mb 5ms DropTail
$ns duplex-link $n(0) $n(5) 10Mb 5ms DropTail
$ns duplex-link $n(1) $n(6) 10Mb 5ms DropTail
$ns duplex-link-op $n(1) $n(6) queuePos 0.5
$ns duplex-link $n(1) $n(7) 10Mb 5ms DropTail
$ns duplex-link-op $n(1) $n(7) queuePos 0.5
$ns duplex-link $n(1) $n(8) 10Mb 5ms DropTail
$ns duplex-link $n(1) $n(9) 10Mb 5ms DropTail
$ns duplex-link-op $n(0) $n(1) orient right
$ns duplex-link-op $n(0) $n(2) orient left-up
$ns duplex-link-op $n(0) $n(3) orient left
$ns duplex-link-op $n(0) $n(4) orient left-down
$ns duplex-link-op $n(0) $n(5) orient down
$ns duplex-link-op $n(1) $n(6) orient up
$ns duplex-link-op $n(1) $n(7) orient right
$ns duplex-link-op $n(1) $n(8) orient right-down
$ns duplex-link-op $n(1) $n(9) orient down
$ns queue-limit $n(0) $n(1) $opts(bottleneckQSize)
$ns queue-limit $n(1) $n(0) $opts(bottleneckQSize)
$self make_flowmon $time $n(1) $n(6) flowStats_1_6.$t \
$n(1) $n(7) flowStats_1_7.$t \
$n(1) $n(8) flowStats_1_8.$t \
$n(1) $n(9) flowStats_1_9.$t
}
proc run {} {
global ns n
set test_scen [new ScenLib/RM]
$test_scen make_topo3 40.0
$test_scen create_mcast 2 0.1 0.4 1.0 6
$test_scen create_mcast 3 8.3 9.0 10.0 7
$test_scen create_mcast 4 18.3 19.0 20.0 8
$test_scen create_cbr 5 2.0 9 40.0 60.0 5 5.0 9 60.0 80.0
$test_scen dump_flowmon $n(1) $n(6) 10.0
$test_scen dump_flowmon $n(1) $n(6) 20.0
$test_scen dump_flowmon $n(1) $n(7) 20.0
$test_scen dump_flowmon $n(1) $n(6) 40.0
$test_scen dump_flowmon $n(1) $n(7) 40.0
$test_scen dump_flowmon $n(1) $n(8) 40.0
$test_scen dump_flowmon $n(1) $n(6) 60.0
$test_scen dump_flowmon $n(1) $n(9) 60.0
$test_scen dump_flowmon $n(1) $n(6) 80.0
$test_scen dump_flowmon $n(1) $n(9) 80.0
$ns at 80.0 "finish"
$ns run
}
global argv prog opts t mflag
set mflag 0
if [string match {*.tcl} $argv0] {
set prog [string range $argv0 0 [expr [string length $argv0] - 5]]
} else {
set prog $argv0
}
process_args $argv
set t $prog
run
|
