网络原理实验指导书

网络原理实验指导书（内部使用）游胜计算机与通信学院实验一NS网络模拟平台的安装一、实验目的：1）掌握对NS平台的安装过程二、实验要求：1）在Windows下成功安装NS网络仿真器2）使用NS平台模拟两个以上的网络模拟实验三、实验过程：1）在Windows下安装Visual c++2）通过网络查找到Tcl、Tk、Otcl、Tclcl、NS、nam的源代码并下载，其下载原文件名为：tcl8.3.2.tar、ns-src-2.1b9a、otcl-1.0a8.tar、tclcl-src-1.0b12.tar、tk8.3.2.tar、nam-1.0alla-win32.exe，然后将各压缩文件解压到一个新创建的目录（如：C:\NetSim）下，将nam-1.0 alla-win32. exe改名为nam后放在c:\NetSim\nam下，如图：在安装软件包之前先要运行命令vcvars32.bat,在此之前还应改变环境变量，在path中添加C:\Program Files\Microsoft Visual Studio\VC98\Bin;确定后，环境变量有效。

执行命令vcvars32.bat：完成以上操作之后，再对各个软件包进行如下的顺序安装：1、安装Tcl:修改cd c:\NetSim\tcl8.3.2\win\makefiles.vc中的参数TOOLS32 和TOOLS32_rc，使它们指向Visual c++相关工具所在目录（如图中黑体字部份）：修改后执行命令：cd c:\NetSim\tcl.3.2\winnmake –f makefile.vcnmake –f makefile.vc install（将tcl安装到INSTALLDIR指定目录）2、安装Tk ：修改c:\NetSim\tk8.3.2\win\makefile.vc中的TOOL32、TOOLS32_rc和TCLDIR，如下：执行下列：cd c:\NetSim\tk8.3.2\winnmake –f makefile.vcnmake –f makefile.vc install（将tk安装到INSTALLDIR指定目录）添加路径PATH（将tcl的可执行文件所在目录加入）：%path%;c:\progra~1\tcl\bin;3、安装ORecl:修改c:\NetSim\otcl-1.0a8\makefile.vc,注释STATIC_TCLTK=1，TCLPATCHLEVEL改为83.2，如下图所示：修改之后执行以下命令：cd c:\NetSim\otcl-1.0a8nmake –f makefile.vc如执行成功即表明Otcl安装完毕。

4、安装TclCL:修改文件C:\NetSim\tcltc-1.0b12\conf\makefile.win,修改LOCAL_SRC，注释STATIC_LIB=1，修改TK_VER,TCL_VER,TCL_SUFFIX,TK_SUFFIX变量及OTCL_DIR,TCLCL_DIR路径，如图（黑体字）所示：再修改C:\NetSim\tclcl-1.0b12\makefile.vc,TCL_83_LIBRARY_FILES,如图（黑体字）所示：修改完成后执行以下命令：C:\NetSim\tclcl-1.0b12nmake –f makefile.vc执行完毕则代表安装成功。

5、安装NS：修改C:\NetSim\ns-2.1b9a\conf\makefile.win中的变量，MSVCDIR指向Visual C++的相关工具所在目录，确认LOCAL_SRC的值是正确的，确认STATIC——LIB=1已经被注释，确认Tcl,Tk中曾改过的变量的一致性，如下所示：修改完成后执行以下命令：C:\NetSim\ns-2.1b9anmake –f makefile.vc6、安装nam:将改名为nam.exe的可执行文件拷贝到C:\NetSim\nam\目录下，至此nam安装成功。

7、修改环境变量：NS编译成功后，添加“系统变量”中的“Path”，增加路径“C:\Progra~1\tcl\bin;c:\NetSim\ns-2.1b9a;c:\NetSim\nam;C:\NetSim;”。

如下图所示：8、测试NS安装是否成功可在命令行中输入ns，如果安装正确的话应该可以看到%提示符。

9.运行NS和nam实验二TCL语言简介一、实验目地：学习TCL语言的基本语法。

二、实验原理：TCL (Tool Command Language)在ns2中主要是用来描述脚本的，简单的说就是用来描述要模拟的网路环境和参数设定等。

变数和变数替换就如同其他的程式语言一样，变数(variables)可以被想成是盒子(boxes)，是用来储存各种类型的资料的。

这些盒子或者说是变数，都有各自的名称，而这些名称在我们需要取用或者是变更变数的值(value)时会被用到。

C语言在使用变数时，需要事先的宣告，而TCL则不需要事先宣告。

TCL变数是在第一次使用set的指令来指派变数的值时所产生的。

而当我们不在需要某个变数时，可以使用unset来取消这个变数，但一般而言，我们可以不用去做这个动作。

而当我们需要取用或者是变更变数内的值时，只要在变数名称前加上一个$的符号就可以去取用或者是变更变数内的值了，这就是所谓的变数替换。

程序1set foo “john”puts “my name is $foo”执行方法:ns ex1_1.tcl执行的结果:my name is john程序2：set month 2set day 3set year 97set date "$month:$day:$year"puts $date执行方法:ns ex1_2.tcl执行的结果:2:3:97程序3：set foo "puts hi"eval $foo执行方法:ns ex1_3.tcl执行的结果:Hi表示式TCL包含许多种类的表示式，如数学表示式、关系表示式等。

通常这些表示式都会使用expr这个指令去判断表示式的真假或者去求得表示式的值。

程序1：set value [expr 0==1]puts $value执行方法:ns ex2_1.tcl执行的结果:set value [expr 2>=1]puts $value执行方法:ns ex2_2.tcl执行的结果:1程序3：set value [expr 2+3]puts $value执行方法:ns ex2_3.tcl执行的结果:5指令替换就如同变数替换一样，指令替换可以把”原tcl script执行结果”取代”原tcl script”。

程序１：puts "I am [expr 10 * 2] years old, and my I.Q. is [expr 100 - 25]"执行方法:ns ex3_1.tcl执行的结果:I am 20 years old, and my I.Q. is 75程序２：set my_height 6.0puts "If I was 2 inches taller, I would be [expr $my_height + (2.0 / 12.0)] feet tall"执行方法:ns ex3_2.tcl执行的结果:If I was 2 inches taller, I would be 6.166666666666667 feet tall流程控制跟其它的程式相同，TCL也提功了一些方法可以用来控制程式运作的流程，这包含了if-else、switch、while、for、foreach等指令，这些指令用来请参考下面范例。

程序１：set my_planet "earth"if {$my_planet == "earth"} {puts "I feel right at home."} elseif {$my_planet == "venus"} {puts "This is not my home."} else {puts "I am neither from Earth, nor from Venus."}set temp 95if {$temp < 80} {puts "It's a little chilly."} else {puts "Warm enough for me."}执行方法:ns ex4_1.tcl执行的结果:I feel right at home.Warm enough for me.程序２：set num_legs 4switch $num_legs {2 {puts "It could be a human."}4 {puts "It could be a cow."}6 {puts "It could be an ant."}8 {puts "It could be a spider."}default {puts "It could be anything."} }执行方法:ns ex4_2.tcl执行的结果:It could be a cow.程序３：for {set i 0} {$i < 5} {incr i 1} {p uts "In the for loop, and i == $i"}执行方法:ns ex4_3.tcl执行的结果:In the for loop, and i == 0In the for loop, and i == 1In the for loop, and i == 2In the for loop, and i == 3In the for loop, and i == 4程序４：set i 0while {$i < 5} {puts "In the while loop, and i == $i"incr i 1}执行方法:ns ex4_4.tcl执行的结果:In the while loop, and i == 0In the while loop, and i == 1In the while loop, and i == 2In the while loop, and i == 3In the while loop, and i == 4程序５：foreach vowel {a e i o u} {p uts "$vowel is a vowel"}执行方法:ns ex4_5.tcl执行的结果:a is a vowele is a voweli is a vowelo is a vowelu is a vowel程序在TCL中也允许使用者去自定程序，定义程序基本的语法为: proc name params body，其中name为程序的名称，params是参数列表，body则是程序的主体。