ns-energy-resource.tcl

来自「这个市一个ns环境下的leach算法！大家可以多下在啊！我想要一个matlab环」· TCL 代码 · 共 22 行

############################################################################
#
# This code was developed as part of the MIT SPIN project. (jk, wbh 3/24/00)
#
############################################################################


# Energy Resource
# Note: energyLevel_ is measured in Joules

Resource/Energy instproc setParams {args} {
    $self instvar energyLevel_ alarmLevel_
    set energyLevel_ [lindex $args 0]
    set alarmLevel_ [lindex $args 1]
}

Resource/Energy instproc query {args} {
    $self instvar energyLevel_ 
    return $energyLevel_ 
}