ns2 leach bug

转摘于http://blog.163.com/lt_lvtao/blog/static/43846410200984119913/?fromdm&fromSearch&isFromSearchEngine=yes

1、能量消耗的问题．ＬＥＡＣＨ协议运行完后，有个记录节点能量的文件，最后节点的总消耗超过了我们最初设定的２Ｊ能量，这个是因为checkalive过程中对死亡的节点只是设置标志,移出信道,但并没有终止其发送数据（数据发送不出，但能量继续消耗）．解决方法就是：对死亡节点的处理代码最后加一句 $self  GoToSleep就可以了,虽然加这个不"正规",但意思到了,就是要死亡节点停止所有的活动就可以了.

Application/LEACH instproc checkAlive {} {
  global ns_ chan opt node_
  $self instvar alive_ TDMAschedule_
  $self instvar begin_idle_ begin_sleep_
  # Check the alive status of the node.  If the node has run out of
  # energy, it no longer functions in the network.
  set ISalive [[[$self node] set netif_(0)] set alive_]
  if {$alive_ == 1} {
    if {$ISalive == 0} {
      puts "Node [$self nodeID] is DEAD!!!!"
      $chan removeif [[$self node] set netif_(0)]
      set alive_ 0
      set opt(nn_) [expr $opt(nn_) - 1]
      if {$opt(rcapp) == "LEACH-C/StatClustering" && \
          [$self isClusterHead?]} {
        foreach element $TDMAschedule_ {
          if {$element != [$self nodeID]} {
            puts "Node $element is effectively DEAD!!!!"
            $chan removeif [$node_($element) set netif_(0)]
            [$node_($element) set netif_(0)] set alive_ 0
            [$node_($element) set rca_app_] set alive_ 0
            set opt(nn_) [expr $opt(nn_) - 1]
          }
        }
      }
      
      #To solove the Energy consumed > Totle Energy bug
   $self GoToSleep
    } else {
      $ns_ at [expr [$ns_ now] + 0.1] "$self checkAlive"
      if {$begin_idle_ >= $begin_sleep_} {
        set idle_energy [expr $opt(Pidle) * [expr [$ns_ now] - $begin_idle_]]
        [$self getER] remove $idle_energy
        set begin_idle_ [$ns_ now]
      } else {
        set sleep_energy [expr $opt(Psleep) * [expr [$ns_ now] - $begin_sleep_]]
        [$self getER] remove $sleep_energy
        set begin_sleep_ [$ns_ now]
      }
    }
  }
  if {$opt(nn_) < $opt(num_clusters)} "sens_finish"
}

2、新版本不兼容旧版本的一些参数，在＊．out文件中会出现发送时的一些错误．解决方法：将ＮＳ－ＬＡＥＣＨ．ＴＣＬ文件中第６５４行的dst＿换成dst＿addr就可以了．

Application/LEACH instproc send_now {mac_dst link_dst type msg \
                                          data_size dist code} {
    [$self agent] set packetMsg_ $type
    [$self agent] set dst_addr_ $mac_dst
    [$self agent] sendmsg $data_size $msg $mac_dst $link_dst $dist $code
}