用tcl语言写一段代码,内容是将boundary为{{0 0}{1000 1000} }的区域分割成长宽都为5的若干方块,并输出每个方块的boundary
时间: 2023-03-07 13:22:57 浏览: 31
区域矩形分块
代码如下:for {set x 0} {$x <= 1000} {incr x 5} {
for {set y 0} {$y <= 1000} {incr y 5} {
puts "boundary is {{$x $y} {[expr $x+5] [expr $y+5]}}"
}
}
阅读全文