用tcl脚本和AWk语言在ns-2模拟器中形成动态簇

Question

我希望使用任意数量的节点(从命令行输入读取的数量)动态创建集群。我已经使用带有x和y值的set dest命令部署了节点，但是我希望每次都实现动态集群形成。如图所示，我有x和y坐标硬编码，但我希望在运行时创建它们。

   $ns_ at $tn "$node_(0) setdest 730.061 715.205 750"    
   $ns_ at $tn "$node_(1) setdest 1032.95 867.473 750"    
   $ns_ at $tn "$node_(2) setdest 941.11 1031.13 750"    
   $ns_ at $tn "$node_(3) setdest 1112.75 993.609 750"    
   $ns_ at $tn "$node_(4) setdest 1085.21 1176.37 750"    
   $ns_ at $tn "$node_(5) setdest 1232.55 821.43 750"    
   $ns_ at $tn "$node_(6) setdest 1277.3 1040.56 750"    
   $ns_ at $tn "$node_(7) setdest 883.426 466.448 750"    
   $ns_ at $tn "$node_(8) setdest 1001.59 290.138 750"    
   $ns_ at $tn "$node_(9) setdest 774.005 337.611 750"    
   $ns_ at $tn "$node_(10) setdest 636.72 245.85 750"    
   $ns_ at $tn "$node_(11) setdest 888.613 195.457 750"    

Answer 1

这里是如何放置12个节点的随机位置。

for {set i 0} {$i < 12} {incr i} {
    # I've no idea how you *want* to do this, but this works for example
    set xLocation [expr {int(1500 * rand())}]
    set yLocation [expr {int(1500 * rand())}]

    # Place the node (is that what the right name is?)
    $ns_ at $tn [list $node_($i) setdest $xLocation $yLocation 750]
}

list命令是生成回调的理想方法；它精确地引用了所需的内容。