A small snippet of code which will possibly help. You can check the TCP
congestion window periodically every 10 msec using the following. The
result will be in tcpout.tr which you can see using any plotting tool.
set ns [new Simulator]
set tcp [new Agent/TCP]
...
set tcptracefd [open tcpout.tr w]
proc tcp_monitor {} {
global ns tcp tcptracefd
set tcpCW [expr double([$tcp set cwnd_])]
puts $tcptracefd "$tcpCW"
$ns at [expr [$ns now] + 0.01] tcp_monitor ;# Calls the tcp_monitor
process every 0.01
}
$ns at 0.0 "tcp_monitor" ;# Calls the tcp_monitor process
...
On Tue, Oct 2, 2012 at 8:46 AM, shiny <shiny....@gmail.com> wrote:
>
> --
> With Regards,
> John Shiny.J
>
