实验4--无线个域网仿真(二)-ZBR协议.doc

《实验4--无线个域网仿真(二)-ZBR协议.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、西安邮电大学（计算机学院）课内实豔报告实验名称：无线个域网仿真（二）-ZBR协议专业：网络工程班缠姓名学号：指导教日期理解IEEE802.15.4协议的工作机制。%1.实验环境VirtualBox+Ubuntu+NS2%1.实验内容1.ZBR协议ZBR为无线ZigBee网络的网络层协议，实现了低成本、低功耗、可靠性高等设计目标。2.仿真拓扑实验网络拓扑结构含21个节点，节点编号从0到20连续编码。®®©©©CD©⑤©©€9©③%1.实验过程及分析1.阅读并解释仿真代码(WPANZigbee.tel),描述仿

2、真设置;Mac/802_15_4wpanCmdverboseonMac/802_15_4wpanNamnamStatusonPhy/Wi.relessPhysetCSTh「esh_1.33527e-06Phy/WirelessPhysetRXThresh^1.33527e-66模块参数设置为802.15.4,使用802.15.4协议setappTtmel10insecondssetappTtme271tnsecondssetappTtme372insecondssetappTime473insecondss

3、etappTtme574tnsecondssetappTime675insecondssetstopTimeieeinseconds设置一个时间点，进行协调器与协调节点通信进行控制。#InitializeGlobalVariablessetns[newSimulator]settracefd[openWPAN_Ztgbee.trw]$nstrace-all$tracefdif{$val(nam)"=="WPANZigbee.nan"}{setnamtrace[open・/$val(nam)w]$nsnamt

4、race-all-wireless$namtrace$val(x)$val(y)}$nsputs・nam・t「aceall{#nam4wpan#}settopo[newTopography]$topoload__flatgrtd$val(x)$val(y)setgod_[create-god$val(nn)]setchan_l_[new$val(chan)]初始化数据^TrafficDeftnttton"Mac/802_15_4wpanNamPlaybackRate4ms$nsat$appTtnelMac/

5、802_15_4wpanNamPlaybackRate1.0msH$nsat[expr$appTtmel+0.5]Mac/802_15_4wpanNamPlaybackRate2.0ms"$nsat$appTtmel"putsMTransmttttngdata..-MMproccbrtrafftc{srcdstintervalstartttme}{globalnsnode_setudp_($s「c)[newAgent/UDP]eval$nsattach-agent$node_($src)$u

6、dp_($src)setnull_($dst)[newAgent/Null]eval$nsattach-agent$node_($dst)$null_($dst)setcbr_($src)[newAppltcatton/Traffic/CBR]eval$cbr_($src)setpacketStze_80eval$cbr_($src)setinterval^$tntervaleval$cbr.($src)setrandom^0eval$cbr_($src)attach-agent$udp_($

7、s「c)eval$nsconnect$udp_($s「c)$null_($dst)$nsat$startttme$cbr_($src)start11流量肚义设置速率procftptraffic{srcdststarttime}{globalnsnode_settcp($src)[newAgent/TCP]eval$tcp($src)setpacketStze_60setstnk($dst)[newAgent/TCPStnk]eval$nsattach-agent$node_($src)$tcp($

8、src)eval$nsattach-agent$node_($dst)$stnk($dst)eval$nsconnect$tcp($src)$stnk($dst)setftp($src)[newApplication/FTP]eval$ftp($src)attach-agent$tcp($src)$nsat$startttne$ftp($src)start"}控制ftp包if{"$val(trafft