############################################################################## This code was developed as part of the MIT uAMPS project. (wbh 3/24/00)#############################################################################source $env(uAMPS_LIBRARY)/ns-leach.tclsource $env(uAMPS_LIBRARY)/ns-leach-c.tclsource $env(uAMPS_LIBRARY)/ns-stat-cluster.tclset opt(rcapp)        "LEACH-C/StatClustering"  ;# Application typeset opt(tr)           "/tmp/stat_clus"          ;# Trace file# Need to spread the data by k+1set opt(spreading)    [expr $opt(num_clusters)+1]set outf [open "$opt(dirname)/conditions.txt" w]puts $outf "\nUSING STATIC-CLUSTERING: CENTRALIZED CLUSTER FORMATION\n"close $outfsource mit/uAMPS/sims/uamps.tcl# Parameters for centralized control cluster formation algorithmset opt(adv_info_time)     [TxTime [expr $opt(hdr_size) + 12]]set opt(finish_adv)        [expr $opt(nn_) * $opt(adv_info_time)]set opt(bs_setup_iters)    1000      ;# Num iters for sim. annealing alg.set opt(bs_setup_max_eps)  10        ;# Max change for sim. annealing alg.set outf [open "$opt(dirname)/conditions.txt" a]puts $outf "Desired number of clusters = $opt(num_clusters)"puts $outf "Spreading factor = $opt(spreading)\n"close $outf