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.
Best Wishes,
Teerawat Issariyakul
http://www.ns2ultimate.com/
http://www.facebook.com/pages/Teerawat-Issariyakul/358240861417
http://twitter.com/T_Bear
http://www.t-issariyakul.blogspot.com
http://www.ece.ubc.ca/~teerawat
On 8/15/2010, "Ghassan Akrem" <[email protected]> wrote:
>
>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
>
>
>
>
