nearfar-scenario.tcl

来自「柯老师网站上找到的」· TCL 代码 · 共 49 行

#
# A wireless lan scenario to study the capture effect
#
#

# defaults
Phy/WirelessPhy set CPThresh_ 10.0
set num_nodes 3					;# number of mobilenodes in the scenario
set pktsize 1500				;# pktsize for background traffic
set endtime 30
set transport TCP

proc create_scenario { } {
	global ns_ node_ num_nodes
	global pktsize transport

	# place last node real far!!
	set i [expr $num_nodes - 1]
	$node_($i) set X_ 100
	$node_($i) set Y_ 100
	$node_($i) set Z_ 0.0

	if {$transport == "TCP"} {
		set sink_agent TCPSink/DelAck
	} else {
		set sink_agent UDP
	}

	##########################################################
	# Setup FTP flows

	for {set i 1} {$i < $num_nodes} {incr i} {
		set B		[new Application/FTP]
		set B_src	[new Agent/$transport]
		set B_sink	[new Agent/$sink_agent]

		$B_src		set packetSize_ $pktsize
		$B_src		set class_ [expr $i + 1]

		$ns_ attach-agent $node_($i) $B_src
		$ns_ attach-agent $node_(0) $B_sink
		$ns_ connect $B_src $B_sink
		$B attach-agent $B_src
		puts "FTP/$transport B$i with pktsize $pktsize flows from Node$i to Node0"

		$ns_ at [expr 3.0 * $i] "$B start"
	}
}