srm-adapt-rep-session.tcl
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:4k
源码类别:

通讯编程

开发平台:

Visual C++

  1. #
  2. # Copyright (C) 1997 by USC/ISI
  3. # All rights reserved.                                            
  4. #                                                                
  5. # Redistribution and use in source and binary forms are permitted
  6. # provided that the above copyright notice and this paragraph are
  7. # duplicated in all such forms and that any documentation, advertising
  8. # materials, and other materials related to such distribution and use
  9. # acknowledge that the software was developed by the University of
  10. # Southern California, Information Sciences Institute.  The name of the
  11. # University may not be used to endorse or promote products derived from
  12. # this software without specific prior written permission.
  13. # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  14. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  15. # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16. #
  17. # Maintainer: Kannan Varadhan <kannan@isi.edu>
  18. # Version Date: $Date: 1999/09/09 03:29:46 $
  19. #
  20. # @(#) $Header: /cvsroot/nsnam/ns-2/tcl/ex/srm-adapt-rep-session.tcl,v 1.6 1999/09/09 03:29:46 salehi Exp $ (USC/ISI)
  21. #
  22. #
  23. # simple 8 node star topology, runs for 50s, tests Adaptive timers.
  24. #
  25. if [string match {*.tcl} $argv0] {
  26.     set prog [string range $argv0 0 [expr [string length $argv0] - 5]]
  27. } else {
  28.     set prog $argv0
  29. }
  30. if {[llength $argv] > 0} {
  31.     set srmSimType [lindex $argv 0]
  32. } else {
  33.     set srmSimType Adaptive
  34. }
  35. source ../mcast/srm-nam.tcl ;# to separate control messages.
  36. #source ../mcast/srm-debug.tcl ;# to trace delay compute fcn. details.
  37. set ns [new SessionSim]
  38. #$ns trace-all [open out.tr w]
  39. # make the nodes
  40. set nmax 8
  41. for {set i 0} {$i <= $nmax} {incr i} {
  42.     set n($i) [$ns node]
  43. }
  44. # now the links
  45. for {set i 1} {$i <= $nmax} {incr i} {
  46.     $ns duplex-link $n($i) $n(0) 1.5Mb 10ms DropTail
  47. }
  48. # configure multicast
  49. set group [Node allocaddr]
  50. # now the agents
  51. set srmStats [open srmStats.tr w]
  52. set srmEvents [open srmEvents.tr w]
  53. # Drop a packet every 0.5 secs. starting at 3.52s.
  54. # Drops data packets to one receiver $n(2) only
  55. #$ns rtmodel Deterministic {3.021 0.498 0.002} $n(0) $n(2)
  56. set loss_module [new SRMErrorModel]
  57. $loss_module drop-packet 2 200 1
  58. $loss_module drop-target [$ns set nullAgent_]
  59. $ns insert-loss $loss_module 0 2
  60. set fid 0
  61. for {set i 1} {$i <= $nmax} {incr i} {
  62.     set srm($i) [new Agent/SRM/$srmSimType]
  63.     $srm($i) set dst_addr_ $group
  64.     $srm($i) set dst_port_ 0
  65.     $srm($i) set fid_ [incr fid]
  66.     $srm($i) log $srmStats
  67.     $srm($i) trace $srmEvents
  68.     $ns at 1.0 "$srm($i) start"
  69.     $ns attach-agent $n($i) $srm($i)
  70.     set sessionhelper($i) [$ns create-session $n($i) $srm($i)]
  71. }
  72. #$srm(4) set C1_ 0.5
  73. #$srm(4) set C2_ 1.0
  74. # And, finally, attach a data source to srm(1)
  75. set packetSize 800
  76. set s [new Application/Traffic/CBR]
  77. $s set packetSize_ $packetSize
  78. $s set interval_ 0.02
  79. $s attach-agent $srm(1)
  80. $srm(1) set tg_ $s
  81. $srm(1) set app_fid_ 0
  82. $srm(1) set packetSize_ $packetSize
  83. $ns at 3.5 "$srm(1) start-source"
  84. $ns at 50 "finish $s"
  85. proc finish src {
  86.     $src stop
  87.     global ns srmStats srmEvents srm
  88.     $ns flush-trace ;# NB>  Did not really close out.tr...:-)
  89.     close $srmStats
  90.     close $srmEvents
  91.     set avg_info [open ses-avg-info w]
  92.     puts $avg_info "avg:trep-delaytreq-delaytrep-dupttreq-dup"
  93.     foreach index [lsort -integer [array name srm]] {
  94. set tmplist [$srm($index) array get stats_]
  95. puts $avg_info "$indext[format %7.4f [lindex $tmplist 1]]tt[format %7.4f [lindex $tmplist 5]]tt[format %7.4f [lindex $tmplist 9]]tt[format %7.4f [lindex $tmplist 13]]"
  96.     }
  97.     flush $avg_info
  98.     close $avg_info
  99.     exit 0
  100. }
  101. set ave [open ave.tr w]
  102. proc doDump {now i tag} {
  103.     global srm ave
  104.     puts $ave [list $now $i
  105.     [$srm($i) set stats_(ave-dup-${tag})]
  106.     [$srm($i) set stats_(ave-${tag}-delay)]]
  107. }
  108. proc dumparams intvl {
  109.     global ns nmax
  110.     set now [$ns now]
  111.     doDump $now 1 rep
  112.     for {set i 2} { $i <= $nmax} {incr i} {
  113. doDump $now $i req
  114.     }
  115.     $ns at [expr $now + $intvl] "dumparams $intvl"
  116. }
  117. $ns at 4.0 "dumparams 0.5"
  118. $ns run