NS2のtclスクリプトでproc avgを書く

Question

5つの静的ノードを持つネットワーク内の1つのモバイルシンクによって、{energy_level、ノード数ノード&、ノード上のトラフィックデータ}の平均を計算します。 私はこのavgをawkコードではなくtclスクリプトコードのprocで計算しなければなりません。

あなたは計算を行うには、この手順を使用し、平均を計算したい値のリストを収集している場合は、私に

Answer 1

を助けてください：

proc ArithmeticMean {listOfValues} { 
    set length [llength $listOfValues] 
    if {$length == 0} { 
     return 0.0 
    } 
    set sum [::tcl::mathop::+ {*}$listOfValues] 
    return [expr {double($sum)/$length}] 
} 

値の加算は使用しています+「演算子コマンド」を展開構文で使用すると、それらをすべて一緒に追加する最も簡単な方法です。