s3.tcl

在Linux下做的QuadTree的程序

source mobile_node.tcl
source aodvnode.tcl

Trace set show_tcphdr_ 1

LL set delay_ 5us

Agent/TCP set packetSize_ 1460

NetHold set offset_     [Classifier set offset_]
NetHold set shift_      [Classifier/Addr set shift_]
NetHold set mask_       [Classifier/Addr set mask_]
NetHold set ifq_maxlen_ 50


set opt(ifq)            Queue/DropTail/PriQueue
set opt(ifqsize)        50
set opt(prop)           Propagation/FreeSpace
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)             5               ;# Number of Nodes
set opt(stop)           60.0            ;# seconds
set opt(routes)         Static

####
# Configurations...
#   0 = line
#   1 = cross
#   2 = "motion"
# TCP Connections
#   0 = none
#   1 = all n-1
#   2 = first-to-last [useful for motion and line]
#   3 = 1-2, 3-4 [crosses cross]
set opt(move)           1
set opt(config)         1
set opt(perup)          15
set opt(few)            3
set opt(rtabfreq)       25
set opt(spacing)        150
set opt(connection)     2

Simulator instproc make-routes { iflist } {
        foreach i $iflist {
                set src [$i node]
                foreach j $iflist {
                        set dst [$j node]

                        if {$src == $dst} continue

                        set queue_ [$src get-queue 0]
                        $src add-route [$dst id] $queue_
                }
        }
}


Simulator instproc mobile-node { chan } {
        global ns_ prop tracefd topo opt

        set node [new AODVNode]         ;# create a mobile node
        $node mobile_ 1                         ;# enable mobility
        $node forwarding_ 1                     ;# not a router
        $node topography $topo

        #
        # 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
        }

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

        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
        lappend move config perup few rtabfreq spacing connection

        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"
        exit 1
}

getopt $argc $argv

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

#
# The following creates a flat grid that is 100m X 100m
#
# now 1km x 1km
$topo load_flatgrid 1000 1000



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


#
# 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
}


# Cross must be five nodes!
#if {$opt(config) == 1} {
#    set opt(nn) 5
#}

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

    $node($i) set perup_ $opt(perup)
    $node($i) set few_   $opt(few)

    if {$opt(move) < 1} {
        $ns_ at 1.0 "$node($i) set position_update_interval_ $opt(stop)"
    }


    $ns_ at 0.$i "$node($i) start"
    $ns_ at 2.$i "$node($i) set position_update_interval_ 1"
    $ns_ at 3.$i "[$node($i) set forwarder_] start"
    puts "node started\n"

    if {$opt(config) == 0} {
        $ns_ at 0.2 "$node($i) setdest [expr $opt(spacing)*$i] 200 100000"
    }

    if {$opt(config) == 2} {
        if {$i == [expr $opt(nn) - 1]} {
            set a [expr [expr $i - 1] * $opt(spacing)]
            set b [expr $a / [expr 0.0 + $opt(stop)]]
            $ns_ at 0.2 "$node($i) setdest 0 0 100000"
            $ns_ at 0.3 "$node($i) setdest $a 0 $b"
        } else {
            $ns_ at 0.2 "$node($i) setdest [expr $opt(spacing)*$i] 200 100000"
        }
    }
}

if {$opt(config) == 1} {
    set a $opt(spacing)
    set b [expr 2*$opt(spacing)]
    set c 0
    $ns_ at 0.5 "$node(0) setdest 0 300 100000"
    $ns_ at 0.7 "$node(1) setdest 150 300 100000"
    $ns_ at 0.8 "$node(2) setdest 300 300 100000"
    $ns_ at 0.9 "$node(3) setdest 450 300 100000"
    $ns_ at 0.99 "$node(4) setdest 600 300 100000"
    $ns_ at 100.0 "$node(3) setdest 150 450 100000"
    #$ns_ at 1.3 "$node(5) setdest 150 150 100000"
    #$ns_ at 1.3 "$node(6) setdest 150 0 100000"
    #$ns_ at 1.3 "$node(7) setdest 250 450 100000"
}

# Set up TCP connections
if {$opt(connection) == 1} {
    set maxi [expr $opt(nn) - 1]
    for {set i 0} {$i < $maxi } {incr i} {
        set tcp_($i) [$ns_ create-connection \
                          TCP $node($i) TCPSink $node([expr $i+1]) 0]
        $tcp_($i) set window_ 1500 
        
        set ftp_($i) [$tcp_($i) attach-source FTP]
        $ns_ at 4 "$ftp_($i) start"
    }
}

if {$opt(connection) == 2} {
    set tcp_ [$ns_ create-connection \
                  TCP  $node(3) TCPSink $node(0) 0]
#                  TCP  $node([expr $opt(nn) - 1]) TCPSink $node(0) 0]
    $tcp_ set window_ 32
    set ftp_ [$tcp_ attach-source FTP]
    $ns_ at 5 "$ftp_ start"
}

if {$opt(connection) == 3} {
    puts "Sorry, this doesn't work!\n"
}

$ns_ at $opt(stop) "puts \"NS EXITING...\" ; exit"

puts "Starting Simulation..."

$ns_ run