当前位置:首页 >> 幼儿读物 >>

tcl脚本


#无线节点参数 set val(chan) set val(prop) set val(netif) set val(mac) set val(ifq) set val(ll) set val(ant) set val(ifqlen) set val(rp) set val(x) set val(y) set val(stop) set val(nn) #建立一个模拟实例 set ns [new Simulator]

Channel/WirelessChannel Propagation/TwoRayGround Phy/WirelessPhy Mac/802_11 Queue/DropTail/PriQueue LL Antenna/OmniAntenna 50 AODV 600 200 10.0 3

;#无线信道 ; #无线传输模型是 TwoRayGround ;#网络接口类型是无线物理层 ;#MAC 层协议采用 802.11 ;#接口队列类型是 IFQ 队列 ;#逻辑链路层类型 LL 层 ;#天线类型是全向天线 ;#网络接口队列的大小是 50 ;#无线路由协议是 AODV 协议 ;#设定拓扑范围——长度,600m ;#设定拓扑范围——宽度,200m ;#设定模拟时间,10s ;#节点数,3 个

#开启 Trace 跟踪文件和 NAM 显示文件 set tracefd [open wireless.tr w] set namtrace [open wireless.nam w] $ns trace-all $tracefd $ns namtrace-all-wireless $namtrace $val(x) $val(y) #建立一个拓扑对象,记录节点的移动情况 set topo [new Topography] $topo load_flatgrid $val(x) $val(y) #创建 God(General Operations Diretor)对象,存储网络状态以及节点间连接信息 create-god $val(nn) #创建物理信道对象 set chan_1_ [new $val(chan)] #配置无线节点(包括使用何种路由协议,何种 MAC 协议,无线信道模型等) $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) \ -channel $chan_1_ \

-topoInstance $topo \ -agentTrace ON \ -routerTrace ON \ -macTrace ON \ -movementTrace OFF #建立无线节点并设置节点的位置(节点位置决定了拓扑结构) set n(0) [$ns node] $n(0) random-motion 0 $n(0) set X_ 100.0 $n(0) set Y_ 100.0 $n(0) set Z_ 0.0 $ns initial_node_pos $n(0) 60 set n(1) [$ns node] $n(1) random-motion 0 $n(1) set X_ 300.0 $n(1) set Y_ 100.0 $n(1) set Z_ 0.0 $ns initial_node_pos $n(1) 60 set n(2) [$ns node] $n(2) random-motion 0 $n(2) set X_ 500.0 $n(2) set Y_ 100.0 $n(2) set Z_ 0.0 $ns initial_node_pos $n(2) 60 #建立 UDP 代理 set udp0 [new Agent/UDP] $ns attach-agent $n(0) $udp0 set null0 [new Agent/Null] $ns attach-agent $n(2) $null0 $ns connect $udp0 $null0 #在 UDP 代理上建立 CBR 流 set cbr0 [new Application/Traffic/CBR] $cbr0 attach-agent $udp0 #仿真结束时重置节点 for {set i 0} {$i < 3} {incr i} { $ns at 10.0 "$n($i) reset"; } #启动和结束代理

;#建立一个 UDP 发送代理 ;#将 UDP 发送代理绑定到节点 0 ;#建立一个 UDP 接收代理 ;#将 UDP 接收代理绑定到节点 2 ;#连接 UDP 发送代理和接收代理 ;#建立一个 CBR 流应用 ;#将 CBR 流应用绑定到 UDP 发送代理

$ns at 0.5 "$cbr0 start" $ns at 9.5 "$cbr0 stop" #定义结束过程,关闭 Trace 文件和 NAM 显示文件,模拟结束时调用 proc finish {} { global ns tracefd namtrace $ns flush-trace close $tracefd close $namtrace exit 0 } #模拟结束时调用结束过程 $ns at $val(stop) "finish" $ns at $val(stop) "puts \"NS EXISTING...\"; $ns halt" puts "Start simulation..." #执行模拟 $ns run


赞助商链接
相关文章:
系统学习TCL脚本入门教程
系统学习TCL脚本入门教程_计算机软件及应用_IT/计算机_专业资料。系统学习TCL脚本入门教程 系统学习 TCL 脚本入门教程 版本:1. 0 作者:次 目 1 1.1 1.2 1....
tcl脚本
tcl脚本_幼儿读物_幼儿教育_教育专区。三个节点无线通信例题TCL代码#无线节点参数 set val(chan) set val(prop) set val(netif) set val(mac) set val(ifq)...
tcl脚本测试入门
tcl脚本测试入门_计算机软件及应用_IT/计算机_专业资料。tcl脚本测试入门 tcl 脚本测试入门 Tcl 简介 Tcl 是一种非常简单的编程语言,如果你以前曾经学过编程,那么...
TCL脚本实例解读
TCL 脚本实例解读 脚本实例解读作者:杨帆、 作者:杨帆、老卢 前言 Sigma 的这段日子在技术方面感觉提高的方面可能就是脚本的编写吧,我感 觉写一个可用的脚本,并...
tcl脚本语言中文详解
tcl脚本语言中文详解_IT/计算机_专业资料。tcl脚本语言中文详解TCL用 法祥述一 TCL 语法 1 脚本、命令和单词符号 一个 TCL 脚本可以包含一个或多个命令。命令之...
TCL脚本语言
系统学习 TCL 脚本入门教程 版本: 版本:1. 0 目 1 1.1 1.2 1.3 1.4 2 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 2.10 2.11 2.12 2.13 ...
如何使用Tcl脚本自动仿真Modelsim
如何使用Tcl脚本自动仿真Modelsim_IT/计算机_专业资料 暂无评价|0人阅读|0次下载|举报文档 如何使用Tcl脚本自动仿真Modelsim_IT/计算机_专业资料。...
TCL脚本实例+检查IP的脚本源码
TCL脚本实例+检查IP的脚本源码_IT/计算机_专业资料。TCL脚本实例+检查IP的脚本源码TCL 脚本实例 检查 IP 的脚本 §1 脚本源码 脚本实例: 本脚本系谭勇书写 运行...
基于TCL语言和ATF框架的自动化测试实现初步讨论
本文初步研究了基于 TCL 语言和 ATF 框架的自动化测试脚本, 为自动化测试的实现打下基础。 关键字:自动化测试 TCL 语言 ATF 架构 1、 TCL 语言简介 TCL(Tool...
使用TCL脚本以减少Quartus综合时间
使用TCL脚本以减少Quartus综合时间_IT/计算机_专业资料。使用TCL脚本以减少Quartus综合时间TCL 脚减 Quartus 综 时间 allun.wei 2011-062011-06-28 chengdu 这里介...
更多相关标签: