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

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