在NS2中用tcl脚本编写过程平均值

我想计算{energy_level，nodes of nodes&traffic's data on nodes}在5个静态节点的网络中，一个移动接收器的平均值。 我必须用tcl脚本代码中的proc计算这个平均值，而不是用awk代码

---

请帮助我

如果您收集了要计算平均值的值列表，请使用以下步骤进行计算：

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

---

值的求和使用带有扩展语法的

+

运算符命令，这是将所有值相加的最便宜的方法。

您尝试了什么？请阅读：