如何修复 TCL ns2 中的错误

Question

我对 NS2 的使用非常天真，并试图在 NS2 和 TCP 中通过 UDP 实现 CBR。

当我尝试编译它时，它给了我这个错误：

ns: _o28 start: 
    (_o28 cmd line 1)
    invoked from within
"_o28 cmd start"
    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 "_o28" line 2)
    (SplitObject unknown line 2)
    invoked from within
"_o28 start"

这是我的代码..我试图通过查看互联网来修复它，但我没有得到任何有用的东西

        # Création du simulateur
set ns [new Simulator]
# Création des fichiers de traces NS-2
set nf [open out.nam w]
$ns namtrace-all $nf
$ns trace-all [open out1.tr w]

# Création des noeuds
set N1 [$ns node]
$N1 label "source cbr"
set N2 [$ns node]
$N2 label "source tcp"
set R1 [$ns node]
set R2 [$ns node]
set N3 [$ns node]
$N3 label "destination tcp"
set N4 [$ns node]
$N4 label "destination cbr"


#Setup a TCP connection
set tcp [new Agent/TCP]
$tcp set class_ 2
$ns attach-agent $N2 $tcp
set sink [new Agent/TCPSink]
$ns attach-agent $N3 $sink
$ns connect $tcp $sink
$tcp set fid_ 1

#Setup a FTP over TCP connection
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ftp set type_ FTP


#Setup a UDP connection
set udp [new Agent/UDP]
$ns attach-agent $N1 $udp
set null [new Agent/Null]
$ns attach-agent $N4 $null
$ns connect $udp $null
$udp set fid_ 2

#Setup a CBR over UDP connection
set cbr [new Application/Traffic/CBR]
$cbr attach-agent $udp
$cbr set type_ CBR
$cbr set packet_size_ 1000
$cbr set rate_ 1mb
$cbr set random_ false


# Création des liens, tous en 1Mbps/10ms de TR/file d'attente DropTail
$ns duplex-link $N1 $R1 10Mb 15ms DropTail
$ns duplex-link $N2 $R1 10Mb 15ms DropTail
$ns duplex-link $R1 $R2 5Mb  40ms DropTail
$ns duplex-link $R2 $N3 12Mb 15ms DropTail
$ns duplex-link $R2 $N4 6Mb 15ms DropTail

    #capacité file d'attente R1-R2
    $ns queue-limit $R1 $R2 50



# gestion du layout de la topologie

$ns duplex-link-op $R2 $N4 orient right-down
$ns duplex-link-op $R2 $N3 orient right-up
$ns duplex-link-op $R1 $R2 orient right
$ns duplex-link-op $N1 $R1 orient left-up
$ns duplex-link-op $N2 $R1 orient left-down

#$ns duplex-link-op $R1 $R2 queuePos 0.5 # voir l’état de la file





# Création d'un agent vide, destiné à recevoir les paquets implantés dans n3
set null0 [new Agent/Null]
$ns attach-agent $N3 $null0

# Création d'un agent vide, destiné à recevoir les paquets implantés dans n3
set tcpsink [new Agent/TCPSink]
$ns attach-agent $N4 $tcpsink

# Le traffic issu des agents udp0 et udp1 est envoyé vers null0
$ns connect $udp $null0
$ns connect $tcp $tcpsink




# Scénario de début et de fin de génération des paquets par cbr0
$ns at 0.0 "$cbr start"
$ns at 0.2 "$tcp start"
$ns at 4 "$tcp stop"

$ns at 5.0 "$cbr stop"
# Définition de classes pour la coloration



# Coloration des classes : bleu pour udp (classe 1) et rouge pour tcp (classe 2)
$ns color 1 Blue
$ns color 2 Red


# Procédure de fin de simulation, qui écrit les données dans le fichier
# et lance NAM pour la visualisation
proc fin {} {
global ns nf
$ns flush-trace
close $nf
exec nam out.nam &
exit 0
} 
# La simulation va durer 15 secondes et appelle la procédure finish
$ns at 6.0 "fin"
# Début de la simulation
$ns run

Answer 1

---

如果你注释掉这些“tcp”行，你的文件就可以正常工作了：

# $ns at 0.2 "$tcp start"
# $ns at 4 "$tcp stop"

对所有约 2,000 个 ns2 模拟文件运行搜索，显示从未使用过 "$tcp start"：$ cd *All-examples/ && grep "tcp start" *，这可能意味着 "$tcp start" 不是一种有效的编码方式。

~2,000 ns2 模拟文件：all_tcl-examples-2.tar.gz (41.8 MB) https://drive.google.com/file/d/0B7S255p3kFXNUUpUYWJ6TTdseWc/view?usp=sharing

查找 tcp 文件：$ cd *All-examples/ && ls | grep -i tcp

---

Answer 2

NS2 建立在一个用 Tcl 编写的称为 OTcl 的对象系统之上。现在这是一个相当古老的系统。 Tcl 中的其他所有人（完全使用对象系统的人）都使用其他东西。造成这种情况的原因之一是调试 OTcl 程序比大多数 Tcl 程序更尴尬。

但这并不能解决这里的问题！如果我们查看该堆栈跟踪，我们可以从启动它的调用中选择返回方式：

"_o28 start"

到出现错误的地方：

    (_o28 cmd line 1)

唉，一切中间的东西只是 OTcl 机器。这对我来说很讨厌，因为我注意到其中有一些不好的做法，但你不应该担心：它不在你的代码中，而是你正在使用的库中。 p>

不幸的是，无论是什么造成了错误，都没有费心给我们一个错误信息！这太可怕了。但是，我们可以从方法名称猜测它是调用它的这些行之一（延迟到模拟器引擎达到该时间戳）：

$ns at 0.0 "$cbr start"
$ns at 0.2 "$tcp start"

它是什么？ Application/Traffic/CBR 类或Agent/TCP 类的start 方法？我真的不知道！堆栈跟踪巧妙地省略了这一点。方法定义未显示在您的代码示例中，实际上可能使用 C 或 C++。我们根本没有信息。我们确实知道它看起来像是来自 start 方法主体的第一行，但仅此而已。

由于您使用的是全局变量，因此您可以（可能）更改这两个回调设置行来执行此操作：

$ns at 0.0 {$cbr start}
$ns at 0.2 {$tcp start}

这会将变量的替换推迟到调用时间，并且可能使您的堆栈跟踪信息足以确定哪个类的start 方法有问题。它不会解决问题，但它可能会让你更轻松地寻找它。

---

一般来说，您的代码似乎是合理的 Tcl。它使用的是 NS2，所以它也使用了 OTcl（唉），否则这不是问题。现代 Tcl 编程更喜欢使用list 命令来构造回调而不是字符串替换，所以你可以这样做：

$ns at 0.0 [list $cbr start]
$ns at 0.2 [list $tcp start]

而不是这个：

$ns at 0.0 "$cbr start"
$ns at 0.2 "$tcp start"

但对象名称很简单，而且这些都是一次性回调，因此不会对安全性或性能产生太大影响。

我无法告诉您您是否正确使用了 NS2。我使用完全不同的库编写非常不同的 Tcl 程序。