## RED queue##   The scripts used to make the figure in the paper were from a# simulator that is now several generations old.  These ns-2 scripts# are a slightly-modified version of scripts from Davide Bergamasco at# Cisco.#source common.tclset minthresh [lindex $argv 0]set seed  [lindex $argv 1]set queuetype REDset maxthresh [expr $minthresh * 3]puts "minthresh $minthresh maxthresh $maxthresh"set BuffSize 140Queue/RED set linterm_ 50 Queue/RED set thresh_ $minthreshQueue/RED set maxthresh_ $maxthreshQueue/RED set limit_ $BuffSize init $seed $BuffSizetopomake_traffic$ns at $SimTime "get_queue; finish"puts "Running simulation $seed Buff= $BuffSize"$ns run