wireless.scn

来自「本程序为tcl程序」· SCN 代码 · 共 18 行

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 ]	
#	}
#}