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
|
# Slow start protocol in a heavily loaded network.
# features : labeling, annotation, nam-graph, and window size monitoring
#
# n0 n5
# \ /
# n1 -- n3 ---------- n4 -- n6
# / \
# n2 n7
set ns [new Simulator]
$ns color 0 black
$ns color 1 red
#$ns trace-all [open C4-sliding-color.tr w]
#$ns namtrace-all [open C4-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 SLIDING"
$ns at 0.0 "$n5 label SLIDING"
$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 15
$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
# set window size
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_
$sliding tracevar ssthresh_
### 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.02
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 C4-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"
### add annotations
$ns at 0.05 "$ns trace-annotate \"CBR-1 starts\""
$ns at 0.1 "$ns trace-annotate \"CBR-2 starts\""
$ns at 0.5 "$ns trace-annotate \"FTP starts\""
$ns at 2.55 "$ns trace-annotate \"FTP stops\""
$ns run
|
