- 1、本文档共113页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
《NS网络模拟和协议仿真源代码》.doc
第4章
例1
#建立一个模拟
set ns [new Simulator]
#定义不同数据流的颜色(NAM显示时用到)
$ns color 1 Blue
$ns color 2 Red
#开启Trace跟踪和NAM跟踪
set tracefd [open wired.tr w]
$ns trace-all $tracefd
set nf [open wired.nam w]
$ns namtrace-all $nf
#定义结束进程
proc finish {} {
global ns tracefd nf
$ns flush-trace
close $tracefd
close $nf
exit 0
}
#定义节点
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
#$n5 color black
$n5 color red
#定义节点间的链路
$ns duplex-link $n0 $n1 2Mb 10ms DropTail
$ns duplex-link $n1 $n2 2Mb 10ms DropTail
$ns duplex-link $n1 $n4 2Mb 20ms DropTail
$ns duplex-link $n3 $n4 2Mb 10ms DropTail
$ns duplex-link $n4 $n5 2Mb 10ms DropTail
#定义链路的队列长度
$ns queue-limit $n1 $n4 10
#指定节点间的相互位置(NAM显示用到)
$ns duplex-link-op $n0 $n1 orient right-down
$ns duplex-link-op $n2 $n1 orient right-up
$ns duplex-link-op $n1 $n4 orient right
$ns duplex-link-op $n3 $n4 orient left-down
$ns duplex-link-op $n5 $n4 orient left-up
#监视链路的队列
$ns duplex-link-op $n1 $n4 queuePos 0.5
#建立一个TCP连接
set tcp [new Agent/TCP]
$tcp set class_ 2
$ns attach-agent $n0 $tcp
set sink [new Agent/TCPSink]
$ns attach-agent $n5 $sink
$ns connect $tcp $sink
$tcp set fid_ 1
#在TCP连接上建立FTP流
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ftp set type_ FTP
#建立一个UDP代理
set udp [new Agent/UDP] ;#建立一个数据发送代理
$ns attach-agent $n2 $udp ;#将数据发送代理绑定到发送节点
set null [new Agent/Null] ;#建立一个数据接收代理
$ns attach-agent $n3 $null ;#将数据接收代理绑定到接收节点
$ns connect $udp $null ;#连接两个代理(也就决定了数据包的发送和接收节点)
$udp set fid_ 2
#在UDP代理上建立CBR流
set cbr [new Application/Traffic/CBR]
$cbr attach-agent $udp
$cbr set type_ CBR
$cbr set packet_size_ 1000
$cbr set rate_ 1mb
$cbr set random_ false
#启动和结束流代理
$ns at 0.5 $cbr start
$ns at 1.0 $ftp start
$ns at 9.0 $ftp stop
$ns at 9.5 $cbr stop
$ns at 9.5 $ns detach-agent $n0 $tcp; $ns detach-agent $n5 $sink
#仿真结束时调用结束进程
$ns at 10.0 finish
#打印CBR数据包的大小和间隔
puts CBR packet_size_ = [$cbr set packet_size_]
puts CBR interval = [$cbr
您可能关注的文档
- 《microphone-SSM2167》.pdf
- 《microphone_snaa114》.pdf
- 《microscan_870中文简明设置》.docx
- 《Microsoft Office 2016 powpoint 快速培训》.ppt
- 《Microsoft_Office_Project_2016培训》.ppt
- 《Microsoft_Office_Project_2016培训教程》.ppt
- 《Microsoft_Office__PowerPoint_2016培训_对幻灯片设计进行个性化设置》.ppt
- 《MIS课程Access实验教材》.pdf
- 《MKS-Cracking the Code on Winning E-Marketing Organizaiton》.pdf
- 《Mobile Apps Advertising and Marketing》.pdf
文档评论(0)