sources.tcl

无线个域网（WPAN）就是在个人周围空间形成的无线网络

# Creates connection. First creates a source agent of type s_type and binds
# it to source.  Next creates a destination agent of type d_type and binds
# it to dest.  Finally creates bindings for the source and destination agents,
# connects them, and  returns a list of source agent and destination agent.
TestSuite instproc create-connection-list {s_type source d_type dest pktClass} {
	$self instvar ns_
	set s_agent [new Agent/$s_type]
	set d_agent [new Agent/$d_type]
	$s_agent set fid_ $pktClass
	$d_agent set fid_ $pktClass
	$ns_ attach-agent $source $s_agent
	$ns_ attach-agent $dest $d_agent
	$ns_ connect $s_agent $d_agent

	return "$s_agent $d_agent"
}    

#
# create and schedule a cbr source/dst 
#
TestSuite instproc new_Cbr { startTime source dest pktSize interval fid maxPkts} {
	$self instvar ns_
	set cbrboth \
	    [$self create-connection-list CBR $source LossMonitor $dest $fid ]
	set cbr [lindex $cbrboth 0]
	$cbr set packetSize_ $pktSize
	$cbr set interval_ $interval
	if {$maxPkts > 0} {$cbr set maxpkts_ $maxPkts}
	set cbrsnk [lindex $cbrboth 1]
	$ns_ at $startTime "$cbr start"
}

#
# dynamically varying rate 
#
TestSuite instproc new_VaryingCbr { startTime source dest pktSize interval fid maxPkts} {
	$self instvar ns_
	set cbrboth \
	    [$self create-connection-list CBR $source LossMonitor $dest $fid ]
	set cbr [lindex $cbrboth 0]
	$cbr set packetSize_ $pktSize
	$cbr set interval_ $interval
	set cbrsnk [lindex $cbrboth 1]
	$ns_ at $startTime "$cbr start"

	$ns_ at 50.0 "$self ChangeCBRInterval $cbr 0.0625"
#	$ns_ at 100.0 "$self ChangeCBRInterval $cbr 2.0"
	$ns_ at 250.0 "$self ChangeCBRInterval $cbr 16.0"
#	$ns_ at 250.0 "$self ChangeCBRInterval $cbr 0.5"

#  	$ns_ at 50.0 "$self ChangeCBRInterval $cbr 2.0"
#  	$ns_ at 70.0 "$self ChangeCBRInterval $cbr 2.0"
#  	$ns_ at 90.0 "$self ChangeCBRInterval $cbr 0.5"
#  	$ns_ at 110.0 "$self ChangeCBRInterval $cbr 0.5"

}

TestSuite instproc ChangeCBRInterval { cbr mulfactor } {
	$self instvar ns_
	
#	puts "[$ns_ now] [$cbr set interval_]"
	set interval [$cbr set interval_]
	$cbr set interval_ [expr $interval*$mulfactor]
	
#	puts "[$ns_ now] [$cbr set interval_]"
}

#
# create and schedule a tcp source/dst
#
TestSuite instproc new_Tcp { startTime source dest window fid dump size type maxPkts {stopTime 0}} {
	$self instvar ns_
	$self instvar tcpRateFileDesc_
	$self instvar stoptime_

        if { $type == "reno" } {
		set tcp [$ns_ create-connection TCP/Reno $source TCPSink $dest $fid]
        }
        if { $type == "sack" } {
		set tcp [$ns_ create-connection TCP/Sack1 $source TCPSink/Sack1 $dest $fid]
        }

	$tcp set window_ $window
	#   $tcp set tcpTick_ 0.1
	$tcp set tcpTick_ 0.01

	if {$size > 0}  {
		$tcp set packetSize_ $size
	}
	set ftp [$tcp attach-source FTP]
	if {$maxPkts > 0} {$ftp set maxpkts_ $maxPkts}
	$ns_ at $startTime "$ftp start"
	if {$stopTime == 0} {
		set stopTime $stoptime_
	}
	if {$dump != 0} {
		$ns_ at $stopTime "$self reportTCPRate $tcp $startTime $stopTime $fid $tcpRateFileDesc_"
	}
    }

TestSuite instproc reportTCPRate {tcp startTime stopTime fid fdesc} {
		
	set bytes [$tcp set ack_]
	set rate [expr $bytes.0/($stopTime - $startTime)]

	puts $fdesc "$fid $rate $bytes"
}
	
TestSuite instproc new_TFRC { startTime source dest fid size} {
    $self instvar ns_
    
 
    set tfrc [$ns_ create-connection TFRC $source TFRCSink $dest $fid]
    if {$size > 0} {
	$tfrc set packetSize_ $size
    }

    $ns_ at $startTime "$tfrc start"
}