?? stat-clus.tcl
字號:
############################################################################## 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?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -