load-scenario.tcl

NS-2.28的802.11e协议扩展源代码

#
# A wireless lan scenario with ftp traffic over udp
# (backlogged queues)
# 
#

# defaults
set num_nodes 5
set packet_size 256
set spacing 3.0
set onoff 0

proc create_scenario { } {
	global ns_ node_
	global num_nodes packet_size spacing endtime
	global onoff

	# determine the amt of time reqd for the simulation
	set endtime [expr ($onoff + 1) * ($num_nodes - $onoff) * $spacing]

	for {set i 1} {$i < $num_nodes} {incr i} {
		set client $node_($i)
		set server $node_(0)

		set src [new Agent/UDP]
		$src set class_ [expr 1 + $i]
		$src set packetSize_ $packet_size
		$src set prio_ [expr [PLevels set plevels_]*($i-1)/($num_nodes-1)]
		$ns_ attach-agent $client $src

		set sink [new Agent/UDP]
		$ns_ attach-agent $server $sink

		$ns_ connect $src $sink

		set ftp [new Application/FTP]
		$ftp attach-agent $src

		set time [expr $i * $spacing]
		$ns_ at $time "$ftp start"
		if {$onoff} {
			$ns_ at [expr $time + (($num_nodes - 1) * $spacing)] "$ftp stop"
		}
	}
}