tcl/mobility/leach.tcl代码功能

整体代码

 
这段代码用于配置和运行LEACH协议的模拟。

############################################################################
#
# This code was developed as part of the MIT uAMPS project. (June, 2000)
#
############################################################################

source mit/uAMPS/ns-leach.tcl

set opt(rcapp)        "Application/LEACH"        ;# Application type
set opt(tr)           "$opt(dirname)/leach.tr"            ;# Trace file
# Can have more than k clusters in LEACH ==> need more than k spreading
set opt(spreading)    [expr int([expr 1.5*$opt(num_clusters)])+1]

set outf [open "$opt(dirname)/conditions.txt" w]
puts $outf "\nUSING LEACH: DISTRIBUTED CLUSTER FORMATION\n"
close $outf

source mit/uAMPS/sims/uamps.tcl


# Parameters for distrbuted cluster formation algorithm
                                          ;# RA Time (s) for CH ADVs
set opt(ra_adv)       [TxTime [expr $opt(hdr_size) + 4]]  
                                          ;# Total time (s) for CH ADVs
                                          ;# Assume max 4(nn*%) CHs
set opt(ra_adv_total) [expr $opt(ra_adv)*($opt(num_clusters)*4 + 1)]
                                          ;# RA Time (s) for nodes' join reqs
set opt(ra_join)      [expr 0.01 * $opt(nn_)]             
                                          ;# Buffer time for join req xmittal
set opt(ra_delay)     [TxTime [expr $opt(hdr_size) + 4]]         
                                          ;# Maximum time required to transmit 
                                          ;# a schedule (n nodes in 1 cluster)
set opt(xmit_sch)     [expr 0.005 + [TxTime [expr $opt(nn_)*4+$opt(hdr_size)]]]
                                          ;# Overhead time for cluster set-up
set opt(start_xmit)   [expr $opt(ra_adv_total) + $opt(ra_join) + $opt(xmit_sch)]


set outf [open "$opt(dirname)/conditions.txt" a]
if {$opt(eq_energy) == 1} {
  puts $outf "Thresholds chosen using original probs."
} else {
  puts $outf "Thresholds chosen using energy probs."
}
puts $outf "Desired number of clusters = $opt(num_clusters)"
puts $outf "Spreading factor = $opt(spreading)"
puts $outf "Changing clusters every $opt(ch_change) seconds\n"
close $outf

具体解释

参数设置

source mit/uAMPS/ns-leach.tcl

set opt(rcapp)        "Application/LEACH"        ;# Application type
set opt(tr)           "$opt(dirname)/leach.tr"   ;# Trace file
set opt(spreading)    [expr int([expr 1.5*$opt(num_clusters)])+1]

source mit/uAMPS/ns-leach.tcl：加载LEACH协议的相关TCL脚本。
opt(rcapp)：设置应用类型为LEACH。
opt(tr)：设置跟踪文件的路径。
opt(spreading)：设置扩展因子，为1.5倍的簇数量加1。扩展因子被设定为期望簇数量的1.5倍加1，从而增加了簇头的数量和分布随机性，以实现更好的网络覆盖和能量效率。

输出模拟条件

set outf [open "$opt(dirname)/conditions.txt" w]
puts $outf "\nUSING LEACH: DISTRIBUTED CLUSTER FORMATION\n"
close $outf

source mit/uAMPS/sims/uamps.tcl

open 和 puts 用于打开并写入条件文件，记录模拟的基本信息。
source mit/uAMPS/sims/uamps.tcl：加载uAMPS（一种模拟平台）相关的TCL脚本。

LEACH协议参数设置

# Parameters for distributed cluster formation algorithm
set opt(ra_adv)       [TxTime [expr $opt(hdr_size) + 4]]
set opt(ra_adv_total) [expr $opt(ra_adv)*($opt(num_clusters)*4 + 1)]
set opt(ra_join)      [expr 0.01 * $opt(nn_)]
set opt(ra_delay)     [TxTime [expr $opt(hdr_size) + 4]]
set opt(xmit_sch)     [expr 0.005 + [TxTime [expr $opt(nn_)*4+$opt(hdr_size)]]]
set opt(start_xmit)   [expr $opt(ra_adv_total) + $opt(ra_join) + $opt(xmit_sch)]

opt(ra_adv)：设置簇头广播广告的时间。
opt(ra_adv_total)：设置簇头广告的总时间。
opt(ra_join)：设置节点加入请求的时间。
opt(ra_delay)：设置加入请求的传输缓冲时间。
opt(xmit_sch)：设置传输调度的最大时间。
opt(start_xmit)：设置簇建立的开销时间。

记录模拟条件

set outf [open "$opt(dirname)/conditions.txt" a]
if {$opt(eq_energy) == 1} {
  puts $outf "Thresholds chosen using original probs."
} else {
  puts $outf "Thresholds chosen using energy probs."
}
puts $outf "Desired number of clusters = $opt(num_clusters)"
puts $outf "Spreading factor = $opt(spreading)"
puts $outf "Changing clusters every $opt(ch_change) seconds\n"
close $outf

if {$opt(eq_energy) == 1}：根据是否使用均等能量阈值，记录选择阈值的方法。
记录期望的簇数量、扩展因子和簇更换时间到条件文件中。

总结

这段代码配置和记录了LEACH协议的模拟条件，主要包括应用类型、跟踪文件路径、簇头广告时间、节点加入请求时间、传输调度时间以及其他与簇建立和更换相关的参数。通过这种方式，可以对LEACH协议进行有效的模拟和性能评估。