on-off.tcl

来自「对IEEE 802.11e里的分布式信道接入算法EDCA进行改进」· TCL 代码 · 共 83 行

#
# A wireless lan scenario with video traffic over udp and background
# backlogged traffic
#
#

# defaults

set onoffpktsize 2000			;# pktsize of video streams
   
set onoffrate 50000000

source sources.tcl

global num_nodes

set num_bss_nodes 0				;# adhoc mode
PLevels set max_plevels_	1
PLevels set plevels_			1

PHY_MIB set CWMin_0				5
PHY_MIB set CWOffset_0		0
PHY_MIB set CWMax_0		   500            ;#Lamia


set difs_0 0


proc create_scenario { } {
	global ns_ node_ num_nodes endtime
	global onoffrate 
	global onoffpktsize


	if {$num_nodes > 3} {
	set sink_node [expr $num_nodes - 1]
  }
	set pri 0

	
	set endtime 20
	set fl_id 0
	set rng  [new RNG]
	$rng uniform 0 1

	
	
########################################################################################	
	
	# Setup phone flows

	for {set i 0} {$i < $num_nodes} {incr i} {                
		
		set start_time [expr  3+($i * [$rng uniform 0.1 0.5])]
    set  node_src	$i
		
	  if {$i < [expr $num_nodes -1]} {
		  set  node_sink	[expr $i + 1]
		} else {
		  set  node_sink 0
		}
		
		#set  burstTime 2
		#set  idleTime  1
		
		set  burstTime 0.25
		set  idleTime  0.5
		
		
		build-on-off $node_($node_src) $node_($node_sink) $onoffpktsize $burstTime $idleTime $onoffrate $fl_id $start_time $endtime $pri
		
		#build-on-off $server($i) $client($i) $pktSize $burstTime $idleTime [expr ( 5.0 /$nFlows) * $rate] $flowid [expr $startTime + $flowid *0.001] $nbr_recv($flowid)]
		
		puts "onoff$i with pktsize $onoffpktsize flows $fl_id  from Node$i to Node $node_sink rate $onoffrate"
    
		puts $start_time
		
		incr fl_id
	}		
	
}