你的问题我没有遇到, 无论是multich-tag.tcl还是twoflows-2channel.tcl都没错.

建议你仔细查一下修改的地方对不对,特别是空格, tab这类东西很烦人.而且貌似2.29有3个版本.我用的是2.29.3.

(_o1015 cmd line 1)
invoked from within
“_o1015 cmd addr”
invoked from within
“catch “$self cmd $args” ret”
invoked from within
“if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error “error when calling class $cls: $args” $…”
(procedure “_o1015″ line 2)
(SplitObject unknown line 2)
invoked from within
“_o1015 addr”
(“eval” body line 1)
invoked from within
“eval $node addr $args”
(“default” arm line 2)
invoked from within
“switch -exact $routingAgent_ {
DSDV {
set ragent [$self create-dsdv-agent $node]
}
DSR {
$self at 0.0 “$node start-dsr”
}
AODV {
set ragent [$self cre..."
(procedure "_o3" line 11)
(Simulator create-wireless-node line 11)
invoked from within
"_o3 create-wireless-node"
("eval" body line 1)
invoked from within
"eval $self create-wireless-node $args"
(procedure "_o3" line 23)
(Simulator node line 23)
invoked from within
"$ns_ node"
invoked from within
"set node_(0) [$ns_ node]”
(file “channel-route.tcl” line 6)
invoked from within
“source.orig channel-route.tcl”
(“uplevel” body line 1)
invoked from within
“uplevel source.orig [list $fileName]”
invoked from within
“if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
…”
(procedure “source” line
invoked from within
“source channel-route.tcl”
(file “multich-tag.tcl” line 124)

不知道您是否有遇過跟我同樣的情況？