écriture proc avg dans le script tcl dans NS2

Question

Je veux calculer moy de {energy_level, nombre de noeuds & les données de trafic sur les noeuds} par un récepteur mobile dans le réseau avec 5 noeuds statiques. Je dois calculer cette moyenne avec proc dans le code de script tcl pas avec le code awk.

S'il vous plaît aidez-moi

Answer 1

Si vous avez recueilli une liste de valeurs que vous souhaitez calculer la moyenne, utilisez cette procédure pour faire le calcul:

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

La sommation des valeurs utilise la + "commande d'opérateur" avec la syntaxe d'expansion, et est le moyen le meilleur marché de les ajouter tous ensemble.