Hello:I am trying to run a XCP protocol example script as follows:
---------------------------------------------
### XCP EXAMPLE TCLset lrate 0.0
Queue/XCP set tcp_xcp_on 1
Agent/TCP set minrto_ 1
set ns [new Simulator]
$ns color 1 Red
set tr_f [open out.tr w]
set nam_f [open out.nam w]
set record_f1 [open out.data1 w]
$ns trace-all $tr_f$ns namtrace-all $nam_f
### Finish procproc finish {}
{
global ns tr_f record_f1 nam_f
$ns flush-trace close $tr_f
close $record_f1 close $nam_f exec
awk { { print $1, $2 } } out.data1 > temp1.cwnd
exit 0
}
set n0 [$ns node]
set n1 [$ns node]
#### LINK# object from to bandwith delay queue
$ns duplex-link $n0 $n1 5Mb 35ms XCP
#### BOTTLENECK BUFFER
set buffer 43
$ns queue-limit $n0 $n1 [expr $buffer *1]
$ns duplex-link-op $n0 $n1 queuePos 0.5
#### TCP AGENT 1set tcp1 [new Agent/TCP/Reno/XCP]
$ns attach-agent $n0 $tcp1
set sink1 [new Agent/TCPSink/XCPSink]
$ns attach-agent $n1 $sink1
$ns connect $tcp1 $sink1$tcp1 set fid_ 1
$tcp1 set window_ 8000
$tcp1 set packetSize_ 552
set ftp1 [new Application/FTP]
$ftp1 attach-agent $tcp1
$ftp1 set type_ FTP
### Record procproc record {}
{
global ns tcp1 sink1 record_f1
set now [$ns now]
set time 0.15
set cwin1 [$tcp1 set cwnd_]
puts $record_f1 "$now [expr $cwin1*1] "
$ns at [expr $now+$time] "record "
}
$ns at 0.0 "record"
$ns at 0.0 "$ftp1 start"
$ns at 20.0 "$ftp1 stop"
$ns at 20.0 "$ns detach-agent $n0 $tcp1 ; $ns detach-agent $n1 $sink1"
$ns at 20.0 "finish"
$ns run
---------------------------------------------
I got the NS2 version 2.33 installed in Fedora 8. I have no problems with
others TCP protocols. The exception normally appears when there is a division
by zero. However, in the .tcl code there is nothing that can be associated with
this error. How Can be this possible? Can someone help me?
THANKS in advance
DIANA
_________________________________________________________________
Life on your PC is safer, easier, and more enjoyable with Windows Vista®.
http://clk.atdmt.com/MRT/go/127032870/direct/01/
