Hi to all, i'm testing my optical queue by UDP with
CBR, Expoo and Pareto Generator and all is ok ...
Now i testing my optical queue on TCP/IP but i've
some problem because i see that FTP Application seems don't go ... To finally
the nam file and trace file is empty ...
Somebody can tell me where is the bug in this TCL
code ???
set ns [new Simulator]
set f [open tcp.tr w]
$ns trace-all $f
set nf [open tcp.nam w]
$ns namtrace-all $nf
set node1 [$ns node]
set node2 [$ns node]
$ns duplex-link $node1 $node2 5Mb 1us
DropTail
set tcp [new Agent/TCP]
$tcp set class_ 1
$ns attach-agent $node1 $tcp
set sink [new Agent/TCPSink]
$ns attach-agent $node2
$sink
$ns connect $tcp $sink
set ftp [new
Application/FTP]
$ftp attach-agent $tcp
$ns at 0.0 "$ftp start"
$ns at 10.0 "finish"
proc finish {} {
global ns nf
$ns flush-trace
close $f
close $nf
exec nam tcp.nam &
exit 0
}
Thanks in advanced
|