NS2网络模拟计算吞吐量

吞吐量(throughput)：单位时间内，所有目的节点的平均接受数据速率。

Throughput = (某段时间内所有目的节点的数据接受量) / 时间。

实验链路采用FIFO队列管理机制，三个源节点，三个目的节点，之间有三条FTP数据流，有两个路由器。

set ns [new Simulator]
 2 
#打开trace文件
set nd [open out.tr w]
$ns trace-all $nd
 6 
#设定TCP流的大小
set nflow 5
 9 
#设置路由器（在ns2中，路由器就是节点）
set r1 [$ns node]
set r2 [$ns node]
$ns duplex-link $r1 $r2 1Mb 10ms DropTail
14 
#设置r1与r2之间队列缓冲区的最大值为10个packet，每个packet的大小默认为40个字节,~/ns/tcl/lib/ns-default.tcl
$ns queue-limit $r1 $r2 10
17 
#设置TCP的源节点和目的节点，各三个，并分别与两个路由器相连
for {set i 1} {$i <= $nflow} {incr i} {
    set s($i) [$ns node]
    set d($i) [$ns node]
22 
    $ns duplex-link $s($i) $r1 10Mb 1ms DropTail
    $ns duplex-link $d($i) $r2 10Mb 1ms DropTail
}
26 
#建立TCP单向代理，tcp(i)为发送者，sink(i)为接受者，并分别连接到相应节点上，然后建立TCP连接，在TCP上建立FTP应用
for {set i 1} {$i <= $nflow} {incr i} {
    set tcp($i) [new Agent/TCP]
    set sink($i) [new Agent/TCPSink]
    $ns attach-agent $s($i) $tcp($i)
    $ns attach-agent $d($i) $sink($i)
    $ns connect $tcp($i) $sink($i)
34 
    set ftp($i) [new Application/FTP]
    $ftp($i) attach-agent $tcp($i)
    $tcp($i) set type_ FTP
}
39 
set rng [new RNG] ;#设置随机数产生器
$rng seed 1
42 
set RVstart [new RandomVariable/Uniform]
$RVstart set min_ 0
$RVstart set max_ 1
$RVstart use-rng $rng
47 
48 
for {set i 1} {$i <= $nflow} {incr i} {
    set startT($i) [expr [$RVstart value]]
    puts "startT($i) $startT($i) sec"
    set endT($i) [expr ($startT($i) + 5)]
    puts "endT($i) $endT($i) sec"
54 
    $ns at $startT($i) "$ftp($i) start"
    $ns at $endT($i) "$ftp($i) stop"
}
58 
proc finish {} {
    global ns nd
61 
    close $nd
    $ns flush-trace
    exit 0
}
66 
$ns at 7.0 "finish"
$ns run

模拟结束，生成trace文件，可以用awk分析数据。在模拟时，节点的标号和节点的创建顺序有关，所以r1,r2,s1,d1,s2,d2,s3,s3...分别对应0,1,2,3,4,5,6,7,8...

TCL提供三种形式的置换：变量置换、命令置换、反斜杠置换。

命令置换:即用$符号。

命令置换：[]

反斜杠置换：类似C语言转义符。

除了使用反斜杠外,TCL 提供另外两种方法来使得解释器把分隔符和置换符等特殊字符当作普通字符,而不作特殊处理,这就要使用双引号和花括号({})。

TCL 解释器对双引号中的各种分隔符将不作处理,但是对换行符 及$和[]两种置换符会照常处理。

而在花括号中,所有特殊字符都将成为普通字符,失去其特殊意义,TCL 解释器不会对其作特殊处理。