set god_ [God instance]#$ns_ at 0.0 "$node_(4) setdest  100.0 200.0 50.0"#$ns_ at 0.0 "$node_(1) setdest 100.0 696.0 50.0"#$ns_ at 0.0 "$node_(2) setdest 450.0 20.0  50.0"#$ns_ at 0.0 "$node_(3) setdest 400.0 200.0 50.0"#for {set i 0} {$i < 5} {incr i } {#	for {set j 0} {$j <5} {incr j} {#	$node_([expr $i * 5 + $j  ]) set Z_ 0.000 #	$node_([expr $i * 5  + $j  ]) set Y_ [expr $j * 200.0 + 200 ]#	$node_([expr $i * 5  + $j  ]) set X_ [expr $i * 200.0 + 200 ]	#	}#}