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
|
# Creates connection. First creates a source agent of type s_type and binds
# it to source. Next creates a destination agent of type d_type and binds
# it to dest. Finally creates bindings for the source and destination agents,
# connects them, and returns a list of source agent and destination agent.
TestSuite instproc create-connection-list {s_type source d_type dest pktClass} {
$self instvar ns_
set s_agent [new Agent/$s_type]
set d_agent [new Agent/$d_type]
$s_agent set fid_ $pktClass
$d_agent set fid_ $pktClass
$ns_ attach-agent $source $s_agent
$ns_ attach-agent $dest $d_agent
$ns_ connect $s_agent $d_agent
return "$s_agent $d_agent"
}
#
# create and schedule a cbr source/dst
#
TestSuite instproc new_Cbr { startTime source dest pktSize interval fid maxPkts} {
$self instvar ns_
set cbrboth \
[$self create-connection-list CBR $source LossMonitor $dest $fid ]
set cbr [lindex $cbrboth 0]
$cbr set packetSize_ $pktSize
$cbr set interval_ $interval
if {$maxPkts > 0} {$cbr set maxpkts_ $maxPkts}
set cbrsnk [lindex $cbrboth 1]
$ns_ at $startTime "$cbr start"
}
#
# dynamically varying rate
#
TestSuite instproc new_VaryingCbr { startTime source dest pktSize interval fid maxPkts} {
$self instvar ns_
set cbrboth \
[$self create-connection-list CBR $source LossMonitor $dest $fid ]
set cbr [lindex $cbrboth 0]
$cbr set packetSize_ $pktSize
$cbr set interval_ $interval
set cbrsnk [lindex $cbrboth 1]
$ns_ at $startTime "$cbr start"
$ns_ at 50.0 "$self ChangeCBRInterval $cbr 0.0625"
# $ns_ at 100.0 "$self ChangeCBRInterval $cbr 2.0"
$ns_ at 250.0 "$self ChangeCBRInterval $cbr 16.0"
# $ns_ at 250.0 "$self ChangeCBRInterval $cbr 0.5"
# $ns_ at 50.0 "$self ChangeCBRInterval $cbr 2.0"
# $ns_ at 70.0 "$self ChangeCBRInterval $cbr 2.0"
# $ns_ at 90.0 "$self ChangeCBRInterval $cbr 0.5"
# $ns_ at 110.0 "$self ChangeCBRInterval $cbr 0.5"
}
TestSuite instproc ChangeCBRInterval { cbr mulfactor } {
$self instvar ns_
# puts "[$ns_ now] [$cbr set interval_]"
set interval [$cbr set interval_]
$cbr set interval_ [expr $interval*$mulfactor]
# puts "[$ns_ now] [$cbr set interval_]"
}
#
# create and schedule a tcp source/dst
#
TestSuite instproc new_Tcp { startTime source dest window fid dump size type maxPkts {stopTime 0}} {
$self instvar ns_
$self instvar tcpRateFileDesc_
$self instvar stoptime_
if { $type == "reno" } {
set tcp [$ns_ create-connection TCP/Reno $source TCPSink $dest $fid]
}
if { $type == "sack" } {
set tcp [$ns_ create-connection TCP/Sack1 $source TCPSink/Sack1 $dest $fid]
}
$tcp set window_ $window
# $tcp set tcpTick_ 0.1
$tcp set tcpTick_ 0.01
if {$size > 0} {
$tcp set packetSize_ $size
}
set ftp [$tcp attach-source FTP]
if {$maxPkts > 0} {$ftp set maxpkts_ $maxPkts}
$ns_ at $startTime "$ftp start"
if {$stopTime == 0} {
set stopTime $stoptime_
}
if {$dump != 0} {
$ns_ at $stopTime "$self reportTCPRate $tcp $startTime $stopTime $fid $tcpRateFileDesc_"
}
}
TestSuite instproc reportTCPRate {tcp startTime stopTime fid fdesc} {
set bytes [$tcp set ack_]
set rate [expr $bytes.0/($stopTime - $startTime)]
puts $fdesc "$fid $rate $bytes"
}
TestSuite instproc new_TFRC { startTime source dest fid size} {
$self instvar ns_
set tfrc [$ns_ create-connection TFRC $source TFRCSink $dest $fid]
if {$size > 0} {
$tfrc set packetSize_ $size
}
$ns_ at $startTime "$tfrc start"
}
|
