NS2学习笔记（一）

NS2有两种运行方式:

1.“脚本方式”，输入命令: ns tclscripl.tcl，其中 tclscripl.tcl 是一个Tcl脚本的文件名；

2“命令行方式”，输入命令：ns，进入NS2的命令行环境，然后直接输入各种命令来交互式地运行NS2。（与Python类似）

运行NS2以后也有两种方法记录结果:

1.trace文件；

2.nam（动画演示程序）

Tcl脚本1：example1.tcl

set ns [new Simulator]#建立一个新的模拟对象simulator

set tracef [open example1.tr w]#变量tracef指向example1.tr文件
#ns trace-all $tacef#记录模拟过程trace数据
set namtf [open example1.nam w]#变量namtf指向example1.nam文件
$ns namtrace-all $namtf#记录nam的trace数据

proc finish {} {关闭两个trace文件，在模拟结束后调用nam程序
    global ns tracef namtf
    $ns flush-trace
    close $tracef
    close $namtf
    exec nam example1.nam &
    exit 0
)

set n0 [$ns node]#创建节点n0
set n1 [$ns node]#创建节点n1

$ns duplex-link $n0 $n1 1Mb 10ms DropTail#在n0和n1之间建立一条双向的链路，带宽1Mbit/s，时延10ms，队列类型为DropTail。

set udp0 [new Agent/UDP]#创建一个udp0 Agent
$ns attach-agent $no $udp0#将udp0绑定到n0上

set cbr0 [new Application/Traffic/CBR]#创建一个CBR流量发生器
$cbr0 set packetSize_ 500#分组大小为500B
$cbr0 set interval_ 0.005#发送间隔为5ms
$cbr0 attach-agent $udp0#将CBR绑定到udp0上

set null0 [new Agent/Null]#创建一个Null Agent作为数据接收器
$ns attach-agent $n1 $null0#绑定到n1上

$ns connect $udp0 $null0#将两个Agent连接起来

$ns at 0.5 "$cbr0 start"#0.5s时启动cbr0
$ns at 4.5 "$cbr0 stop"#4.5s时停止cbr0

$ns at 5.0 "finish"#5.0s时调用finish过程
$ns run#开始模拟

Tcl调用成员方法的格式为：$对象名 方法名

Tcl脚本2（无线模型）：wireless.tcl

set val(chan) Channel/WirelessChannel #channel type，val(chan)作为变量名是一个整体，下同
set val(proc) Propagation/TwoRayGround #radio-propagation model
set val(netif) Phy/WirelessPhy #network interface type
set val(mac) Mac/802_11 #MAC type
set val(ifq) Queue/DropTail/PriQueue #interface queue type
set val(ll) LL #link layer type
set val(ant) Antenna/OmniAntenna #antenna model
set val(ifqlen) 50 #max packet in ifq
set val(nn) 2 #number of mobilenodes
set val(rp) AODV #routing protocol
set val(x) 500 #X dimension of the topography
set val(y) 500 #Y dimension of the topography

set ns [new Simulator]

set tracefd [open wireless.tr w]
$ns trace-all $tracefd
set namtracefd [new wireless.nam w]
$ns namtrace-all-wireless $namtracefd $val(x) $val(y)

set topo [new Topography]#建立一个Topography对象，该对象可以保证节点在拓扑边界范围内运动
$topo load_flatgrid $val(x) $val(y)#设定模拟所用场景的大小

create-god $val(nn) #建立一个God对象，主要用来对路由协议做性能评价；节点的MAC对象会调用God对象，因此即使我们在这里并不适用God对象，仍然需要建立一个God对象

$ns node-config -adhocRouting $val(rp) #配置节点参数
    -llType $val(ll)
    -macType $val(mac)
    -ifqType $val(ifq)
    -ifqLen $val(ifqlen)
    -antType $val(ant)
    -propType $val(prop)
    -phyType $val(netif)
    -channelType $val(chan)
    -topoInstance $topo
    -agentTrace ON
    -routerTrace ON
    -macTrace OFF
    -movementTrace OFF

for{set i 0} {$i < $val(nn)} {incr i} {
    set node_($i) [$ns node]
    $node_($i) random-motion 0 #disable random motion 禁止节点随机移动，让节点按脚本规定的方式移动

$node_(0) set X_ 5.0 #设定节点初始坐标X,Y,Z
$node_(0) set Y_ 2.0
$node_(0) set Z_ 0.0

$node_(1) set X_ 390.0
$node_(1) set Y_ 385.0
$node_(1) set Z_ 0.0

$ns at 5.0 "$node_(1) setdest 25.0 20.0 15.0"#节点1在5s时以15m/s的速度向坐标(25.0,20.0)的点运动
$ns at 1.0 "$node_(0) setdest 20.0 18.0 1.0"

$ns at 10 "$node_(1) setdest 490.0 480.0 15.0"

set tcp [new Agent/TCP]
$tcp set class_ 2
set sink [new Agent/TCPSink]
$ns attach-agent $node_(0) $tcp
$ns attach-agent $node_(1) $sink
$ns connect $tcp $sink
set ftp [new Appication/FTP]
$ftp attach-agent $tcp

$ns at 1.0 "$ftp start"
for {set i 0} {$i < $val(nn)} {incr i} {
    $ns at 15.0 "$node_($i) reset"
}
$ns at 15.0 "stop"

proc stop{} {
    global ns tracefd nametracefd
    $ns flush-trace
    close $tracefd
    close $nametracefd
    exec nam wireless nam &
    exit 0
}

$ns run

 在节点很多的情况下，可以通过文件配置这些节点的初始位置和运动方式。

source "path" #读取定义位置和运动方式的文件，path是文件的路径名，文件中的内容包括node的set方法设定初始坐标，和simulator的at方法设定运动方式。与上面直接写入脚本的方法一致。

还可以通过这种引用文件的方式来设定绑定节点的Agent。