在 NS2 的 tcl 脚本中编写 proc avg

Question

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

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

在 NS2 的 tcl 脚本中编写 proc avg

writing proc avg in tcl script in NS2

tcl

proc

ns2