etx_traffic.tcl

thomson_mesh_modules_Enhanced Wireless Mesh Networking for ns-2 simulator

   $ns_ connect $tcp_(69) $sink_(69)
   set ftp_(69) [new Application/FTP]
   $ftp_(69) attach-agent $tcp_(69)
   $ns_ at 5.717686 "$ftp_(69) start"
   
   set tcp_(71) [new Agent/TCP]
   $tcp_(71) set class_ 2
   set sink_(71) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(70) to $node_(71)
   $ns_ attach-agent $node_(70) $tcp_(71)
   $ns_ attach-agent $node_(71) $sink_(71)
   $ns_ connect $tcp_(71) $sink_(71)
   set ftp_(71) [new Application/FTP]
   $ftp_(71) attach-agent $tcp_(71)
   $ns_ at 5.207730 "$ftp_(71) start"
   
   set tcp_(72) [new Agent/TCP]
   $tcp_(72) set class_ 2
   set sink_(72) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(70) to $node_(72)
   $ns_ attach-agent $node_(70) $tcp_(72)
   $ns_ attach-agent $node_(72) $sink_(72)
   $ns_ connect $tcp_(72) $sink_(72)
   set ftp_(72) [new Application/FTP]
   $ftp_(72) attach-agent $tcp_(72)
   $ns_ at 5.371582 "$ftp_(72) start"
   
   set tcp_(73) [new Agent/TCP]
   $tcp_(73) set class_ 2
   set sink_(73) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(73)
   $ns_ attach-agent $node_(84) $tcp_(73)
   $ns_ attach-agent $node_(73) $sink_(73)
   $ns_ connect $tcp_(73) $sink_(73)
   set ftp_(73) [new Application/FTP]
   $ftp_(73) attach-agent $tcp_(73)
   $ns_ at 5.585449 "$ftp_(73) start"
   
   set tcp_(74) [new Agent/TCP]
   $tcp_(74) set class_ 2
   set sink_(74) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(64) to $node_(74)
   $ns_ attach-agent $node_(64) $tcp_(74)
   $ns_ attach-agent $node_(74) $sink_(74)
   $ns_ connect $tcp_(74) $sink_(74)
   set ftp_(74) [new Application/FTP]
   $ftp_(74) attach-agent $tcp_(74)
   $ns_ at 5.729014 "$ftp_(74) start"
   
   set tcp_(75) [new Agent/TCP]
   $tcp_(75) set class_ 2
   set sink_(75) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(75)
   $ns_ attach-agent $node_(84) $tcp_(75)
   $ns_ attach-agent $node_(75) $sink_(75)
   $ns_ connect $tcp_(75) $sink_(75)
   set ftp_(75) [new Application/FTP]
   $ftp_(75) attach-agent $tcp_(75)
   $ns_ at 5.598920 "$ftp_(75) start"
   
   set tcp_(76) [new Agent/TCP]
   $tcp_(76) set class_ 2
   set sink_(76) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(76)
   $ns_ attach-agent $node_(84) $tcp_(76)
   $ns_ attach-agent $node_(76) $sink_(76)
   $ns_ connect $tcp_(76) $sink_(76)
   set ftp_(76) [new Application/FTP]
   $ftp_(76) attach-agent $tcp_(76)
   $ns_ at 5.369434 "$ftp_(76) start"
   
   set tcp_(77) [new Agent/TCP]
   $tcp_(77) set class_ 2
   set sink_(77) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(77)
   $ns_ attach-agent $node_(87) $tcp_(77)
   $ns_ attach-agent $node_(77) $sink_(77)
   $ns_ connect $tcp_(77) $sink_(77)
   set ftp_(77) [new Application/FTP]
   $ftp_(77) attach-agent $tcp_(77)
   $ns_ at 5.494670 "$ftp_(77) start"
   
   set tcp_(78) [new Agent/TCP]
   $tcp_(78) set class_ 2
   set sink_(78) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(78)
   $ns_ attach-agent $node_(87) $tcp_(78)
   $ns_ attach-agent $node_(78) $sink_(78)
   $ns_ connect $tcp_(78) $sink_(78)
   set ftp_(78) [new Application/FTP]
   $ftp_(78) attach-agent $tcp_(78)
   $ns_ at 5.641396 "$ftp_(78) start"
   
   set tcp_(79) [new Agent/TCP]
   $tcp_(79) set class_ 2
   set sink_(79) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(79)
   $ns_ attach-agent $node_(87) $tcp_(79)
   $ns_ attach-agent $node_(79) $sink_(79)
   $ns_ connect $tcp_(79) $sink_(79)
   set ftp_(79) [new Application/FTP]
   $ftp_(79) attach-agent $tcp_(79)
   $ns_ at 5.066706 "$ftp_(79) start"
   
   set tcp_(80) [new Agent/TCP]
   $tcp_(80) set class_ 2
   set sink_(80) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(70) to $node_(80)
   $ns_ attach-agent $node_(70) $tcp_(80)
   $ns_ attach-agent $node_(80) $sink_(80)
   $ns_ connect $tcp_(80) $sink_(80)
   set ftp_(80) [new Application/FTP]
   $ftp_(80) attach-agent $tcp_(80)
   $ns_ at 5.919896 "$ftp_(80) start"
   
   set tcp_(81) [new Agent/TCP]
   $tcp_(81) set class_ 2
   set sink_(81) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(70) to $node_(81)
   $ns_ attach-agent $node_(70) $tcp_(81)
   $ns_ attach-agent $node_(81) $sink_(81)
   $ns_ connect $tcp_(81) $sink_(81)
   set ftp_(81) [new Application/FTP]
   $ftp_(81) attach-agent $tcp_(81)
   $ns_ at 5.139100 "$ftp_(81) start"
   
   set tcp_(82) [new Agent/TCP]
   $tcp_(82) set class_ 2
   set sink_(82) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(82)
   $ns_ attach-agent $node_(84) $tcp_(82)
   $ns_ attach-agent $node_(82) $sink_(82)
   $ns_ connect $tcp_(82) $sink_(82)
   set ftp_(82) [new Application/FTP]
   $ftp_(82) attach-agent $tcp_(82)
   $ns_ at 5.346310 "$ftp_(82) start"
   
   set tcp_(83) [new Agent/TCP]
   $tcp_(83) set class_ 2
   set sink_(83) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(83)
   $ns_ attach-agent $node_(84) $tcp_(83)
   $ns_ attach-agent $node_(83) $sink_(83)
   $ns_ connect $tcp_(83) $sink_(83)
   set ftp_(83) [new Application/FTP]
   $ftp_(83) attach-agent $tcp_(83)
   $ns_ at 5.959250 "$ftp_(83) start"
   
   set tcp_(85) [new Agent/TCP]
   $tcp_(85) set class_ 2
   set sink_(85) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(85)
   $ns_ attach-agent $node_(84) $tcp_(85)
   $ns_ attach-agent $node_(85) $sink_(85)
   $ns_ connect $tcp_(85) $sink_(85)
   set ftp_(85) [new Application/FTP]
   $ftp_(85) attach-agent $tcp_(85)
   $ns_ at 5.346090 "$ftp_(85) start"
   
   set tcp_(86) [new Agent/TCP]
   $tcp_(86) set class_ 2
   set sink_(86) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(86)
   $ns_ attach-agent $node_(87) $tcp_(86)
   $ns_ attach-agent $node_(86) $sink_(86)
   $ns_ connect $tcp_(86) $sink_(86)
   set ftp_(86) [new Application/FTP]
   $ftp_(86) attach-agent $tcp_(86)
   $ns_ at 5.394254 "$ftp_(86) start"
   
   set tcp_(88) [new Agent/TCP]
   $tcp_(88) set class_ 2
   set sink_(88) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(88)
   $ns_ attach-agent $node_(87) $tcp_(88)
   $ns_ attach-agent $node_(88) $sink_(88)
   $ns_ connect $tcp_(88) $sink_(88)
   set ftp_(88) [new Application/FTP]
   $ftp_(88) attach-agent $tcp_(88)
   $ns_ at 5.617224 "$ftp_(88) start"
   
   set tcp_(89) [new Agent/TCP]
   $tcp_(89) set class_ 2
   set sink_(89) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(89)
   $ns_ attach-agent $node_(87) $tcp_(89)
   $ns_ attach-agent $node_(89) $sink_(89)
   $ns_ connect $tcp_(89) $sink_(89)
   set ftp_(89) [new Application/FTP]
   $ftp_(89) attach-agent $tcp_(89)
   $ns_ at 5.325167 "$ftp_(89) start"
   
   set tcp_(90) [new Agent/TCP]
   $tcp_(90) set class_ 2
   set sink_(90) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(70) to $node_(90)
   $ns_ attach-agent $node_(70) $tcp_(90)
   $ns_ attach-agent $node_(90) $sink_(90)
   $ns_ connect $tcp_(90) $sink_(90)
   set ftp_(90) [new Application/FTP]
   $ftp_(90) attach-agent $tcp_(90)
   $ns_ at 5.086649 "$ftp_(90) start"
   
   set tcp_(91) [new Agent/TCP]
   $tcp_(91) set class_ 2
   set sink_(91) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(91)
   $ns_ attach-agent $node_(84) $tcp_(91)
   $ns_ attach-agent $node_(91) $sink_(91)
   $ns_ connect $tcp_(91) $sink_(91)
   set ftp_(91) [new Application/FTP]
   $ftp_(91) attach-agent $tcp_(91)
   $ns_ at 5.705836 "$ftp_(91) start"
   
   set tcp_(92) [new Agent/TCP]
   $tcp_(92) set class_ 2
   set sink_(92) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(92)
   $ns_ attach-agent $node_(84) $tcp_(92)
   $ns_ attach-agent $node_(92) $sink_(92)
   $ns_ connect $tcp_(92) $sink_(92)
   set ftp_(92) [new Application/FTP]
   $ftp_(92) attach-agent $tcp_(92)
   $ns_ at 5.920889 "$ftp_(92) start"
   
   set tcp_(93) [new Agent/TCP]
   $tcp_(93) set class_ 2
   set sink_(93) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(93)
   $ns_ attach-agent $node_(84) $tcp_(93)
   $ns_ attach-agent $node_(93) $sink_(93)
   $ns_ connect $tcp_(93) $sink_(93)
   set ftp_(93) [new Application/FTP]
   $ftp_(93) attach-agent $tcp_(93)
   $ns_ at 5.116698 "$ftp_(93) start"
   
   set tcp_(94) [new Agent/TCP]
   $tcp_(94) set class_ 2
   set sink_(94) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(84) to $node_(94)
   $ns_ attach-agent $node_(84) $tcp_(94)
   $ns_ attach-agent $node_(94) $sink_(94)
   $ns_ connect $tcp_(94) $sink_(94)
   set ftp_(94) [new Application/FTP]
   $ftp_(94) attach-agent $tcp_(94)
   $ns_ at 5.165538 "$ftp_(94) start"
   
   set tcp_(95) [new Agent/TCP]
   $tcp_(95) set class_ 2
   set sink_(95) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(95)
   $ns_ attach-agent $node_(87) $tcp_(95)
   $ns_ attach-agent $node_(95) $sink_(95)
   $ns_ connect $tcp_(95) $sink_(95)
   set ftp_(95) [new Application/FTP]
   $ftp_(95) attach-agent $tcp_(95)
   $ns_ at 5.845082 "$ftp_(95) start"
   
   set tcp_(96) [new Agent/TCP]
   $tcp_(96) set class_ 2
   set sink_(96) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(96)
   $ns_ attach-agent $node_(87) $tcp_(96)
   $ns_ attach-agent $node_(96) $sink_(96)
   $ns_ connect $tcp_(96) $sink_(96)
   set ftp_(96) [new Application/FTP]
   $ftp_(96) attach-agent $tcp_(96)
   $ns_ at 5.458643 "$ftp_(96) start"
   
   set tcp_(97) [new Agent/TCP]
   $tcp_(97) set class_ 2
   set sink_(97) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(97)
   $ns_ attach-agent $node_(87) $tcp_(97)
   $ns_ attach-agent $node_(97) $sink_(97)
   $ns_ connect $tcp_(97) $sink_(97)
   set ftp_(97) [new Application/FTP]
   $ftp_(97) attach-agent $tcp_(97)
   $ns_ at 5.052165 "$ftp_(97) start"
   
   set tcp_(98) [new Agent/TCP]
   $tcp_(98) set class_ 2
   set sink_(98) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(98)
   $ns_ attach-agent $node_(87) $tcp_(98)
   $ns_ attach-agent $node_(98) $sink_(98)
   $ns_ connect $tcp_(98) $sink_(98)
   set ftp_(98) [new Application/FTP]
   $ftp_(98) attach-agent $tcp_(98)
   $ns_ at 5.823381 "$ftp_(98) start"
   
   set tcp_(99) [new Agent/TCP]
   $tcp_(99) set class_ 2
   set sink_(99) [new Agent/TCPSink]
# DOWNLINK: From GW $node_(87) to $node_(99)
   $ns_ attach-agent $node_(87) $tcp_(99)
   $ns_ attach-agent $node_(99) $sink_(99)
   $ns_ connect $tcp_(99) $sink_(99)
   set ftp_(99) [new Application/FTP]
   $ftp_(99) attach-agent $tcp_(99)
   $ns_ at 5.852051 "$ftp_(99) start"
   
# MAC SETTINGS 

set opt(ARF)         1; # ARF
set opt(INIT_RATE)   5;
Mac/802_11 set ShortRetryLimit_ 7;    # Use default scheme
Mac/802_11 set LongRetryLimit_  4;    # 

# MAC: Use multi-rate, multi-SINR 802.11g links with ARF

$mac_(0)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(0) id] $opt(ARF) $opt(INIT_RATE)

$mac_(1)  setup-link [$mac_(2) id] $opt(ARF) $opt(INIT_RATE)
$mac_(2)  setup-link [$mac_(1) id] $opt(ARF) $opt(INIT_RATE)

$mac_(2)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(2) id] $opt(ARF) $opt(INIT_RATE)

$mac_(4)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(4) id] $opt(ARF) $opt(INIT_RATE)

$mac_(6)  setup-link [$mac_(5) id] $opt(ARF) $opt(INIT_RATE)
$mac_(5)  setup-link [$mac_(6) id] $opt(ARF) $opt(INIT_RATE)

$mac_(7)  setup-link [$mac_(16) id] $opt(ARF) $opt(INIT_RATE)
$mac_(16)  setup-link [$mac_(7) id] $opt(ARF) $opt(INIT_RATE)

$mac_(8)  setup-link [$mac_(16) id] $opt(ARF) $opt(INIT_RATE)
$mac_(16)  setup-link [$mac_(8) id] $opt(ARF) $opt(INIT_RATE)

$mac_(9)  setup-link [$mac_(5) id] $opt(ARF) $opt(INIT_RATE)
$mac_(5)  setup-link [$mac_(9) id] $opt(ARF) $opt(INIT_RATE)

$mac_(10)  setup-link [$mac_(31) id] $opt(ARF) $opt(INIT_RATE)
$mac_(31)  setup-link [$mac_(10) id] $opt(ARF) $opt(INIT_RATE)

$mac_(11)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(11) id] $opt(ARF) $opt(INIT_RATE)

$mac_(12)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)
$mac_(3)  setup-link [$mac_(12) id] $opt(ARF) $opt(INIT_RATE)

$mac_(13)  setup-link [$mac_(3) id] $opt(ARF) $opt(INIT_RATE)