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]

nstrace?allnstrace?alltracefd

set namtrace [open simwrls.nam w]

nsnamtrace?allnsnamtrace?allnamtrace

nsnamtrace?all?wirelessnsnamtrace?all?wirelessnamtrace?val(x)val(x)val(y)

#設定拓撲對象

set topo [new Topography]

topoloadflatgridtopoloadflatgridval(x) $val(y)

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

#nsinitialnodeposnsinitialnodeposSerNode 10

?

#設置移動節點的屬性

nsnode?config?adhocRoutingnsnode?config?adhocRoutingval(rp) \

-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<i<val(nn) } {incr i} {

set node_(i)[i)[ns node]

#nsinitialnodeposnsinitialnodeposnode_($i) 10

}

#設定節點的初始位置

$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

?

#設定有線鏈路的帶寬，時延，隊列類型

nsduplex?linknsduplex?linkSerNode $node_(1) 2Mb 150ms DropTail

nsduplex?linknsduplex?linkSerNode $node_(2) 2Mb 150ms DropTail

nsduplex?linknsduplex?linkSerNode $node_(4) 2Mb 150ms DropTail

nsduplex?linknsduplex?linkSerNode $node_(8) 2Mb 150ms DropTail

nsduplex?linknsduplex?linkSerNode $node_(9) 2Mb 150ms DropTail

#設定鏈路隊列大小

nsqueue?limitnsqueue?limitSerNode $node_(1) 20

nsqueue?limitnsqueue?limitSerNode $node_(2) 20

nsqueue?limitnsqueue?limitSerNode $node_(4) 20

nsqueue?limitnsqueue?limitSerNode $node_(8) 20

nsqueue?limitnsqueue?limitSerNode $node_(9) 20

?

#監測節點間的隊列

#數據包進入隊列的方位設置，此表示數據包從上到下進入隊列

nsduplex?link?opnsduplex?link?opSerNode $node_(1) queuePos 0.5

nsduplex?link?opnsduplex?link?opSerNode $node_(2) queuePos 0.5

nsduplex?link?opnsduplex?link?opSerNode $node_(4) queuePos 0.5

nsduplex?link?opnsduplex?link?opSerNode $node_(8) queuePos 0.5

nsduplex?link?opnsduplex?link?opSerNode $node_(9) queuePos 0.5

?

#建立tcp連接

set tcp0 [new Agent/TCP]

$ns color 1 Yellow

$tcp0 set class_ 1

nsattach?agentnsattach?agentSerNode $tcp0

set sink0 [new Agent/TCPSink]

nsattach?agentnsattach?agentnode_(1) $sink0

nsconnectnsconnecttcp0 $sink0

?

set tcp1 [new Agent/TCP]

$ns color 1 Yellow

$tcp1 set class_ 1

nsattach?agentnsattach?agentSerNode $tcp1

set sink1 [new Agent/TCPSink]

nsattach?agentnsattach?agentnode_(2) $sink1

nsconnectnsconnecttcp1 $sink1

?

set tcp2 [new Agent/TCP]

$ns color 1 Yellow

$tcp2 set class_ 1

nsattach?agentnsattach?agentSerNode $tcp2

set sink2 [new Agent/TCPSink]

nsattach?agentnsattach?agentnode_(4) $sink2

nsconnectnsconnecttcp2 $sink2

?

set tcp3 [new Agent/TCP]

$ns color 1 Yellow

$tcp3 set class_ 1

nsattach?agentnsattach?agentSerNode $tcp3

set sink3 [new Agent/TCPSink]

nsattach?agentnsattach?agentnode_(8) $sink3

nsconnectnsconnecttcp3 $sink3

?

set tcp4 [new Agent/TCP]

$ns color 1 Yellow

$tcp4 set class_ 1

nsattach?agentnsattach?agentSerNode $tcp4

set sink4 [new Agent/TCPSink]

nsattach?agentnsattach?agentnode_(9) $sink4

nsconnectnsconnecttcp4 $sink4

#設定ftp應用程序

set ftp0 [new Application/FTP]

ftp0attach?agentftp0attach?agenttcp0

set ftp1 [new Application/FTP]

ftp1attach?agentftp1attach?agenttcp1

set ftp2 [new Application/FTP]

ftp2attach?agentftp2attach?agenttcp2

set ftp3 [new Application/FTP]

ftp3attach?agentftp3attach?agenttcp3

set ftp4 [new Application/FTP]

ftp4attach?agentftp4attach?agenttcp4

?

#建立udp連接

set udp0 [new Agent/UDP]

$ns set color 2 Red

$udp0 set class_ 2

nsattach?agentnsattach?agentnode_(2) $udp0

set null0 [new Agent/Null]

nsattach?agentnsattach?agentnode_(5) $null0

nsconnectnsconnectudp0 $null0

set cbr0 [new Application/Traffic/CBR]

$cbr0 set packetSize0 100

$cbr0 set rate0 2Mb

cbr0attach?agentcbr0attach?agentudp0

?

set udp1 [new Agent/UDP]

$ns set color 2 Red

$udp1 set class_ 2

nsattach?agentnsattach?agentnode_(1) $udp1

set null1 [new Agent/Null]

nsattach?agentnsattach?agentnode_(6) $null1

nsconnectnsconnectudp1 $null1

set cbr1 [new Application/Traffic/CBR]

$cbr1 set packetSize1 100

$cbr1 set rate1 2Mb

cbr1attach?agentcbr1attach?agentudp1

?

set udp2 [new Agent/UDP]

$ns set color 2 Red

$udp2 set class_ 2

nsattach?agentnsattach?agentnode_(9) $udp2

set null2 [new Agent/Null]

nsattach?agentnsattach?agentnode_(7) $null2

nsconnectnsconnectudp2 $null2

set cbr2 [new Application/Traffic/CBR]

$cbr2 set packetSize2 100

$cbr2 set rate2 2Mb

cbr2attach?agentcbr2attach?agentudp2

#模擬節點的運動位置和速度

nsat1.0"nsat1.0"node_(5) setdest 850.0 100.0 50.0"

nsat2.5"nsat2.5"node_(6) setdest 900.0 100.0 80.0"

nsat13.0"nsat13.0"node_(7) setdest 500.0 100.0 30.0"

#時間調度器設置流量發生時間

nsat1.0"nsat1.0"ftp0 start"

nsat30.5"nsat30.5"ftp0 stop"

nsat1.0"nsat1.0"ftp1 start"

nsat30.5"nsat30.5"ftp1 stop"

nsat1.0"nsat1.0"ftp2 start"

nsat30.5"nsat30.5"ftp2 stop"

nsat1.0"nsat1.0"ftp3 start"

nsat30.5"nsat30.5"ftp3 stop"

nsat1.0"nsat1.0"ftp4 start"

nsat30.5"nsat30.5"ftp4 stop"

nsat1.0"nsat1.0"cbr0 start"

nsat16.2"nsat16.2"cbr0 stop"

nsat2.0"nsat2.0"cbr1 start"

nsat13.0"nsat13.0"cbr1 stop"

nsat13.0"nsat13.0"cbr2 start"

nsat24.0"nsat24.0"cbr2 stop"

?

#結束nam和simulator

nsatnsatval(stop) "stop"

nsatnsatval(stop) "puts \"end simulator\"; $ns halt"

proc stop {} {

global ns tracefd namtrace

$ns flush-trace

close $tracefd

close $namtrace

exec nam simwrls.nam &

exit 0

}

#開始模擬

$ns run

有圖有真相：

轉載于:https://www.cnblogs.com/zhangyuhang3/p/6868448.html

總結

以上是生活随笔為你收集整理的有线节点与无线节点的混合仿真模拟实验的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。