#produces trace of a single TCP connection 
#with delays, errors, Eifel, ...

set traffic TCP
set expire none

# Run NAM?
set WithNAM false

# Estimation of one-way latecy of wireless link -1.7
set FixTtl 0.5
#number of TCP connections/UDP ADUs
set Nconn 1

#interval between handover and its length
set ho_int_min 200
set ho_int_max 400
#Ton 5, 2?
set ho_len_min 5
#15
set ho_len_max 5

#interval between TCP connections
set connect_int 0

#link parameters 9.6kbps, ton 30 kpbs, 256kbps
set line_rate 30kbps
#9.6Kb
set prop_delay 300ms
set buf_size 100

#first delay is scheduled after this many secs 10 105 
#Ton(3-ss 10-ca) 7.5
set first_delay 3

#size of FTP transfer 107200 51200
set send_size 300000

#Agent/TCP set bugFix_ false
#Agent/TCP/FullTcp set dupack_reset_ true 
#Agent/TCP set maxrto_ 30 
Agent/TCP set window_ 30
Agent/TCP set eifel_ true
Agent/TCP set eifel_cc_ 1
#changed 25.04.2002
#Agent/TCP set eifel_rto_ 1
#LT
#Agent/TCP set singledup_ 1 
Agent/TCP set timestamps_ true
#Agent/TCPSink/DelAck set interval_ 300ms
#snd_max 26
#set droplist_dl { 9 10 11 12 }
#Ton 3 for CA
#set droplist_dl { 12 13 }
#set drop_front_on true
#Ton: drop all ACKs
#set droplist_ul { 8 9 10 11 12 13 14 15 }

#sender: TCP,TCP/Reno,TCP/Newreno,TCP/Sack1,TCP/Vegas
#TCP/FullTcp,TCP/FullTcp/Tahoe,TCP/FullTcp/Newreno,TCP/FullTcp/Sack
#receiver: TCPSink,TCPSink/DelAck,TCPSink/Sack1,TCPSink/Sack1/DelAck,TCP/FullTcp 

set tcp_snd TCP/Reno
set tcp_rcv TCPSink/DelAck

source atp.tcl
set link_ [$link_dl link]
#$ns after 3 "$link_ set bandwidth_ 96kbps"
run_atp
exec rto_trace out.nam > plots/rto.xgr
exec xgraph -m plots/rto.xgr