fairnessall1.v2.tcl

在Linux下做的QuadTree的程序

# OUTPUT:
# Fairness.data: CBR arrival rate, CBR goodput, TCP goodput (in KBps) 
#
# INPUT:
# Fairness.tr:
# 
proc append { infile datafile } {
    set awkCode {
	{
	    if ($1=="stop-time") {time = $2;}
	    if ($3=="packet-size") {size[$2] = $4;}
	    if ($3=="total_packets_acked"||$3=="total_packets_received") {
		packets[$2] += $4;
		goodput[$2] = (packets[$2]*size[$2]*8)/1000
	    }
	    if ($3=="arriving_pkts") { 
		if ($2==0) {
		    cbrrate = (($4*size[0]*8)/time)/1000
		    print cbrrate, goodput[0]/time, goodput[1]/time
		}
	    }
	}
    } 
    exec awk $awkCode $infile >> $datafile
}

#-------------------------------------------------------------------

proc finish { } {
    global datafile psfile

    set awkCode1 { {printf "%8.2f %8.2f\n", $1, $1} }
    set awkCode2 { {printf "%8.2f %8.2f\n", $1, $2} }
    set awkCode3 { {printf "%8.2f %8.2f\n", $1, $3} }
    # cbr arrival vs. cbr goodput
    exec awk $awkCode2 $datafile | sort > chart
    # cbr arrival vs. tcp goodput
    exec awk $awkCode3 $datafile | sort > chart1
    # cbr arrival vs. cbr arrival
    exec awk $awkCode1 $datafile | sort > chart2
    ##
    set f [open temp.rands w]
    puts $f "TitleText: $psfile"
    puts $f "Device: Postscript" 
    
    puts $f \"UdpArrivals
    flush $f
    exec cat chart2 >@ $f
    flush $f
    
    
    puts $f \n"UdpGoodput
    flush $f
    exec cat chart >@ $f
    flush $f
    
    puts $f \n"TcpGoodput
    flush $f
    exec cat chart1 >@ $f
    flush $f
    
    close $f
    puts "Calling xgraph..."
    exec xgraph -bb -tk -m -x UdpArrivals -y GoodputKbps temp.rands &
    exit 0
}