[ns] RED average queue

[bsikdar@networks.ecse.rpi.edu]

Hi everyone,
	We were trying to plot the average queue size in a RED
queue over time. However, the queue monitor we used gives us only
one set of values in the plot file. Could anyone tell us where we
are going wrong? I have added the tcl file we were using.  
	Alternatively, if anyone has any code which we can use
for this purpose, it would be great if you could please share it.
Thanks a lot,
						Biplab Sikdar,
						Grad. Student,
						Dept. of ECSE,
					 Rensselaer Polytechnic Inst.,
						Troy NY 12180.


-----tcl code-----

set qlink [$ns link $n(0) $n(1) ]
set qmon [$qlink queue]
set qlnk [$ns monitor-queue  $n(0) $n(1) $qmon]

set linkq [open "/tmp/linkq" w]

proc lnkqueue {qlnk} {
        global ns linkq status

        set cur [$qlnk set pkts_]
        set pdrop [$qlnk set pdrops_]
        set parrv [$qlnk set parrivals_]
        set pdep [$qlnk set pdepartures_]
        set curt [$ns now]

        puts $linkq [format "%9.3f %9.3f %9.3f %9.3f %9.3f" $curt $cur
$pdrop $p
arrv $pdep]
}

$ns at [$ns now] "lnkqueue $qlnk"