在网上搜了很久，很少有将leach协议的nam实现的。这里我将自己是怎么将leach协议的nam仿真的修改过程写出来。
1、在将wireless.tcl中加入一下一些代码：
# Initialize Global Variables # set ns_ [new Simulator] set chan [new $opt(chan)] set prop [new $opt(prop)] set topo [new Topography] #set tracefd [open $opt(tr) w] set tracefd [open leach.tr w] set namtrace [open leach.nam w] #nam文件名为leach.nam $ns_ trace-all $tracefd $ns_ namtrace-all-wireless $namtrace $opt(x) $opt(y)
#每个节点的跟踪设置
create-god $opt(nn)
$ns_ node-config -adhocRouting $opt(rp) / -llType $opt(ll) / -macType $opt(mac) / -ifqType $opt(ifq) / -ifqLen $opt(ifqlen) / -antType $opt(ant) / -propType $opt(prop) / -phyType $opt(netif) / -channel $opt(chan) / -topoInstance $topo / -agentTrace ON / -routerTrace ON / -macTrace ON / -wiredRouting OFF
#注意下面加载网络拓扑的代码一定要放在 initial_node_pos调用的前 面 , 否则出现下面很多人提到的问题,只显示BS节点,其实其它节点都已经显示了,但是位置都为(0,0),所以看不出来:
if { $opt(sc) == "" } { puts "*** NOTE: no scenario file specified." set opt(sc) "none" } else { puts "Loading scenario file..." source $opt(sc) puts "Load complete..." }
#有的wireless.tcl中可能没有上面这段,那就自己加入即可,其中的opt(sc)就是节点的拓扑图,通过genscen生成的那个文件.
#初始化节点的位置，如果不加这个，在nam仿真时会出现节点没有定义
for {set i 0} {$i<$opt(nn)} {incr i} { $ns_ initial_node_pos $node_($i) 6 }
$ns_ at $opt(stop).0002 "puts/"NS EXITING.../";$ns_ halt" $ns_ at $opt(stop).0001 "stop"
proc stop {} {
global ns_ tracefd namtrace $ns_ flush-trace close $tracefd close $namtrace exec nam leach.nam & exit 0
}
这样wireless.tcl修改好了，其实这样已经可以实现leach协议的仿真，但是nam动画不好看
接下来我自己修改、添加了uamps.tcl和ns-leach.tcl，这样在仿真nam动画是可以标识出bsnode、簇头、同族节点
2、在uamps.tcl中添加一句：
} else { puts "($opt(nn_) == BS)" set node_($id) [new MobileNode/ResourceAwareNode $BS_NODE] $node_($id) label "BS" $node_($id) label-color red }
这样bsnode在nam仿真时会在节点头顶出现一个红色的BS
3、在ns-leach.tcl文件中的createSchedule加入：
Application/LEACH instproc createSchedule {} {
global ns_ opt ADV_SCH MAC_BROADCAST BYTES_ID node_ $self instvar clusterNodes_ TDMAschedule_ rng_ $self instvar dist_ code_ now_ beginningE_ set colorarray(0) "red" set colorarray(1) "yellow" set colorarray(2) "blue" set colorarray(3) "green" set colorarray(4) "chocolate" set colorarray(5) "brown" set colorarray(6) "tan" set colorarray(7) "blank" set numNodes [llength $clusterNodes_] set chID [$self nodeID] if {$numNodes == 0} { set xmitOrder "" puts "Warning! There are no nodes in this cluster ($chID)!" $self SendMyDataToBS } else { # Set the TDMA schedule and send it to all nodes in the cluster. set xmitOrder $clusterNodes_ set msg [list $xmitOrder] set spreading_factor $opt(spreading) set datasize [expr $spreading_factor * $BYTES_ID * [llength $xmitOrder]] pp "$chID sending TDMA schedule: $xmitOrder at time [$ns_ now]" pp "Packet size is $datasize." set mac_dst $MAC_BROADCAST set link_dst $chID $self send $mac_dst $link_dst $ADV_SCH $msg $datasize $dist_ $code_ set c_a_ [expr int([$rng_ uniform 0 7])] $node_($chID) add-mark A $colorarray($c_a_) square #簇头是用正方形框住的 for {set i 0} {$i<$numNodes} {incr i} { set n [lindex $xmitOrder $i] $node_($n) add-mark A $colorarray($c_a_) hexagon #同一族的颜色是用和簇头相同颜色的六变形框住的 } }
这样修改完成。
说明，由于颜色只有8中，所以有可能簇头会出现相同的颜色，这样不是很容易区分。这是一个不完美的地方。
转自:http://hi.baidu.com/zhaochuanbiao/blog/item/058e1729059cd9f0e7cd405b.html
