Hello:
I am trying to run a XCP protocol example script as
follows:---------------------------------------------### XCP EXAMPLE TCLset
lrate 0.0Queue/XCP set tcp_xcp_on 1Agent/TCP set minrto_ 1set ns [new
Simulator]$ns color 1 Redset 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 BUFFERset buffer 43# tamanho del buffer del link n1-n2$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
$tcp1set 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_
552set 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
_________________________________________________________________
It’s the same Hotmail®. If by “same” you mean up to 70% faster.
http://windowslive.com/online/hotmail?ocid=TXT_TAGLM_WL_hotmail_acq_broad1_122008
