Tcl 如何访问NS2中的当前队列大小

我使用TCL脚本在NS2中模拟了一个基于双链路和队列的2节点tcp通信。我想在节点通信期间访问当前队列大小。

---

那么，如何访问当前队列大小并将其分配到变量中呢

使用此代码获取终端上的cwnd大小

proc plotWindow {tcpSource outfile} {
global ns
set now [$ns now]
set cwnd [$tcpSource set cwnd_]
puts  $outfile  "$now $cwnd"
$ns at [expr $now+0.1] "plotWindow $tcpSource  $outfile"
}
$ns  at  0.0  "plotWindow $tcp1  stdout"