在NS2中的tcl腳本中寫入proc avg

Question

我想通過具有5個靜態節點的網絡中的一個移動接收器來計算{節點數目{節點數量}的節點數量}的avg。 我必須用tcl腳本代碼中的proc來計算這個平均值，而不是用awk代碼。

請幫我

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}] 
} 

值的求和使用+「操作員命令」具有擴展語法，並且是將它們全部加在一起的最便宜的方式。