scen_loulou.tcl

对IEEE 802.11e里的分布式信道接入算法EDCA进行改进

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

# defaults


set ppktsize 120				;# pktsize of phone streams
set pinterval 10ms

set vpktsize 1024				;# pktsize of video streams
set vinterval 2ms

set pktsize 1500				;# pktsize for background traffic
set udp_interval 5ms

#set num_nodes [lindex $argv 0]	;#  number of mobilenodes in the scenario  ****lamia

source sources.tcl

global num_nodes

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

PHY_MIB set CWMin_0				7
PHY_MIB set CWOffset_0		0
PHY_MIB set CWMax_0		   300           ;#Lamia

PHY_MIB set CWMin_1				10
PHY_MIB set CWOffset_1		0
PHY_MIB set CWMax_1				500                ;#Lamia

PHY_MIB set CWMin_2				31
PHY_MIB set CWOffset_2		0
PHY_MIB set CWMax_2				1023         ;#Lamia


# MAC_MIB set new_method 1  ;# 1 if I use my method

set difs_0  0


set difs_1 1


set difs_2 3


proc create_scenario { } {
	global ns_ node_ num_nodes endtime
	global pnum ppktsize pinterval 
	global vnum vpktsize vinterval udp_interval 
	global pktsize


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

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

##########################################################
	# Setup Phone flows

	for {set i 0} {$i <[expr $num_nodes ] } {incr i} {
	  
		set start_time [expr  2 + $t]
    
		set  node_src	$i
		
		if {$i == 0} {
		 	set  node_sink	1
		} else {
		  set  node_sink [expr $i - 1]
		}
		
		if  { $i == 0} {  
		  set finishtime  [expr $endtime - 0 ]
		} else {
		  set finishtime  [expr $endtime - 0 ]
		} 
		
		build-cbr $node_($node_src) $node_($node_sink) $ppktsize $pinterval 0 $fl_id $start_time  $finishtime  $pri
		
		puts "P$i with pktsize $ppktsize flows $fl_id from Node$node_src to Node$node_sink every $pinterval"
    
		puts $start_time
		incr fl_id
		
		set t [expr $t +1]
	}
	
	set t 2
	incr pri	

########################################################################################	
	
	# Setup Video flows

	for {set i 0} {$i < [expr $num_nodes]} {incr i} {                
		
		set start_time [expr  2 + $t] ; #[expr 0.02  * [$rng uniform 0.5 1]]
    set  node_src	$i
		
	  if {$i == 0} {
		  set  node_sink	1
		} else {
		  set  node_sink [expr $i - 1]
		}
		
		if  { $i == 0} {  
		  set finishtime  [expr $endtime - 0 ]
		} else {
		  set finishtime  [expr $endtime - 0 ]
		} 
		
		build-cbr $node_($node_src) $node_($node_sink) $vpktsize $vinterval 0 $fl_id $start_time  $finishtime $pri
		
		puts "V$i with pktsize $vpktsize flows $fl_id  from Node$i to Node $node_sink every $vinterval"
    
		puts $start_time
		incr fl_id
		
		set t [expr $t +1]
	}
	
  set t 2
  incr pri 
	
  ################### trafic to one station		#########################
	
	# Setup Background flows

  puts "TCP and UDP priority is $pri"
	
	for {set i 0} { $i < [expr $num_nodes]} {incr i} {
	set start_time  [expr 2 + $t] ; #[expr 0.03 * [$rng uniform 0 0.5]]
	  set  node_src	$i
		
		if {$i == 0}  {
		 	set  node_sink	1
			
		} else {
		  set  node_sink [expr $i - 1]
		
		}
		
		if  { $i == 0} {  
		  set finishtime  [expr $endtime - 0 ]
		} else {
		  set finishtime  [expr $endtime - 0 ]
		} 

		#build-cbr $node_($node_src) $node_($node_sink) $pktsize $udp_interval 0 $fl_id $start_time $finishtime $pri
		#puts "UDP $i with pktsize $pktsize flows $fl_id  from Node$i to Node $node_sink every $udp_interval"
				
		build-tcp "TCP" $node_($node_src) $node_($node_sink) $pktsize 20 $fl_id $start_time $finishtime $fl_id $pri  
		puts "TCP B$i with flowID $fl_id  and with pktsize $pktsize flows from Node$node_src to Node $node_sink"
		puts $start_time
		incr fl_id
		set t [expr $t +1]
	}
}