执行 for 时,tcl 在大括号后出现额外字符错误
tcl error extra characters after close-brace while executing for
set ns [new Simulator]
#open nam file
set nf [open out.nam w]
$ns namtrace-all $nf
#set variables of topology
set lanNodes 5
set link("bandwidth") 5mb
set link("delay") 2ms
set link("queue") DropTail
#define two routers
set router0 [$ns node]
set router1 [$ns node]
#link two routers
$ns duplex-link $router0 $router1 2mb 2ms DropTail
#create and connect nodes with routers
for {set i 0}{$i < $lanNodes}{incr i} {
set n($i) [$ns node]
set n([expr $i+5]) [$ns node]
$ns duplex-link $n($i) $router0 $link("bandwidth") $link("delay") $link("queue")
$ns duplex-link $n([expr $i+5]) $router1 $link("bandwidth") $link("delay") $link("queue")
}
proc finish { } {
global ns nf
close $nf
这段代码有什么错误
当我想在 ns2 中实现这段代码时,写下这句话“执行时大括号后的额外字符”
这是什么意思,谁能解决这个问题
请尝试编辑(第 16 行)
for {set i 0}{$i < $lanNodes}{incr i} {
收件人:
for {set i 0} {$i < $lanNodes} {incr i} {
即在每个 close-brace
( } )[=13 之后添加一个 space =]
-
set ns [new Simulator]
#open nam file
set nf [open out.nam w]
$ns namtrace-all $nf
#set variables of topology
set lanNodes 5
set link("bandwidth") 5mb
set link("delay") 2ms
set link("queue") DropTail
#define two routers
set router0 [$ns node]
set router1 [$ns node]
#link two routers
$ns duplex-link $router0 $router1 2mb 2ms DropTail
#create and connect nodes with routers
for {set i 0}{$i < $lanNodes}{incr i} {
set n($i) [$ns node]
set n([expr $i+5]) [$ns node]
$ns duplex-link $n($i) $router0 $link("bandwidth") $link("delay") $link("queue")
$ns duplex-link $n([expr $i+5]) $router1 $link("bandwidth") $link("delay") $link("queue")
}
proc finish { } {
global ns nf
close $nf
这段代码有什么错误 当我想在 ns2 中实现这段代码时,写下这句话“执行时大括号后的额外字符” 这是什么意思,谁能解决这个问题
请尝试编辑(第 16 行)
for {set i 0}{$i < $lanNodes}{incr i} {
收件人:
for {set i 0} {$i < $lanNodes} {incr i} {
即在每个 close-brace
( } )[=13 之后添加一个 space =]
-