0

Simulation Example

Posted by Alfian Abdul Ghaffar on 09.41
Simulation results in [GM:sigmetrics02] and [GM:spie02] were all performed in ns-2.

Size-aware scheduling consists of two parts: packet classification and packet differentiation. Therefore, corresponding modules (size-aware classifier and corresponding AQM schemes like RIO-PS) need to be installed. Step-by-step instructions can be found here.

When all the modules have been installed, we now see an illustrative scenario in which flows of size 5 packets or below being identified as short flows, and enjoy high priorities in packet delivery.  Figure 1 depicts the simulation topology.

simulation topology
Figure 1: Simulation Topology


In this simple example, there are two parallel TCP sessions sharing a single bottleneck link between
node 1 and node 2 (of capacity 700kb).

# Create a dumbbell topology 
$ns duplex-link $s(0) $n(0) 1Mb 5ms DropTail
$ns duplex-link $s(1) $n(0) 1Mb 5ms DropTail

$ns duplex-link $n(0) $n(1) 1Mb 20ms RED/myRIO
$ns duplex-link $n(1) $n(2) 700Kb 25ms RED/myRIO

$ns duplex-link $n(2) $r(0) 1Mb 5ms DropTail
$ns duplex-link $n(2) $r(1) 1Mb 5ms DropTail

One of the sessions runs from node 3 to node 5, periodically transmitting 1000 packets. Therefore, all flows in this session are long according to our definition. On the contrary, in the session from node 4 to node 6, only 4 packets are transmitted in each flow. The simulation script is shown below:

# Create sessions
proc build-fore-tcp { idx size intv stime } {
        global ns ftcp fsink

        set ftcp($idx) [new Agent/TCP/Newreno]
        set fsink($idx) [new Agent/TCPSink]

        $ns at $stime "start-conn 1 $idx $intv $size"
}

proc start-conn { firsttime idx intv size } {
        global ns ftcp fsink s r

        set now [$ns now]

        if { $firsttime == 0 } {
                $ns detach-agent $s([expr $idx%2]) $ftcp($idx)
                $ns detach-agent $r([expr $idx%2]) $fsink($idx)
                $ftcp($idx) reset
                $fsink($idx) reset
        }
        $ns attach-agent $s([expr $idx%2]) $ftcp($idx)
        $ns attach-agent $r([expr $idx%2]) $fsink($idx)
        $ns connect $ftcp($idx) $fsink($idx)
        $ftcp($idx) set fid_ 0

        $ftcp($idx) proc done {} "close-conn $idx $intv $size"
        $ftcp($idx) advanceby $size
}

proc close-conn { idx intv size } {
        global ns 

        set now [$ns now]
        $ns at [expr $now + $intv] "start-conn 0 $idx $intv $size"
        puts "at $now + $intv start next"
}

set forel_intv 1
set fores_intv 0.05
set ssize 4
set lsize 1000
build-fore-tcp 1 $ssize 1 0.1
build-fore-tcp 0 $lsize $forel_intv 0.5

for {set i 0} {$i < 5} { incr i} {

        build-fore-tcp [expr 2*$i+3] $ssize $fores_intv [expr 1.2+$i*0.1]
}

Node 0 is the "size-aware classifier", which counts the incoming packets from each flow. Once the count exceeds a certain threshold (in this case 5), the remaining packets from the corresponding flow are identified as long flow packets. In the simulation, long flow packets are colored in blue. All the other packets, i.e., packets from flows of size less than 5, and the first 5 packets from a long flow, are all identified as short flow packets, and colored in red in the simulation.

To upload a size-aware classifier with threshold set to 5 to node 0, do the following:
# Load a size-aware classifier to node 0 

set cls [new Classifier/Hash/SizeAware 128]
$cls set default_ -1
$cls set flowlen_thr_ 5
$cls set refresh_intv_ 2
$cls set dynamic_update_ 0
set n(0) [node_with_classifier $cls]


As a result, all packets between node 4 and node 6 are colored in red:

short flow packets
Figure 2: Packets from short flows.

For flows of size bigger than 5, the first 5 packets are colored in red, and the remaining packets are colored in blue:

long flow packets
Figure 3: Packets from long flows.


At the bottleneck link (link between node 1 and node 2), a differentiated dropping scheme is employed. This is achieved by:
$ns duplex-link $n(1) $n(2) 700Kb 25ms RED/myRIO
$ns duplex-link-op $n(1) $n(2) orient right

Queue/RED/myRIO set gentle_ true
Queue/RED/myRIO set thresh_ 1
Queue/RED/myRIO set maxthresh_ 15
Queue/RED/myRIO set weight_ 10
Queue/RED/myRIO set setbit_ false

set redq [[$ns link $n(1) $n(2)] queue]
$redq set q_weight_ [expr 1.0/2]
$redq set linterm_ [expr 4.0]
$ns queue-limit $n(1) $n(0) 30

Notice that to obtain a more drastic effect of size-aware differentiation, we choose a relatively high ratio between long and short flow packet dropping rate (weight_ is set to 10).

When congestion happens, low priority packets are dropped at a faster rate (on average 10 times faster) than that for high priority packets. This is illustrated in Figure 4:

drop rate comparison
Figure 4: More blue packets are dropped than red packets

As a result, high priority flows, or short flows, are transmitted at a rate higher than that of low priority flows, or long flows, as TCP flows are responsive to packet drops. That is the basic scheme of our size-aware scheduling. Figure 5 shows packets generated from the two sessions, after some packets are dropped:

rate after drop
Figure 5: Red packets are generated faster than blue packets.

0 Comments

Posting Komentar

Copyright © 2009 Doa, Usaha dan Secercah Harapan All rights reserved. Theme by Laptop Geek. | Bloggerized by FalconHive.