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
|
# Sliding window protocol in a heavily loaded network.
# features : labeling, annotation, and window size monitoring
# for nam-graph, refer to 'C2-sliding-window.nam'
#
# n0 n5
# \ /
# n1 -- n3 ---------- n4 -- n6
# / \
# n2 n7
set ns [new Simulator]
$ns color 0 black
$ns color 1 red
#$ns trace-all [open C2-sliding-color.tr w]
#$ns namtrace-all [open C2-sliding-color.nam w]
### build topology with 8 nodes
foreach i " 0 1 2 3 4 5 6 7" {
set n$i [$ns node]
}
$ns at 0.0 "$n0 label TCP"
$ns at 0.0 "$n5 label TCP"
$ns at 0.0 "$n1 label CBR-1"
$ns at 0.0 "$n2 label CBR-2"
$ns at 0.0 "$n6 label CBR-1"
$ns at 0.0 "$n7 label CBR-2"
$ns duplex-link $n0 $n3 5Mb 20ms DropTail
$ns duplex-link $n1 $n3 1Mb 20ms DropTail
$ns duplex-link $n2 $n3 1Mb 20ms DropTail
$ns duplex-link $n3 $n4 1Mb 50ms DropTail
$ns duplex-link $n4 $n5 5Mb 20ms DropTail
$ns duplex-link $n4 $n6 1Mb 20ms DropTail
$ns duplex-link $n4 $n7 1Mb 20ms DropTail
$ns queue-limit $n3 $n4 10
$ns duplex-link-op $n0 $n3 orient right-down
$ns duplex-link-op $n1 $n3 orient right
$ns duplex-link-op $n2 $n3 orient right-up
$ns duplex-link-op $n3 $n4 orient right
$ns duplex-link-op $n4 $n5 orient right-up
$ns duplex-link-op $n4 $n6 orient right
$ns duplex-link-op $n4 $n7 orient right-down
$ns duplex-link-op $n3 $n4 queuePos 0.5
Agent/TCP set nam_tracevar_ true
Agent/TCP set maxcwnd_ 8
### TCP between n0 and n5 (Black)
#set sliding [new Agent/TCP/SlidingWindow]
set sliding [new Agent/TCP]
$sliding set fid_ 0
$ns attach-agent $n0 $sliding
#set sink [new Agent/TCPSink/SlidingWindowSink]
set sink [new Agent/TCPSink]
$ns attach-agent $n5 $sink
$ns connect $sliding $sink
set ftp [new Application/FTP]
$ftp attach-agent $sliding
$ns add-agent-trace $sliding tcp
$ns monitor-agent-trace $sliding
$sliding tracevar cwnd_
### CBR traffic between (n1 & n6) and (n2 & n7)
set cbr0 [new Agent/CBR]
$ns attach-agent $n1 $cbr0
$cbr0 set fid_ 1
$cbr0 set packetSize_ 500
$cbr0 set interval_ 0.01
set null0 [new Agent/CBR]
$ns attach-agent $n6 $null0
$ns connect $cbr0 $null0
set cbr1 [new Agent/CBR]
$ns attach-agent $n2 $cbr1
$cbr1 set fid_ 1
$cbr1 set packetSize_ 1000
$cbr1 set interval_ 0.01
set null1 [new Agent/CBR]
$ns attach-agent $n7 $null1
$ns connect $cbr1 $null1
proc finish {} {
global ns
$ns flush-trace
puts "running nam..."
exec nam C2-sliding-color.nam &
exit 0
}
### set operations
$ns at 0.05 "$cbr0 start"
$ns at 2.3 "$cbr0 stop"
$ns at 0.1 "$cbr1 start"
$ns at 2.5 "$cbr1 stop"
$ns at 0.5 "$ftp start"
$ns at 2.5 "$ftp stop"
$ns at 2.7 "finish"
$ns at 0.50 "$cbr1 set interval_ 0.02"
$ns at 1.50 "$cbr0 set interval_ 0.02"
$ns at 1.70 "$cbr1 set interval_ 0.01"
$ns at 1.70 "$cbr1 set interval_ 0.01"
### add annotations
$ns at 0.0 "$ns trace-annotate \"Sliding Window (window size=8) in a heavely loaded network\""
$ns at 0.05 "$ns trace-annotate \"CBR-1 starts\""
$ns at 0.1 "$ns trace-annotate \"CBR-2 starts\""
$ns at 0.48 "$ns trace-annotate \"Sliding-Window Traffic starts\""
$ns at 0.51 "$ns trace-annotate \"Send Packet_0 to 7 \""
$ns at 0.54 "$ns trace-annotate \"Lost Packet (5 of them) \""
$ns at 0.66 "$ns trace-annotate \"3 Ack_0s\""
$ns at 0.75 "$ns trace-annotate \"Send Packet_8\""
$ns at 0.85 "$ns trace-annotate \"Ack_0\""
$ns at 0.95 "$ns trace-annotate \"Send Packet_1 to 8\""
$ns at 1.04 "$ns trace-annotate \"Ack_1 to 8\""
$ns at 1.14 "$ns trace-annotate \"Send Packet_9 to 16\""
$ns at 1.22 "$ns trace-annotate \"Lost Packet (2 of them) \""
$ns at 1.27 "$ns trace-annotate \"Ack_7 to 14 \""
$ns at 1.35 "$ns trace-annotate \"Send Packet_17 to 22\""
$ns at 1.49 "$ns trace-annotate \"6 Ack_14s \""
$ns at 1.58 "$ns trace-annotate \"Send Packet_15 to 22\""
$ns at 1.70 "$ns trace-annotate \"Ack_15 to 22 \""
$ns at 1.78 "$ns trace-annotate \"Send Packet_23 to 30\""
$ns at 1.85 "$ns trace-annotate \"Lost Packet (2 of them) \""
$ns at 1.90 "$ns trace-annotate \"Ack_23 to 27 \""
$ns at 2.00 "$ns trace-annotate \"Send Packet_31 to 35\""
$ns at 2.08 "$ns trace-annotate \"Lost Packet (all of them) \""
$ns at 2.55 "$ns trace-annotate \"FTP stops\""
$ns run
|
