wireless.cpr

来自「本程序为tcl程序」· CPR 代码 · 共 34 行

for {set k 0} {$k < $val(tc) } {incr k} {
	set tcp($k) [new $val(tcpagent)]
	set sink($k) [new Agent/TCPSink]
	$ns_ attach-agent $node_($k) $tcp($k)
  	$ns_ attach-agent $node_([expr $val(nn)-$k-1 ]) $sink($k)
	$ns_ connect $tcp($k) $sink($k)
	
	$tcp($k) set atcp_ $val(atcp)
	$tcp($k) set is_ICMP_ON_ 1 
	$tcp($k) set is_TraceVar_ 1
	$tcp($k) set is_TraceEvent_ 1
	$tcp($k) set ecn_ 1
	$tcp($k) trace cwnd_
	$tcp($k) trace rtt_
	$tcp($k) trace t_seqno_
	$tcp($k) trace ack_
	$tcp($k) trace atcp_state_
	$tcp($k) trace Trace_RTT_
	$tcp($k) trace Trace_RTO_	
	$tcp($k) attach $tracefd


	set ftp_($k) [new Application/FTP]
	$ftp_($k) attach-agent $tcp($k)
	$ftp_($k) set packetSize_ 1024

	#$ns_ at [expr rand()] "$ftp_($k) start"
	$ns_ at  1.0    "$ftp_($k) start"
	
}