0
set xx(0) 1.0
set yy(0) 1.0
$node_(0) set X_ $xx(0)
$node_(0) set Y_ $yy(0)
set g(1) $column
set g(2) [expr $g(1) + $column]
for {set i 3} {$i <= [expr $row -1]} { incr i } {
set g($i) [expr $g([expr $i - 1]) + $column]
}
set g(0) 0
set xx($g(1)) 1.0
set yy($g(1)) [expr $xx(0) + 100]
$node_($g(1)) set X_ $xx($g(1))
$node_($g(1)) set Y_ $yy($g(1))
for {set i 0} {$i <= [expr $row -1] } { incr i } {
set count($g($i)) 0
}
有人可以告訴我正在做什麼和使用此代碼中的每一行...！ 使用xx（0）和yy（0） 也會在g（0）g（1）和全部中發生。網絡模擬器代碼說明