网上说ared是ns2自带的，我按照网上的方法如下：
#############################################################
注：关于ARED：ARED其实NS2包中是自带的，在TCL脚本语言中使用RED算法时加入以下参数拥塞算法就变成ARED了，在压缩文件中有ared的完整应用TCL文件，自己看看吧。
#use new ared
$redq set adaptive_ 1 （使adaptive_的值为1即启动ARED算法）
#set new ared parameters
$redq set thresh_ 10
$redq set maxthresh_ 30
$redq set limit_ 1000
$redq set mean_pktsize_500
$redq set q_weight_0.004
$redq set mark_p_ 0.1
$redq set interval_ 0.1
###################################################################
我把上述代码复制到了自己写的tcl脚本中，运行，出错，
root@zhangzhuo-desktop:/home/zhangzhuo# ns PID.tcl 
can't read "edq": no such variable
    while executing
"$edq set adaptive_ 1 （使adaptive_的值为1即启动ARED算法）"
    (file "PID.tcl" line 38)
root@zhangzhuo-desktop:/home/zhangzhuo# ns PID.tcl 
can't read "redq": no such variable
    while executing
"$redq set adaptive_ 1 （使adaptive_的值为1即启动ARED算法）"
    (file "PID.tcl" line 38)


请问red怎么修改才可以启用ared？多谢。。。

没弄过，不了解。爱莫能助。