Tcl CBR流量不会被添加

ns2-allinone2.34/ns2.34/tcl/ex中的wireless-flooding.tcl文件正在成功运行，但其他节点之间没有流量。该程序实现了一个简单的泛洪，并成功运行。但是，当我添加了一段用于生成CBR流量的代码时，错误显示如下： num_节点设置为24 初始化列表头

can't read "node_(0)": no such variable
    while executing
    "$ns attach-agent $node_($i) $udp_($j) "
    ("for" body line 3)
    invoked from within
"

for {set i 0} {$i < $num_nodes} {incr i} { 
            set udp_($j) [new Agent/UDP] 
            $ns attach-agent $node_($i) $udp_($j) 
            set null_($j)..."
(file "wireless-flooding.tcl" line 173)

无法读取“节点（0）”：没有此类变量
执行时
“$ns附加代理$node_ui$udp_j$”
（“适用于”车身第3行）
从内部调用
"
对于{set i 0}{$i<$num_nodes}{incr i}{
设置udp_uj（$j）[新代理/udp]
$ns附加代理$node_ui$udp_j$
设置空值（$j）
（文件“wireless flooding.tcl”第173行）

对于CBR流量，我添加了块

set j 0
   for {set i 0} {$i < $num_nodes} {incr i} { 
   set udp_($j) [new Agent/UDP] 
    $ns attach-agent $node_($i) $udp_($j) 
    set null_($j) [new Agent/Null] 
    $ns attach-agent $node_([expr $i+1]) $null_($j) 

     set cbr_($j) [new Application/Traffic/CBR] 
     puts "cbr_($j) has been created over udp_($j)" 
     $cbr_($j) set packet_size_ 512 
     $cbr_($j) set interval_ 1 
     $cbr_($j) set rate_ 10kb 
     $cbr_($j) set ransom_ flase 
     $cbr_($j) attach-agent $udp_($j) 
     $ns connect $udp_($j) $null_($j) 
     puts "$udp_($j) and $null_($j) agents has been connected each other" 
     $ns at 1.0  "$cbr_($j)  start" 

     set j [expr $j+1] 
     set i [expr $i+1] 

 } 

set j 0
对于{set i 0}{$i<$num_nodes}{incr i}{
设置udp_uj（$j）[新代理/udp]
$ns附加代理$node_ui$udp_j$
设置null_j（$j）[新代理/null]
$ns附加代理$node_uj（[expr$i+1]）$null_j）
设置cbr_j（$j）[新应用程序/流量/cbr]
puts“cbr_j（$j）已通过udp_j（$j）创建”
$cbr\uj（$j）设置数据包大小\u512
$cbr\uj（$j）设置间隔\u1
$cbr\uj（$j）设定费率\uu10KB
$cbr_uj（$j）设置赎金
$cbr_uj（$j）附加代理$udp_j（$j）
$ns connect$udp_uj（$j）$null_j（$j）
puts“$udp_uj（$j）和$null_j（$j）代理已相互连接”
$ns在1.0“$cbr_j（$j）开始时”
集合j[expr$j+1]
集合i[expr$i+1]
} 

你能在这里发布完整的代码吗？谢天谢地，经过大量分析，问题得到了解决