有线节点与无线节点的混合仿真模拟实验

Author: bakari Date: 2011.11.23

很久之前自己写的一个NS2 的例子，（一个有线和无线相结合的例子，对于初学很有帮助）欢迎交流！

# Define options

set val(chan) Channel/WirelessChannel ;# 物理信道类型

set val(prop) Propagation/TwoRayGround ;# 设定无限传输模型

set val(netif) Phy/WirelessPhy ;# 网络接口类型

set val(mac) Mac/802_11 ;# MAC 层类型

set val(ifq) Queue/DropTail/PriQueue ;# 接口队列类型

set val(ll) LL ;# LLC 层类型

set val(ant) Antenna/OmniAntenna ;# 天线模型

set val(ifqlen) 50 ;# 网络接口队列的大小

set val(severnode) 1 ;# servre节点的数目

set val(nn) 10 ;# 移动节点的数目

set val(rp) DSDV ;# 设定无线路由协议

set val(x) 1000 ;# 设定拓扑范围

set val(y) 1000 ;# 设定拓扑范围

set val(stop) 31 ;#模拟的总时间

set AgentTrace ON

set RouterTrace ON

set MacTrace OFF

#设定模拟器类型

set ns [new Simulator]

#设定跟踪文件

set tracefd [open simple.tr w]

$n s t r a c e - a l l$

set namtrace [open simwrls.nam w]

$n s n a m t r a c e - a l l$

$n s n a m t r a c e - a l l - w i r e l e s s$

#设定拓扑对象

set topo [new Topography]

$t o p o l o a d_{f} l a t g r i d$

set chan [new $val(chan)]

#设定god对象

# 建立一个God对象。God对象主要用来对路由协议做性能评价，它存储了节点总数，

#节点间最短路径等信息。节点的MAC对象会调用God对象，因此即使不使用也仍然要建立此对象

create-god $val(nn)

#设定sever节点

set SerNode [$ns node]

$SerNode set X_ 500

$SerNode set Y_ 800

$SerNode set Z_ 0

# $n s i n i t i a l_{n} o d e_{p} o s$

#设置移动节点的属性

$n s n o d e - c o n f i g - a d h o c R o u t i n g$

-llType $val(ll)

-macType $val(mac)

-ifqType $val(ifq)

-ifqLen $val(ifqlen)

-antType $val(ant)

-propType $val(prop)

-phyType $val(netif)

-channel $chan

-topoInstance $topo

-agentTrace ON

-routerTrace ON

-macTrace OFF

-movementTrace OFF

-wiredRouting ON

# ！如果一个节点放在移动节点属性之前，它就成为了有线链路的节点，如果放在移动节点属性下边，它就成了无线节点。

for {set i 1} { $i <$

set node_( $i) [$

# $n s i n i t i a l_{n} o d e_{p} o s$

}

#设定节点的初始位置

$node_(1) set X_ 100

$node_(1) set Y_ 300

$node_(1) set Z_ 0

$node_(2) set X_ 500

$node_(2) set Y_ 300

$node_(2) set Z_ 0

#$node_(3) set X_ 120

#$node_(3) set Y_ 80

#$node_(3) set Z_ 0

$node_(4) set X_ 900

$node_(4) set Y_ 300

$node_(4) set Z_ 0

$node_(5) set X_ 200

$node_(5) set Y_ 100

$node_(5) set Z_ 0

$node_(6) set X_ 100

$node_(6) set Y_ 100

$node_(6) set Z_ 0

$node_(7) set X_ 800

$node_(7) set Y_ 100

$node_(7) set Z_ 0

$node_(8) set X_ 300

$node_(8) set Y_ 300

$node_(8) set Z_ 0

$node_(9) set X_ 700

$node_(9) set Y_ 300

$node_(9) set Z_ 0

#设定有线链路的带宽，时延，队列类型

$n s d u p l e x - l i n k$

#设定链路队列大小

$n s q u e u e - l i m i t$

#监测节点间的队列

#数据包进入队列的方位设置，此表示数据包从上到下进入队列

$n s d u p l e x - l i n k - o p$

#建立tcp连接

set tcp0 [new Agent/TCP]

$ns color 1 Yellow

$tcp0 set class_ 1

$n s a t t a c h - a g e n t$

set sink0 [new Agent/TCPSink]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set tcp1 [new Agent/TCP]

$ns color 1 Yellow

$tcp1 set class_ 1

$n s a t t a c h - a g e n t$

set sink1 [new Agent/TCPSink]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set tcp2 [new Agent/TCP]

$ns color 1 Yellow

$tcp2 set class_ 1

$n s a t t a c h - a g e n t$

set sink2 [new Agent/TCPSink]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set tcp3 [new Agent/TCP]

$ns color 1 Yellow

$tcp3 set class_ 1

$n s a t t a c h - a g e n t$

set sink3 [new Agent/TCPSink]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set tcp4 [new Agent/TCP]

$ns color 1 Yellow

$tcp4 set class_ 1

$n s a t t a c h - a g e n t$

set sink4 [new Agent/TCPSink]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

#设定ftp应用程序

set ftp0 [new Application/FTP]

$f t p 0 a t t a c h - a g e n t$

set ftp1 [new Application/FTP]

$f t p 1 a t t a c h - a g e n t$

set ftp2 [new Application/FTP]

$f t p 2 a t t a c h - a g e n t$

set ftp3 [new Application/FTP]

$f t p 3 a t t a c h - a g e n t$

set ftp4 [new Application/FTP]

$f t p 4 a t t a c h - a g e n t$

#建立udp连接

set udp0 [new Agent/UDP]

$ns set color 2 Red

$udp0 set class_ 2

$n s a t t a c h - a g e n t$

set null0 [new Agent/Null]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set cbr0 [new Application/Traffic/CBR]

$cbr0 set packetSize0 100

$cbr0 set rate0 2Mb

$c b r 0 a t t a c h - a g e n t$

set udp1 [new Agent/UDP]

$ns set color 2 Red

$udp1 set class_ 2

$n s a t t a c h - a g e n t$

set null1 [new Agent/Null]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set cbr1 [new Application/Traffic/CBR]

$cbr1 set packetSize1 100

$cbr1 set rate1 2Mb

$c b r 1 a t t a c h - a g e n t$

set udp2 [new Agent/UDP]

$ns set color 2 Red

$udp2 set class_ 2

$n s a t t a c h - a g e n t$

set null2 [new Agent/Null]

$n s a t t a c h - a g e n t$

$n s c o n n e c t$

set cbr2 [new Application/Traffic/CBR]

$cbr2 set packetSize2 100

$cbr2 set rate2 2Mb

$c b r 2 a t t a c h - a g e n t$

#模拟节点的运动位置和速度

$n s a t 1.0 "$

$n s a t 2.5 "$

$n s a t 13.0 "$

#时间调度器设置流量发生时间

$n s a t 1.0 "$

$n s a t 30.5 "$

$n s a t 1.0 "$

$n s a t 30.5 "$

$n s a t 1.0 "$

$n s a t 30.5 "$

$n s a t 1.0 "$

$n s a t 30.5 "$

$n s a t 1.0 "$

$n s a t 30.5 "$

$n s a t 1.0 "$

$n s a t 16.2 "$

$n s a t 2.0 "$

$n s a t 13.0 "$

$n s a t 24.0 "$

#结束nam和simulator

$n s a t$

proc stop {} {

global ns tracefd namtrace

$ns flush-trace

close $tracefd

close $namtrace

exec nam simwrls.nam &

exit 0

}

#开始模拟

$ns run

有图有真相：