period_adaptive.sh

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

#!/bin/csh -f

set max_adapt = 200000
set max_simulations = 20

set increment1 = 500

set max_nodes = 25

set increment = 10

set nodes = 25

while ( $nodes <= $max_nodes ) 
	  
    set latfile = control_period.lat.$nodes

    set gfile = control_period.goodput.$nodes

    
			
	  rm -f $latfile
    touch $latfile

    rm -f $gfile
    touch $gfile

   
  set ctr_period = 1000
	
  while ( $ctr_period  <= $max_adapt ) 
	
		set simulations = 1
		
		  rm -f "latfile_many"
      touch "latfile_many"

      rm -f "gfile_many"
      touch "gfile_many"
		
		
		
    while ( $simulations <= $max_simulations ) 
		  
			
			echo "simulations $simulations"
		  
			
			
	
	
       rm -f "mean.dat"
	     touch "mean.dat"

       
	
       ns ni_test1.tcl test_three.tcl $nodes $ctr_period 80
       
	     
	     set goodput = `wlan-goodput-normal test_three.tcl 0.5`
	 
	     echo "$goodput "  >> gfile_many
	     
	     set lat_flow = 0
	    
	     set flow = 0
	       while ( $flow < $nodes )
	         
	         set lat_flow = `wlan-lat-mean test_three.tcl $flow AGT `
	         
	         echo "$lat_flow"  >> mean.dat
	         @ flow = $flow + 1
	      end
				set meandelay = `compute-mean mean.dat $nodes `
	
	      echo "$meandelay"  >> latfile_many
	    
	      @ simulations = $simulations + 1
				
    end
	   set meangood = `compute-mean gfile_many 20`
	    set meanlat = `compute-mean latfile_many 20`
	  echo "$ctr_period  $meangood "  >> $gfile
	   echo "$ctr_period  $meanlat "  >> $latfile
	 
	 
	   @ ctr_period = $ctr_period  +  $increment1
	end
	
  @ nodes = $nodes  +  $increment
end