在NS2的tcl脚本中编写proc avg

Question

我想计算{energy_level，节点数和数量的平均值。具有5个静态节点的网络中的一个移动接收器在节点上的流量数据。  我必须使用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}]
}

值的求和使用+“运算符命令”和扩展语法，并且是将它们全部加在一起的最便宜方式。