#生成TCP代理，并将其连在结点之上
for {set i 1} {$i<=$node_num_} {incr i} {
set tcp($i) [new Agent/TCP]
$tcp($i) set class_ 2
#将代理TCP(i)分别连接在节点n(i）上
$ns attach-agent $n($i) $tcp($i)
set sink [new Agent/TCPSink]
$ns attach-agent $s2 $sink
$ns connect $tcp($i) $sink
#该数据流为fid_(i)
$tcp($i) set fid_ ($i)
}
#为TCP链接设置FTP传输源
for {set i 1} {$i<=$node_num_} {incr i} {
  set ftp($i) [new Application/FTP]
  $ftp($i) attach-agent $tcp($i)
  $ftp($i) set type_ FTP
}
#通过命令at来安排事件。我们使三个业务源都在0.1秒时开始传送数据，并都在4.0秒时停止发送
for {set i 1} {$i<=$node_num_} {incr i} {
$ns at 0.1 "$ftp($i) start"
$ns at 4.0 "$ftp($i) stop"
}
#派遣 tcp 和 sink 代理(不必要)
for {set i 1} {$i<=$node_num_} {incr i} {
$ns at 4.5 "$ns detach-agent $n($i) $tcp($i) ;
$ns detach-agent $s2 $sink"}
#在仿真到5s是调用结束程序
$ns at 5.0 "finish"#运行仿真 网络拥塞控制经典算法RED仿真(8):http://www.751com.cn/tongxin/lunwen_8262.html