在tcl腳本中編寫proc avg ns2_new

我在ns2軟件中編寫了一個場景，其中有5個固定節點和1個移動接收器。移動接收器應該收集節點的信息。我想計算平均平均值（energy_level，節點上的節點數量&）並將其存儲在移動接收器中。我寫的代碼沒有任何錯誤，但沒有打印出來。我的代碼&跟蹤文件在附件我必須計算這個平均值與tcl腳本代碼中的proc而不是awk code.Please幫助我。在tcl腳本中編寫proc avg ns2_new

proc create_common_app {destination_id disseminating_type disseminating_interval energy_level } { 
 
    global val 
 
    #puts "executing create_common_app\n" 
 
    if { $val(commonApp) == "Application/SensorBaseApp/CommonNodeApp" } 
 
    { 
 
\t \t \t set app_ [new $val(commonApp)] 
 
\t \t \t $app_ set destination_id_ $destination_id 
 
    } 
 
    $app_ set disseminating_type_ $disseminating_type 
 
    $app_ set disseminating_interval_ $disseminating_interval 
 
    $app_ set energy_level _ $energy_level 
 
    return $app_ 
 
} 
 
proc create_mobile_sink_app { source _id disseminating_type disseminating_interval energy_level outside_network} { 
 
    global val 
 
    set app_ [new $val(sinkApp)] 
 
    $app_ set source _id _ $source _id 
 
    $app_ set disseminating_type_ $disseminating_type 
 
    $app_ set disseminating_interval_ $disseminating_interval 
 
    $app_ set energy_level _ $energy_level 
 
    $app_ set outside_network_ $outside_network 
 
    #$app_ set avg_ $avg 
 
    return $app_ 
 
} 
 
######################################################################### 
 
#Me 
 
#################################################################### 
 
proc avg { energy_level nn disseminating_interval } { 
 
    set avgen 0 
 
    for {set i 0} {$i < 5} {incr i} { 
 
    set $avgen [expr $energy_level(i) + $avgen ] 
 
    } 
 
    set $avgen [expr $avgen/$nn] 
 
    return $avgen 
 
\t set xl [list $avgen $nn $disseminating_interval] 
 
} 
 

 
proc ArithmeticMean { $xl } { 
 
    set length [llength $xl] 
 
    if {$length == 0} { 
 
     return 0.0 
 
    } 
 
    set sum [::tcl::mathop::+ {*}$xl] 
 
    return [expr {double($sum)/$length}] 
 
    set avgt [expr {double($sum)/$length}] 
 
    puts "average is $avgt_" 
 
} 
 
#####################################################################

跟蹤文件


 
M 0.00000 0 (9.00, 5.00, 0.00), (0.00, 0.00), 0.00 
 
s 5.000000000 _1_ AGT --- 0 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [0] 0 0 
 
r 5.000000000 _1_ RTR --- 0 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [0] 0 0 
 
s 5.000000000 _1_ AGT --- 1 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [1] 0 0 
 
r 5.000000000 _1_ RTR --- 1 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [1] 0 0 
 
s 5.000000000 _1_ AGT --- 2 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [2] 0 0 
 
r 5.000000000 _1_ RTR --- 2 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [2] 0 0 
 
s 5.000000000 _1_ AGT --- 3 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [3] 0 0 
 
r 5.000000000 _1_ RTR --- 3 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [3] 0 0 
 
s 5.000000000 _1_ AGT --- 4 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [4] 0 0 
 
r 5.000000000 _1_ RTR --- 4 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [4] 0 0 
 
s 5.000000000 _1_ AGT --- 5 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [5] 0 0 
 
r 5.000000000 _1_ RTR --- 5 cbr 150 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [5] 0 0 
 
s 5.000000000 _1_ AGT --- 6 cbr 100 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [6] 0 0 
 
r 5.000000000 _1_ RTR --- 6 cbr 100 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:0 2:0 32 0] [6] 0 0 
 
s 5.000000000 _1_ RTR --- 0 AODV 48 [0 0 0 0] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:255 -1:255 30 0] [0x2 1 1 [2 0] [1 4]] (REQUEST) 
 
s 5.000535000 _1_ MAC --- 0 AODV 106 [0 ffffffff 2 800] [energy 0.050000 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:255 -1:255 30 0] [0x2 1 1 [2 0] [1 4]] (REQUEST) 
 
N -t 5.000535 -n 0 -e 0.049980 
 
N -t 5.000535 -n 4 -e 0.049980 
 
N -t 5.000535 -n 2 -e 0.049980 
 
N -t 5.000535 -n 3 -e 0.049980 \t 
 
r 5.001383005 _0_ MAC --- 0 AODV 48 [0 ffffffff 2 800] [energy 0.049980 ei 0.000 es 0.000 et 0.000 er 0.000] ------- [1:255 -1:255 30 0] [0x2 1 1 [2 0] [1 4]] (REQUEST) 
 
r 5.001383013 _4_ MAC --- 0 AODV 48 [0 ffffffff 2 800] [energy 0.049980 ei 0.000 es 0.000 et 0.000 
 
. 
 
. 
 
.....

來源

2017-09-06 m.h

proc avg { energy_level nn disseminating_interval } { 
    set avgen 0 
    for {set i 0} {$i < 5} {incr i} { 
    set $avgen [expr $energy_level(i) + $avgen ] 
    } 
    set $avgen [expr $avgen/$nn] 
    return $avgen 
    set xl [list $avgen $nn $disseminating_interval] 
}

注：

不能按值傳遞數組：你需要傳遞數組名和使用upvar的名稱在調用者的上下文
使用大括號連接到實際陣列周圍的expr表達式。
您需要在數組擴展中解除引用$i。
不要在第一個參數使用$到set
你想在for循環使用$nn，或硬編碼值5？

更正代碼

proc avg { energy_level_var nn disseminating_interval } { 
    upvar 1 $energy_level_var energy_level 
    if {$nn == 0} { 
     error "denominator cannot be zero" 
    } 
    set sum 0 
    for {set i 0} {$i < $nn} {incr i} { 
     set sum [expr {$energy_level($i) + $sum}] 
    } 
    return [expr {$sum/$nn}] 
}

而且這樣調用

array set energy_level {0 1.0 1 1.1 2 1.2 3 1.3 4 1.4 5 1.5} 
puts "average is: [avg energy_level 6 "?"]"   ;# average is: 1.25

此外，在ArithmeticMean PROC聲明不使用$：

proc ArithmeticMean { xl } {

來源

2017-09-06 20:08:05

在tcl腳本中編寫proc avg ns2_new

回答

相關問題