leach.tcl

Matlab下的大名鼎鼎的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)           "/tmp/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