【计网实验】实验三：TCP Tahoe与Reno 运行机制对比分析

实验目的

学习TCP的拥塞控制机制并了解TCP Tahoe和TCP Reno协议的运行机制。

实验过程

一、安装NS2

NS2（Network Simulator 2）必须在UNIX/Linux平台下运行。若要在Windows下使用NS可以采用Windows+虚拟机（VMware、Virtual PC）+NS组合的方式，或者是Windows+Cygwin（一个模拟的Linux平台）+NS组合的方式。

这里，我们直接在Linux环境下使用。

环境：20.04.1-Ubuntu gcc-5

1、安装ns2运行时需要的依赖包

sudo apt-get install build-essential
sudo apt-get install tcl8.5 tcl8.5-dev tk8.5 tk8.5-dev
sudo apt-get install libxmu-dev libxmu-headers

2、下载软件并解压

1）在官网下载ns-allinone-2.35.tar.gz
2）进入到文件所在文件夹，解压文件

tar -xvzf ns-allinone-2.35.tar.gz

3)修改文件夹的名字为ns，之后方便操作

mv ns-2.35 ns

4）修改ls文件
ns-2.35/linkstate/ls.h 第137行

void eraseAll() { erase(baseMap::begin(), baseMap::end()); }

改为：

void eraseAll() { this->erase(baseMap::begin(), baseMap::end()); }

5）进入到ns文件夹，执行install

cd ns
./install

安装成功的截图：
遇到的问题：
1）gcc版本问题

我的编译报错，查了之后发现是ns2支持gcc-5，但我的系统自带的是gcc-9，所以需要安装gcc-5，并切换，同时g++也要切换为相应版本。
安装gcc-5

2）安装失败，对文件的操作权限不够

su root  #进入管理员状态

3、配置环境变量

gedit ~/.bashrc

直接在文档的最后面加上以下环境变量:

export NS_HOME=/home/marina/soft/network/ns    #安装路径
 
export PATH=$PATH:$NS_HOME/bin:$NS_HOME/tcl8.5.10/unix:$NS_HOME/tk8.5.10/unix
 
export LD_LIBRARY_PATH=$NS_HOME/otcl-1.14:$NS_HOME/lib  
 
export TCL_LIBRARY=$NS_HOME/tcl8.5.10/library

4、验证是否安装成功

重启终端，输入ns，若出现%则安装成功

再重新打开终端：

/home/marina/soft/network/ns/ns-2.35/tcl/ex# ns simple.tcl

如上，跳出弹窗则完全安装成功。

二、观测tahoe 和reno协议的特征

1、仿真实验的网络结构图

实验网络拓扑结构 和 链路参数配置 （FTP代表端施加恒定的流CBR）

2、TCL程序代码

以下代码用的不是老师给的源码，是在网上找的修正过的代码

if {$argc != 1} {
	puts "Usage: ns lab11.tcl TCPversion"
	puts "Example:ns lab11.tcl Tahoe or ns lab11.tcl Reno"
	exit
}


set par1 [lindex $argv 0]

#产生一个仿真的对象
set ns [new Simulator]

#打开一个trace file, 用来记录封包传送的过程
set nd [open out-$par1.tr w]
$ns trace-all $nd

#打开一个文件用来记录cwnd 变化情况
set f0 [open cwnd-$par1.tr w]

#定义一个结束的程序
proc finish {} {
	global ns nd f0 tcp
	#显示最后的平均吞吐量
	puts [format "average throughput:%1.f Kbps"\
		[expr [$tcp set ack_]* ([$tcp set packetSize_]) *8/1000.0/10]]
	$ns flush-trace
	#关闭文件
	close $nd 
	close $f0
	exit 0
}

#定义一个记录的程序
#每格0.01s就去记录当时的cwnd
proc record {} {
	global ns tcp f0

	set now [$ns now]
	puts $f0 "$now [$tcp set cwnd_]"
	$ns at [expr $now+0.01] "record"
}

#产生传送结点，路由器r1,r2和接收结点
set n0 [$ns node]
set r0 [$ns node]
set r1 [$ns node]
set n1 [$ns node]

#建立链路
$ns duplex-link $n0 $r0 10Mb 1ms DropTail
$ns duplex-link $r0 $r1 1Mb 4ms DropTail
$ns duplex-link $r1 $n1 10Mb 1ms DropTail

#设置队列长度为18个封包大小
set queue 18
$ns queue-limit $r0 $r1 $queue

#根据用户的设置，指定TCP版本
if {$par1 == "Tahoe"} {
	set tcp [new Agent/TCP]
} else {
	set tcp [new Agent/TCP/Reno]
}
$ns attach-agent $n0 $tcp

set tcpsink [new Agent/TCPSink]
$ns attach-agent $n1 $tcpsink

$ns connect $tcp $tcpsink

#建立FTP应用程序
set ftp [new Application/FTP]
$ftp attach-agent $tcp

#在0.0s时，开始传送
$ns at 0.0 "$ftp start"

#在10.0s时，结束传送
$ns at 10.0 "$ftp stop"

#在0.0s时调用record来记录TCP的cwnd变化情况
$ns at 0.0 "record"

#在第10.0s时调用finish来结束模拟
$ns at 10.0 "finish"

#执行模拟
$ns run

3、执行tcl程序并记录结果

1）观察tehoe

运行截图：

在这一步会生成仿真文件：cwnd-Tahoe.tr（作画图的源）

安装gnuplot（画图软件）

apt install gnuplot-nox

执行以下代码：

gnuplot
set title "Tahoe"		#图像标题
set xlabel "time"		#横坐标时间
set ylabel "cwnd"		#纵坐标拥塞窗口
set terminal gif		#输出为gif格式
set output "cwnd-Tahoe.gif"		#输出文件名
plot "cwnd-Tahoe.tr" with linespoints		#画图，需要引号，引号内为上一步仿真结果的文件名。

得到的图：

如上，满足tahoe的思想：出现丢包或三个相同确认，它首先执行快速重传。然后，它将ssthresh值减半到原始拥塞窗口大小，并将新窗口大小设置为1并保持慢启动。

2)观察reno

操作步骤同上，只是需要把文件名改为reno。

得到的图：

实验参考

计算机网络实验三：TCP Tahoe与Reno运行机制对比分析
安装gcc-5
切换gcc的版本