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

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脚本语言中文详解 - TCL用 法祥述一 TCL 语法 1 脚本、命令和单词符号 一个 TCL 脚本可以包含一个或多个命令。命令之间必须用换行符或分号隔开,下面的两个...
TCL脚本实例解读
TCL脚本实例解读 - TCL 脚本实例解读 脚本实例解读 作者:杨帆、 作者:杨帆、老卢 前言 Sigma 的这段日子在技术方面感觉提高的方面可能就是脚本的编写吧,我感 觉...
tcl脚本
tcl脚本_幼儿读物_幼儿教育_教育专区。三个节点无线通信例题TCL代码#无线节点参数 set val(chan) set val(prop) set val(netif) set val(mac) set val(ifq)...
Tcl脚本编程测试题
Tcl脚本编程测试题 - Tcl/Tk Quiz Sheet Time: 2 hours Part I. Fill Out. (10%) Tcl is for ___...
Tcl脚本测试入门.doc
Tcl脚本测试入门.doc_计算机软件及应用_IT/计算机_专业资料。Tcl 简介 Tcl 是一种非常简单的编程语言,如果你以前曾经学过编程,那么你只 要学习几个小时就可以编写...
如何使用Tcl脚本自动仿真Modelsim
如何使用Tcl脚本自动仿真Modelsim - 从网上找了一些关于如何用 do 文件自动仿真 modelsim 的资料,自己做了一些整理,分享一 下经验吧。 为方便工程管理,我建了三个...
Modelsim中常用的Tcl命令
Modelsim中常用的Tcl命令 - Modelsim 中常用的 Tcl 命令: 一.执行 tcl do ./work/run.tcl 二.编译 1. vlog vlog testbench...
基于TCL语言和ATF框架的自动化测试实现初步讨论
本文初步研究了基于 TCL 语言和 ATF 框架的自动化测试脚本, 为自动化测试的实现打下基础。 关键字:自动化测试 TCL 语言 ATF 架构 1、 TCL 语言简介 TCL(Tool...
TclTk脚本语言
TclTk脚本语言_IT/计算机_专业资料。TclTk脚本语言Tcl / Tk 大全 作者:陆绍飞 会员名:lsf 中国互动出版网 http://www.china-pub.com Tcl / Tk 大全 ......
使用TCL脚本以减少Quartus综合时间
使用TCL脚本以减少Quartus综合时间 - TCL 脚减 Quartus 综 时间 allun.wei 2011-062011-06-28 chengdu 这里介绍几种不同的实现方法,...
更多相关标签: