xnodescen

可以在ns-2中进行仿真的SPIN路由协议的源码

#
# nodes: 100, pause: 0.00, max speed: 0.00  max x = 50.00, max y: 50.00
#

set num_nodes $opt(nn)
set rng [new RNG]
$rng seed 0
set lim [expr $num_nodes/10]
set lim 10
for {set i 0} {$i < $num_nodes} {incr i} {
	set x [$rng uniform 0 $lim]
	set y [$rng uniform 0 $lim] 
	$node_($i) set X_ $x
	$node_($i) set Y_ $y
	$node_($i) set Z_ 0.000000000000
}

for {set i 0} {$i < $num_nodes} {incr i} {
	for {set j 0} {$j < $num_nodes} {incr j} {
		$god_ set-dist $i $j 1
	}
}