period_adaptive

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

#!/bin/csh -f

set max_adapt = 10000

set increment = 100




set max_nodes = 52

set increment = 10

set nodes = 2


while ( $nodes <= $max_nodes ) 
	  
    set latfile3 = control_period.lat3.$nodes

    set gfile3 = control_period.goodput3.$nodes

    set latfile2 = control_period.lat2.$nodes

    set gfile2 = control_period.goodput2.$nodes
			
	  rm -f $latfile3
    touch $latfile3

    rm -f $gfile3
    touch $gfile3

    rm -f $latfile2
    touch $latfile2

    rm -f $gfile2
    touch $gfile2
	
set ctr_period  = 100

while ( $ctr_period  <= $max_adapt ) 

     rm -f "mean3.dat"
	   touch "mean3.dat"

     rm -f "mean2.dat"
	   touch "mean2.dat"
	
     ns ni_test1.tcl test_three.tcl $nodes $ctr_period 80 
     ns ni_test1.tcl scen_heterogen.tcl $nodes $ctr_period 80
	   set goodput2 = `wlan-goodput-normal scen_heterogen.tcl 0.5`
	   set goodput3 = `wlan-goodput-normal test_three.tcl 0.5`
	 
	   echo "$ctr_period  $goodput3 "  >> $gfile3
	   echo "$ctr_period  $goodput2 "  >> $gfile2
	   set lat_flow3 = 0
	   set lat_flow2 = 0
	   set flow = 0

	   while ( $flow < $nodes )
	         set lat_flow2 = `wlan-lat-mean scen_heterogen.tcl $flow AGT `
	         set lat_flow3 = `wlan-lat-mean test_three.tcl $flow AGT `
	         echo "$lat_flow2"  >> mean2.dat
	         echo "$lat_flow3"  >> mean3.dat
	         @ flow = $flow + 1
	   end
	   set meandelay2 = `compute-mean mean2.dat $nodes`
	   set meandelay3 = `compute-mean mean3.dat $nodes`
	
	   echo "$ctr_period  $meandelay2 "  >> $latfile2
	   echo "$ctr_period  $meandelay3 "  >> $latfile3 
		 
	   @ ctr_period = $ctr_period  +  $increment
	   
  end
  @ nodes = $nodes  +  $increment
end