#runs many repetitions of stock quote ticker with and without deadline drop

set traffic UDP
# Run NAM?
set WithNAM false
# Estimation of one-way latecy of wireless link
set FixTtl 0.6
#number of TCP connections/UDP ADUs
set Nconn 1000

#interval between handover and its length
set ho_len_min 3
set ho_len_max 15

#interval between TCP connections
set connect_int 5

#link parameters
set line_rate 30Kb
set prop_delay 300ms

#first delay is scheduled after this many secs
set first_delay 1

#udp-specific part 
set ATP_TIMESCALE 10 
set LIFETIME 5
set adu_size 7000 

set test_names {easy medi diff} 
#set ho_int_mins {60 20 10} 
#set ho_int_maxs {180 100 20} 

set ho_int_mins {80 40 20}
set ho_int_maxs {140 80 40}  

exec echo "Name\tAtp\tBuf\tAlive\tExpired\tLost" >>udp_goodput.txt

foreach expire {none packet} {
  foreach buf_size {10 100} {
#    if {$j==0 && $l==1} {continue}
    foreach i {0 1 2} {
#	set dropADU $l
	set ho_int_min [lindex $ho_int_mins $i]
	set ho_int_max [lindex $ho_int_maxs $i]
	exec echo -n  "[lindex $test_names $i]\t$expire\t$buf_size\t" >>udp_goodput.txt
	source atp.tcl
	run_atp
	puts "starting new set\n"
    }
  }
}