traffic.tcl

来自「跑leach需要的」· TCL 代码 · 共 88 行

# Create many persistent TCP connections.
# Start time between startinterval and endinterval.
# Number of connections: num
proc create_tcps {num src dst tcptype win class size startinterval \
        endinterval} {
    set maxrval [expr pow(2,31)]
    set tdiff [expr $endinterval - $startinterval]

    for { set j 0 } { $j < $num } { incr j } {
        set randomval [ns-random]
        set rtmp [expr $randomval / $maxrval]
        set start_time [expr $rtmp * $tdiff]
        set numpkts 0
        new_Tcp $start_time $start_time $src $dst $win $class $size $tcptype $numpkts
        incr class
    }
}

# Create many persistent cbr connections.  
# Start time between startinterval and endinterval.
# Number of connections: num.
proc create_cbrs {num src dst class size interval startinterval \
        endinterval} {
    set maxrval [expr pow(2,31)]
    set tdiff [expr $endinterval - $startinterval]

    for { set j 0 } { $j < $num } { incr j } {
        set randomval [ns-random]
        set rtmp [expr $randomval / $maxrval]
        set start_time [expr $rtmp * $tdiff]
        
        new_cbr $start_time $src $dst $size $interval $class 
    }
}

#
# create and schedule a tcp source/dst with an infinite demand(a ftp src)
#
proc new_Tcp { startTime stopTime source dest window class size type maxpkts } {
  global ns

  set tcp [$ns create-connection $type $source TCPSink $dest $class]
  $tcp set window_ $window
  if {$size > 0}  {
    $tcp set packetSize_ $size
  }
  if {$maxpkts > 0} {
    $tcp set maxpkts_ $maxpkts
  }
  set ftp [$tcp attach-source FTP]
  $ns at $startTime "$ftp start"
  if {$stopTime > $startTime} {
   $ns at $stopTime "$ftp stop"
  }
}

# Create many short TCP connections.  
# Number of packets between minpkts and maxpkts.
# Start time between startinterval and endinterval.
# Number of connections: nmice.
proc create_mice {nmice src dst tcptype win classbase startinterval \
        endinterval} {
    set maxrval [expr pow(2,31)]
    set minpkts 2
    set maxpkts [expr $minpkts + 5]
    set tdiff [expr $endinterval - $startinterval]
    
    set classnum $classbase

    for { set j 0 } { $j < $nmice } { incr j } {
        set randomval [ns-random]
        set rtmp [expr $randomval / $maxrval]
        set start_time [expr $rtmp * $tdiff]
        set randomval [ns-random]
        set rtmp [expr $randomval / $maxrval]
        if { $rtmp > 0.5 } {
            set psize 512
        } else {
            set psize 1460
        }
        set randomval [ns-random]
        set rtmp [expr $randomval / $maxrval]
        set numpkts [expr round($rtmp * $maxpkts) + $minpkts]
        
        new_Tcp $start_time $start_time $src $dst $win $classnum $psize $tcptype $numpkts
    }
}