paper2.tcl

在Linux下做的QuadTree的程序

# script for paper data gathering

source cmu/dsr/srnode.tcl

Trace set show_tcphdr_ 1
LL set delay_ 5us
Agent/TCP set packetSize_ 1460

set opt(ifq)		Queue/DropTail
set opt(ifqsize)	50
set opt(prop)		Propagation/TwoRayGround
set opt(chan)		Channel
set opt(netif)		NetIf/WaveLAN
set opt(ll)             LL
#set opt(mac)           Mac/802_3
set opt(mac)            Mac/802_11
set opt(tr)		out.tr
set opt(nc)		1		;# Number of Channels
set opt(nn)		50		;# Number of Nodes
set opt(stop)		60.0		;# seconds
set opt(rt_port)        128             ;# must agree with packet.h
set opt(seed)           0
set opt(sc)             ""
set opt(geo)            "2000x400"

Simulator instproc srnode  { chan } {
    global ns_ prop tracefd topo opt
    
    set node [new SRNode $tracefd]

    $node topography $topo

    $node add-if $chan $prop $tracefd $opt(ll) $opt(mac)

    #
    # This Trace Target is used to log changes in direction
    # and velocity for the mobile node.
    #
    if {$tracefd != ""} {
	set T [new Trace/Generic]
	$T target [$ns_ set nullAgent_]
	$T attach $tracefd
	$T set src_ [$node id]
	$node tracetarget $T
    }
    
    return $node
}

proc getopt {argc argv} {
	global opt
	lappend optlist tr stop num seed tmp
	lappend optlist qsize bw delay ll ifq mac chan tp sink source cbr

	for {set i 0} {$i < $argc} {incr i} {
		set arg [lindex $argv $i]
		if {[string range $arg 0 0] != "-"} continue

		set name [string range $arg 1 end]
		set opt($name) [lindex $argv [expr $i+1]]
	}
}


# *** MAIN PROGRAM ***

if {$argc == 0} {
	puts "Usage: $argv0 \[-stop sec\] \[-nn nodes\] \[-tr tracefile\]\n"
	puts "              \[-seed int\] \[-sc scenariofile\]\n"
}

getopt $argc $argv

#
# Initialize Global Variables
#
set ns_		[new Simulator]
set ns $ns_
set prop	[new $opt(prop)]
set tracefd	[open $opt(tr) w]
set topo	[new Topography]

set godtrace     [new Trace/Generic]
$godtrace target [$ns_ set nullAgent_]
$godtrace attach $tracefd

set god_        [new God]
$god_ num_nodes $opt(nn)
$god_ tracetarget $godtrace

#
# The following creates a flat grid that is 100m X 1000m
#
if {$opt(geo) == "100x1500"} {
    $topo load_flatgrid 100 1500
} elseif {$opt(geo) == "500x500"} {
    $topo load_flatgrid 500 1500
} elseif {$opt(geo) == "2000x400"} {
    $topo load_flatgrid 2000 400
} else {
    $topo load_flatgrid 100 100
}

#
# Create the specified number of channels $opt(nc) and their
# corresponding network interfaces.
#
for {set i 0} {$i < $opt(nc) } {incr i} {
	set channel_($i) [new $opt(chan)]
	set iflist_($i) ""		;# interface list for channel $i
}


#
#  Create the specified number of nodes $opt(nn) and "attach" them
#  to channel 0.
#
for {set i 0} {$i < $opt(nn) } {incr i} {
    puts "Making node $i"
    set node($i) [$ns_ srnode $channel_(0)]
    $ns_ at 0.0 "$node($i) start-dsr"
}


source tcl/ex/timer.tcl
Class LogTimer -superclass Timer
LogTimer instproc timeout {} {
    global opt node;
    for {set i 0} {$i < $opt(nn)} {incr i} {
	$node($i) log-movement
    }
    $self sched 0.5
}

set logtimer [new LogTimer]
$logtimer sched 0.5

# Set up CBR connections
#source cmu/cbr-comm-pattern

set i 0
set tcp_($i) [$ns_ create-connection \
	TCP $node($i) TCPSink $node([expr $i+1]) 0]
$tcp_($i) set window_ 32

set ftp_($i) [$tcp_($i) attach-source FTP]
$ns_ at 0.$i "$ftp_($i) start"



$ns_ at $opt(stop) "$ns_ halt"

if {$opt(sc) != "" } { source $opt(sc) }

puts "Starting Simulation..."

$ns_ run