## 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 0set lim [expr $num_nodes/10]set lim 10for {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	}}