Hi,
Here is the code for recursively showing the value of the instvar cwnd_
of TCP for every 0.5s.
$ns at 1.5 show_tcp_seqno
proc show_tcp_seqno {} {
global tcp ns
puts TCP CWND is [$tcp set cwnd_]
$ns at [expr [ $ns now ] + 0.5] show_tcp_seqno
}
Feel free to adjust it yourself.
Hi all,
I try to test cwnd size for variant TCP,by using ns-2 simulation, in fact I
want to test the performance of TCP throughputs of ordinary TCP and some other
TCP's by monitoring cwnd size for each variant.
I hope to get some script, TCL source code perform this test.
Regards