test-suite-smac.tcl

跑leach需要的

# Copyright (c) 2000 by the University of Southern California
# All rights reserved.
#
# Permission to use, copy, modify, and distribute this software and its
# documentation in source and binary forms for non-commercial purposes
# and without fee is hereby granted, provided that the above copyright
# notice appear in all copies and that both the copyright notice and
# this permission notice appear in supporting documentation. and that
# any documentation, advertising materials, and other materials related
# to such distribution and use acknowledge that the software was
# developed by the University of Southern California, Information
# Sciences Institute.  The name of the University may not be used to
# endorse or promote products derived from this software without
# specific prior written permission.
#
# THE UNIVERSITY OF SOUTHERN CALIFORNIA makes no representations about
# the suitability of this software for any purpose.  THIS SOFTWARE IS
# PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES,
# INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
# Other copyrights might apply to parts of this software and are so
# noted when applicable.

# To view a list of available tests to run with this script:
# ns test-suite-smac.tcl

Class TestSuite

Class Test/brdcast1 -superclass TestSuite
# 2 nodes brdcast ping req/replies to one another

Class Test/brdcast1_sync -superclass TestSuite

Class Test/brdcast2 -superclass TestSuite
# 3 node topology brdcasting ping req/rep that result in collision

Class Test/brdcast2_sync -superclass TestSuite

Class Test/unicast1 -superclass TestSuite
# 2 node topology unicasting with RTS/CTS/DATA/ACK exchange

Class Test/unicast1_sync -superclass TestSuite

Class Test/unicast2 -superclass TestSuite
# 3 node topology where node 0 & 1 unicast and node 2 brdcast.

Class Test/unicast2_sync -superclass TestSuite

Class Test/unicast3 -superclass TestSuite
#3 node topolofy where node 2 is neighbor to the sender node. can hear RTS/DATA, not CTS

Class Test/unicast3_sync -superclass TestSuite

Class Test/unicast4 -superclass TestSuite
#3 node topology where node 2 is neighbor to the recvr node. can hear CTS only.

Class Test/unicast4_sync -superclass TestSuite

Class Test/unicast5 -superclass TestSuite
# 4 node topology. 2 sender-recvr pairs (0->1 & 3->2)
#3 cannot hear 0 & 1. 2 can hear only sender 0.
 
Class Test/unicast5_sync -superclass TestSuite

Class Test/unicast6 -superclass TestSuite
# 4 node topology. 2 sender-recvr pairs (0->1 & 3->2)
#3 cannot hear 0 & 1. 2 can hear only recvr 1.

Class Test/unicast6_sync -superclass TestSuite

Class Test/unicast7 -superclass TestSuite
# 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
#3 cannot hear 0 & 1. 2 can hear only sender 0.
 
Class Test/unicast7_sync -superclass TestSuite

Class Test/unicast8 -superclass TestSuite
# 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
#3 cannot hear 0. 2 can hear only recvr 1.

Class Test/unicast8_sync -superclass TestSuite

Class Test/unicast9 -superclass TestSuite
# 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
#2 & 3 can hear 0 & 1 but cannot recv pkts correctly. a lot of delay

Class Test/unicast9_sync -superclass TestSuite

Class Test/unicast10 -superclass TestSuite
# 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
#2 & 3 cannot hear and recv from 0 & 1. can send simultaneously.

Class Test/unicast10_sync -superclass TestSuite

Class Test/unicast11 -superclass TestSuite
# 3 node triangle topology.1->2,2->3,3->1.

Class Test/unicast11_sync -superclass TestSuite

Class Test/unicast12 -superclass TestSuite
# 3 node triangle topology.1->2,2->3,3->1.with error model on every incoming interface
# that randomly drops pkts

Class Test/unicast12_sync -superclass TestSuite

proc usage {} {
    global argv0
    puts stderr "usage: ns $argv0 <tests>"
    puts "Valid tests: brdcast1"
}

proc default_options {} {
    global opt
    set opt(chan)           Channel/WirelessChannel    ;# channel type
    set opt(prop)           Propagation/TwoRayGround   ;# radio-propagation model
    set opt(netif)          Phy/WirelessPhy            ;# network interface type
    set opt(mac)            Mac/SMAC                   ;# MAC type
    #set opt(mac)            Mac/802_11                 ;# MAC type
    set opt(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
    set opt(ll)             LL                         ;# link layer type
    set opt(ant)            Antenna/OmniAntenna        ;# antenna model
    set opt(ifqlen)         50                         ;# max packet in ifq
    set opt(x)              800
    set opt(y)              800
    set opt(rp)             DumbAgent               ;# routing protocol
    set opt(tr)             temp.rands
    set opt(stop)           5.0
    set opt(stop-sync)      100.0        ;# extended run time for sync simulations
    set opt(seed)           1
}

TestSuite instproc init {} {
    global opt node_
    $self instvar ns_ topo_ tracefd_ testname_

    set name [split $testname_ _]
    puts "$name"
    if { [lindex $name 1] == "sync" } {
	Mac/SMAC set syncFlag_ 1
    }

    set ns_         [new Simulator]
    
    puts "Seeding Random number generator with $opt(seed)\n"
    ns-random $opt(seed)
    
    set tracefd_	[open $opt(tr) w]
    $ns_ trace-all $tracefd_
    
    set topo_	    [new Topography]
    $topo_ load_flatgrid $opt(x) $opt(y)
    
    create-god $opt(nn)

    $ns_ node-config -adhocRouting $opt(rp) \
                         -macType $opt(mac) \
                         -llType $opt(ll) \
			 -ifqType $opt(ifq) \
			 -ifqLen $opt(ifqlen) \
			 -antType $opt(ant) \
			 -propType $opt(prop) \
			 -phyType $opt(netif) \
			 -channelType $opt(chan) \
			 -topoInstance $topo_ \
			 -agentTrace ON \
			 -routerTrace ON \
			 -macTrace ON

    if {$testname_ == "unicast12" } {
	$ns_ node-config --IncomingErrProc $opt(err)
    }
    
#    if { [lindex $name 1] == "sync" } {
	#$ns_ node-config -macTrace OFF
#    }
    			 
    for {set i 0} {$i < $opt(nn) } {incr i} {
	set node_($i) [$ns_ node]	
	$node_($i) random-motion 0		;# disable random motion
    }
}


TestSuite instproc run {} {
    global opt node_
    $self instvar ns_ testname_

    set n [split $testname_ _]
    if { [lindex $n 1] == "sync" } {
	set opt(stop) $opt(stop-sync)
    }
    puts "$opt(stop)"  
    #
    # Tell nodes when the simulation ends
    #
    for {set i 0} {$i < $opt(nn) } {incr i} {
	$ns_ at $opt(stop) "$node_($i) reset";
    }
    
    $ns_ at $opt(stop) "$self finish"
    $ns_ at $opt(stop) "puts \"NS EXITING...\" ; $ns_ halt"

    puts "Starting Simulation..."
    $ns_  run
}

Test/brdcast1 instproc init {} {
    global opt node_
    $self instvar ns_ testname_
    
    set testname_ brdcast1
    set opt(nn) 2
    $self next
    
    
    $node_(0) set X_ 5.0
    $node_(0) set Y_ 2.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 50.0
    $node_(1) set Y_ 45.0
    $node_(1) set Z_ 0.0
    
    # all scheduled to brdcast at same time
    
    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    $ns_ at 1.0 "$ping0 start-WL-brdcast"
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1
    $ns_ at 1.0 "$ping1 start-WL-brdcast"
    
}

Test/brdcast1 instproc run {} {
    $self instvar ns_
    $self next
}

    

Test/brdcast1_sync instproc init {} {
    global opt node_
    $self instvar testname_ ns_
    
    set testname_ brdcast1_sync
    set opt(nn) 2
    $self next
    
    $node_(0) set X_ 5.0
    $node_(0) set Y_ 2.0
    $node_(0) set Z_ 0.0
    
    
    $node_(1) set X_ 50.0
    $node_(1) set Y_ 45.0
    $node_(1) set Z_ 0.0

    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    $ns_ at 40.0 "$ping0 start-WL-brdcast"
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1
    $ns_ at 40.0 "$ping1 start-WL-brdcast"

}

Test/brdcast1_sync instproc run {} {
    $self instvar ns_
    $self next
}

Test/brdcast2 instproc init {} {
    global opt node_
    $self instvar ns_ net_ testname_ topo_ tracefd_
    
    set testname_ brdcast2
    set opt(nn)  3
    $self next
    
    $node_(0) set X_ 5.0
    $node_(0) set Y_ 2.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 50.0
    $node_(1) set Y_ 45.0
    $node_(1) set Z_ 0.0
    
    $node_(2) set X_ 150.0
    $node_(2) set Y_ 150.0
    $node_(2) set Z_ 0.0
    
    # all scheduled to brdcast at same time
    
    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    $ns_ at 1.0 "$ping0 start-WL-brdcast"
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1
    $ns_ at 1.0 "$ping1 start-WL-brdcast"

    set ping2 [new Agent/Ping]
    $ns_ attach-agent $node_(2) $ping2
    $ns_ at 1.0 "$ping2 start-WL-brdcast"
}

Test/brdcast2 instproc run {} {
    $self instvar ns_
    $self next
}

Test/brdcast2_sync instproc init {} {
    global opt node_
    $self instvar ns_ testname_
    
    set testname_ brdcast2_sync
    set opt(nn)  3
    $self next
    
    $node_(0) set X_ 5.0
    $node_(0) set Y_ 2.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 50.0
    $node_(1) set Y_ 45.0
    $node_(1) set Z_ 0.0
    
    $node_(2) set X_ 150.0
    $node_(2) set Y_ 150.0
    $node_(2) set Z_ 0.0
    
    # all scheduled to brdcast at same time
    
    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    $ns_ at 40.0 "$ping0 start-WL-brdcast"
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1
    $ns_ at 41.0 "$ping1 start-WL-brdcast"

    set ping2 [new Agent/Ping]
    $ns_ attach-agent $node_(2) $ping2
    $ns_ at 42.0 "$ping2 start-WL-brdcast"
}

Test/brdcast2_sync instproc run {} {
    $self instvar ns_
    $self next
}


Test/unicast1 instproc init {} {
    global opt node_
    $self instvar ns_ net_ testname_ topo_ tracefd_
    
    set testname_ unicast1
    set opt(nn) 2
    $self next

    $node_(0) set X_ 5.0
    $node_(0) set Y_ 2.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 50.0
    $node_(1) set Y_ 45.0
    $node_(1) set Z_ 0.0

    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1
    
    # connect two agents
    $ns_ connect $ping0 $ping1

    $ns_ at 1.0 "$ping0 send"

}


Test/unicast1 instproc run {} {
    $self instvar ns_
    $self next
}

Test/unicast1_sync instproc init {} {
    global opt node_
    $self instvar ns_ net_ testname_ topo_ tracefd_
    
    set testname_ unicast1_sync
    set opt(nn) 2
    $self next

    $node_(0) set X_ 5.0
    $node_(0) set Y_ 2.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 50.0
    $node_(1) set Y_ 45.0
    $node_(1) set Z_ 0.0

    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1
    
    # connect two agents
    $ns_ connect $ping0 $ping1

    $ns_ at 40.0 "$ping0 send"

}


Test/unicast1_sync instproc run {} {
    $self instvar ns_
    $self next
}



Test/unicast2 instproc init {} {
    global opt node_
    $self instvar ns_ net_ testname_ topo_ tracefd_
    
    set testname_ unicast2
    set opt(nn) 3
    $self next

    $node_(0) set X_ 300.0
    $node_(0) set Y_ 350.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 450.0
    $node_(1) set Y_ 350.0
    $node_(1) set Z_ 0.0
    
    # 2 can hear and recv from nodes 0 & 1 (sender and recvr)
    $node_(2) set X_ 400.0
    $node_(2) set Y_ 125.0
    $node_(2) set Z_ 0.0
    
    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1

    # connect two agents
    $ns_ connect $ping0 $ping1
    
    set ping2 [new Agent/Ping]
    $ns_ attach-agent $node_(2) $ping2
    
    # start times for connections
    $ns_ at 0.1 "$ping0 send"

    # ping2 sends brdcast overlapping with ping0
    $ns_ at 0.2 "$ping2 start-WL-brdcast"

}

Test/unicast2 instproc run {} {
    $self instvar ns_
    $self next
}

Test/unicast2_sync instproc init {} {
    global opt node_
    $self instvar ns_ net_ testname_ topo_ tracefd_
    
    set testname_ unicast2_sync
    set opt(nn) 3
    $self next

    $node_(0) set X_ 300.0
    $node_(0) set Y_ 350.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 450.0
    $node_(1) set Y_ 350.0
    $node_(1) set Z_ 0.0
    
    # 2 can hear and recv from nodes 0 & 1 (sender and recvr)
    $node_(2) set X_ 400.0
    $node_(2) set Y_ 125.0
    $node_(2) set Z_ 0.0
    
    set ping0 [new Agent/Ping]
    $ns_ attach-agent $node_(0) $ping0
    
    set ping1 [new Agent/Ping]
    $ns_ attach-agent $node_(1) $ping1

    # connect two agents
    $ns_ connect $ping0 $ping1
    
    set ping2 [new Agent/Ping]
    $ns_ attach-agent $node_(2) $ping2
    
    # start times for connections
    $ns_ at 40.1 "$ping0 send"

    # ping2 sends brdcast overlapping with ping0
    $ns_ at 40.2 "$ping2 start-WL-brdcast"

}

Test/unicast2_sync instproc run {} {
    $self instvar ns_
    $self next
}


Test/unicast3 instproc init {} {
    global opt node_
    $self instvar ns_ net_ testname_ topo_ tracefd_
    
    set testname_ unicast3
    set opt(nn) 3
    $self next
    
    $node_(0) set X_ 300.0
    $node_(0) set Y_ 300.0
    $node_(0) set Z_ 0.0
    
    $node_(1) set X_ 150.0
    $node_(1) set Y_ 150.0
    $node_(1) set Z_ 0.0