In ./tcl/lib/ns-lib.tcl line 603ff (for v2.29 line 649ff), add ,在649行左右添加以下内容, NOAH { set ragent [$self create-noah-agent $node] }
In ./tcl/lib/ns-lib.tcl line 768ff (for v2.29 line 839ff), add,在839行附近添加以下内容 Simulator instproc create-noah-agent { node } { # Create a noah routing agent for this node set ragent [new Agent/NOAH]
## setup address (supports hier-addr) for noah agent ## and mobilenode set addr [$node node-addr]
$ragent addr $addr $ragent node $node
if [Simulator set mobile_ip_] { $ragent port-dmux [$node demux] } $node addr $addr $node set ragent_ $ragent return $ragent }