通讯编程

开发平台：
Visual C++

wpan_demo4b.tcl：源码内容
							###################################################
#          ZigBee Routing over 802.15.4           #
#                (beacon enabled)                 #
#        Copyright (c) 2003 Samsung/CUNY          #
# - - - - - - - - - - - - - - - - - - - - - - - - #
#           Prepared by Jianliang Zheng           #
#            (zheng@ee.ccny.cuny.edu)             #
###################################################
# ======================================================================
# Define options
# ======================================================================
set val(chan)           Channel/WirelessChannel    ;# Channel Type
set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
set val(netif)          Phy/WirelessPhy/802_15_4
set val(mac)            Mac/802_15_4
set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
set val(ll)             LL                         ;# link layer type
set val(ant)            Antenna/OmniAntenna        ;# antenna model
set val(ifqlen)         50                         ;# max packet in ifq
set val(nn)             21                         ;# number of mobilenodes
set val(rp)             ZBR                        ;# ZigBee Routing
set val(x)		50
set val(y)		50
set val(nam)		wpan_demo4.nam
set val(traffic)	cbr                        ;# cbr/poisson/ftp
#read command line arguments
proc getCmdArgu {argc argv} {
        global val
        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 val($name) [lindex $argv [expr $i+1]]
        }
}
getCmdArgu $argc $argv
set appTime1         	10.3	;# in seconds 
set appTime2         	10.6	;# in seconds 
set stopTime            100	;# in seconds 
# Initialize Global Variables
set ns_		[new Simulator]
set tracefd     [open ./wpan_demo4.tr w]
$ns_ trace-all $tracefd
if { "$val(nam)" == "wpan_demo4.nam" } {
        set namtrace     [open ./$val(nam) w]
        $ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
}
$ns_ puts-nam-traceall {# nam4wpan #}		;# inform nam that this is a trace file for wpan (special handling needed)
Mac/802_15_4 wpanCmd verbose on
Mac/802_15_4 wpanNam namStatus on		;# default = off (should be turned on before other 'wpanNam' commands can work)
#Mac/802_15_4 wpanNam ColFlashClr gold		;# default = gold
#Mac/802_15_4 wpanNam NodeFailClr grey		;# default = grey
# For model 'TwoRayGround'
set dist(5m)  7.69113e-06
set dist(9m)  2.37381e-06
set dist(10m) 1.92278e-06
set dist(11m) 1.58908e-06
set dist(12m) 1.33527e-06
set dist(13m) 1.13774e-06
set dist(14m) 9.81011e-07
set dist(15m) 8.54570e-07
set dist(16m) 7.51087e-07
set dist(20m) 4.80696e-07
set dist(25m) 3.07645e-07
set dist(30m) 2.13643e-07
set dist(35m) 1.56962e-07
set dist(40m) 1.20174e-07
Phy/WirelessPhy set CSThresh_ $dist(12m)
Phy/WirelessPhy set RXThresh_ $dist(12m)
# set up topography object
set topo       [new Topography]
$topo load_flatgrid $val(x) $val(y)
# Create God
set god_ [create-god $val(nn)]
set chan_1_ [new $val(chan)]
# configure node
$ns_ node-config -adhocRouting $val(rp) 
		-llType $val(ll) 
		-macType $val(mac) 
		-ifqType $val(ifq) 
		-ifqLen $val(ifqlen) 
		-antType $val(ant) 
		-propType $val(prop) 
		-phyType $val(netif) 
		-topoInstance $topo 
		-agentTrace OFF 
		-routerTrace OFF 
		-macTrace ON 
		-movementTrace OFF 
                #-energyModel "EnergyModel" 
                #-initialEnergy 1 
                #-rxPower 0.3 
                #-txPower 0.3 
		-channel $chan_1_
for {set i 0} {$i < $val(nn) } {incr i} {
	set node_($i) [$ns_ node]
	$node_($i) random-motion 0		;# disable random motion
}
set Cm 4
set Lm 3
Agent/ZBR Cm $Cm
Agent/ZBR Lm $Lm
Agent/ZBR BSize calc
set BlockSize [Agent/ZBR BSize]
set cskip0 [Agent/ZBR CSkip 0]
set cskip1 [Agent/ZBR CSkip 1]
set cskip2 [Agent/ZBR CSkip 2]
puts [format "Cm:        %s" $Cm]
puts [format "Lm:        %s" $Lm]
puts [format "BlockSize: %s" $BlockSize]
$ns_ at 0.0 "$ns_ trace-annotate "Cm = $Cm, Lm = $Lm, BlockSize = $BlockSize, CSkip0 = $cskip0, CSkip1 = $cskip1, CSkip2 = $cskip2""
# default is RN+, so only set RN-
$node_(3) RNType 0
$node_(4) RNType 0
$node_(7) RNType 0
$node_(8) RNType 0
$node_(9) RNType 0
$node_(10) RNType 0
$node_(13) RNType 0
$node_(15) RNType 0
$node_(18) RNType 0
$node_(20) RNType 0
source ./wpan_demo4.scn
$ns_ at 0.0	"$node_(0) NodeLabel "PAN Coor""
for {set i 1} {$i < $val(nn)} {incr i} {
	set RNType [eval $node_($i) RNType]
	if {$RNType == "0"} {	
		$ns_ at 0.0	"$node_($i) NodeLabel -"
	} else {
		$ns_ at 0.0	"$node_($i) NodeLabel +"
	}
}
$ns_ at 0.0	"$node_(0) sscs startCTPANCoord 1"	;# startCTPANCoord <txBeacon=1> <BO=3> <SO=3>
$ns_ at 0.3	"$node_(1) sscs startCTDevice 1 1" 	;# startCTDevice <isFFD=1> <assoPermit=1> <txBeacon=0> <BO=3> <SO=3>
$ns_ at 1.3	"$node_(9) sscs startCTDevice 1 1"
$ns_ at 1.7	"$node_(13) sscs startCTDevice 1 1"
$ns_ at 2.3	"$node_(19) sscs startCTDevice 1 1"
$ns_ at 3.3	"$node_(2) sscs startCTDevice 1 1 1"
$ns_ at 3.5	"$node_(7) sscs startCTDevice 1 1 1"
$ns_ at 3.6	"$node_(11) sscs startCTDevice 1 1 1"
$ns_ at 3.8	"$node_(16) sscs startCTDevice 1 1 1"
$ns_ at 4.3	"$node_(3) sscs startCTDevice 0 0"
$ns_ at 4.5	"$node_(6) sscs startCTDevice 1 1"
$ns_ at 4.8	"$node_(12) sscs startCTDevice 1 0"
$ns_ at 5.1	"$node_(17) sscs startCTDevice 1 0"
$ns_ at 5.6	"$node_(20) sscs startCTDevice 1 1"
$ns_ at 5.8	"$node_(5) sscs startCTDevice 1 1"
$ns_ at 6.0	"$node_(10) sscs startCTDevice 1 1"
$ns_ at 6.3	"$node_(14) sscs startCTDevice 1 1"
$ns_ at 6.8	"$node_(18) sscs startCTDevice 1 0"
$ns_ at 7.0	"$node_(4) sscs startCTDevice 0 0"
$ns_ at 7.3	"$node_(8) sscs startCTDevice 0 0"
$ns_ at 7.7	"$node_(15) sscs startCTDevice 0 0"
$ns_ at $appTime1 "$node_(0) sscs stopBeacon"
$ns_ at $appTime1 "$node_(2) sscs startBeacon 4 4"
$ns_ at $appTime1 "$node_(7) sscs startBeacon 4 4"
#$ns_ at $appTime1 "$node_(11) sscs stopBeacon"
#$ns_ at $appTime1 "$node_(16) sscs stopBeacon"
Mac/802_15_4 wpanNam PlaybackRate 4ms
$ns_ at $appTime1 "Mac/802_15_4 wpanNam PlaybackRate 1.0ms"
$ns_ at [expr $appTime1 + 0.5] "Mac/802_15_4 wpanNam PlaybackRate 2.0ms"
$ns_ at $appTime1 "puts "nTransmitting data ...n""
# Setup traffic flow between nodes
proc cbrtraffic { src dst interval starttime } {
   global ns_ node_
   set udp_($src) [new Agent/UDP]
   eval $ns_ attach-agent $node_($src) $udp_($src)
   set null_($dst) [new Agent/Null]
   eval $ns_ attach-agent $node_($dst) $null_($dst)
   set cbr_($src) [new Application/Traffic/CBR]
   eval $cbr_($src) set packetSize_ 80
   eval $cbr_($src) set interval_ $interval
   eval $cbr_($src) set random_ 0
   #eval $cbr_($src) set maxpkts_ 10000
   eval $cbr_($src) attach-agent $udp_($src)
   eval $ns_ connect $udp_($src) $null_($dst)
   $ns_ at $starttime "$cbr_($src) start"
}
proc poissontraffic { src dst interval starttime } {
   global ns_ node_
   set udp($src) [new Agent/UDP]
   eval $ns_ attach-agent $node_($src) $udp($src)
   set null($dst) [new Agent/Null]
   eval $ns_ attach-agent $node_($dst) $null($dst)
   set expl($src) [new Application/Traffic/Exponential]
   eval $expl($src) set packetSize_ 70
   eval $expl($src) set burst_time_ 0
   eval $expl($src) set idle_time_ [expr $interval*1000.0-70.0*8/250]ms	;# idle_time + pkt_tx_time = interval
   eval $expl($src) set rate_ 250k
   eval $expl($src) attach-agent $udp($src)
   eval $ns_ connect $udp($src) $null($dst)
   $ns_ at $starttime "$expl($src) start"
}
if {$val(rp) == "ZBR"} {
	Mac/802_15_4 wpanCmd callBack 2	;# 0=none; 1=failure only (default); 2=both failure and success
}
if { ("$val(traffic)" == "cbr") || ("$val(traffic)" == "poisson") } {
   puts "nTraffic: $val(traffic)"
   #Mac/802_15_4 wpanCmd ack4data on
   puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]
   $val(traffic)traffic 16 3 0.2 $appTime1
   $val(traffic)traffic 8 11 0.2 $appTime2
   Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
   Mac/802_15_4 wpanNam FlowClr -p ARP -c green
   Mac/802_15_4 wpanNam FlowClr -p MAC -c navy
   $ns_ at $appTime1 "$node_(16) add-mark m1 blue circle"
   $ns_ at $appTime1 "$node_(3) add-mark m2 blue circle"
   $ns_ at $appTime1 "$ns_ trace-annotate "(at $appTime1) $val(traffic) traffic from node 16 to node 3""
   $ns_ at $appTime2 "$node_(8) add-mark m3 green4 circle"
   $ns_ at $appTime2 "$node_(11) add-mark m4 green4 circle"
   $ns_ at $appTime2 "$ns_ trace-annotate "(at $appTime2) $val(traffic) traffic from node 8 to node 11""
   $ns_ at [expr $appTime1 + 2.0] "Mac/802_15_4 wpanCmd link-down 10 9"
   set tmpTime [format "%.1f" [expr $appTime1 + 2.0]]
   $ns_ at [expr $appTime1 + 2.0] "$ns_ trace-annotate "(at $tmpTime) link down: 10 -> 9""
   $ns_ at [expr $appTime2 + 3.0] "$node_(2) node-down"
   set tmpTime [format "%.1f" [expr $appTime2 + 3.0]]
   $ns_ at [expr $appTime2 + 3.0] "$ns_ trace-annotate "(at $tmpTime) node down: 2""
   $ns_ at [expr $appTime1 + 8.0] "Mac/802_15_4 wpanCmd link-up 10 9"
   set tmpTime [format "%.1f" [expr $appTime1 + 8.0]]
   $ns_ at [expr $appTime1 + 8.0] "$ns_ trace-annotate "(at $tmpTime) link up: 10 -> 9""
   $ns_ at [expr $appTime2 + 10.0] "$node_(2) node-up"
   set tmpTime [format "%.1f" [expr $appTime2 + 10.0]]
   $ns_ at [expr $appTime2 + 10.0] "$ns_ trace-annotate "(at $tmpTime) node up: 2""
   if { "$val(traffic)" == "cbr" } {
   	set pktType cbr
   } else {
   	set pktType exp
   }
   Mac/802_15_4 wpanNam FlowClr -p $pktType -s 16 -d 3 -c blue
   Mac/802_15_4 wpanNam FlowClr -p $pktType -s 8 -d 11 -c green4
}
proc ftptraffic { src dst starttime } {
   global ns_ node_
   set tcp($src) [new Agent/TCP]
   eval $tcp($src) set packetSize_ 60
   set sink($dst) [new Agent/TCPSink]
   eval $ns_ attach-agent $node_($src) $tcp($src)
   eval $ns_ attach-agent $node_($dst) $sink($dst)
   eval $ns_ connect $tcp($src) $sink($dst)
   set ftp($src) [new Application/FTP]
   eval $ftp($src) attach-agent $tcp($src)
   $ns_ at $starttime "$ftp($src) start"
}
if { "$val(traffic)" == "ftp" } {
   puts "nTraffic: ftp"
   #Mac/802_15_4 wpanCmd ack4data off
   puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]
   ftptraffic 16 3 $appTime1
   ftptraffic 8 11 $appTime2
   Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
   Mac/802_15_4 wpanNam FlowClr -p ARP -c green
   Mac/802_15_4 wpanNam FlowClr -p MAC -c navy
   $ns_ at $appTime1 "$node_(16) add-mark m1 blue circle"
   $ns_ at $appTime1 "$node_(3) add-mark m2 blue circle"
   $ns_ at $appTime1 "$ns_ trace-annotate "(at $appTime1) ftp traffic from node 16 to node 3""
   Mac/802_15_4 wpanNam FlowClr -p tcp -s 16 -d 3 -c blue
   Mac/802_15_4 wpanNam FlowClr -p ack -s 3 -d 16 -c blue
   $ns_ at $appTime2 "$node_(8) add-mark m3 green4 circle"
   $ns_ at $appTime2 "$node_(11) add-mark m4 green4 circle"
   $ns_ at $appTime2 "$ns_ trace-annotate "(at $appTime2) ftp traffic from node 8 to node 11""
   Mac/802_15_4 wpanNam FlowClr -p tcp -s 8 -d 11 -c green4
   Mac/802_15_4 wpanNam FlowClr -p ack -s 11 -d 8 -c green4
}
# defines the node size in nam
for {set i 0} {$i < $val(nn)} {incr i} {
	$ns_ initial_node_pos $node_($i) 2
}
# Tell nodes when the simulation ends
for {set i 0} {$i < $val(nn) } {incr i} {
    $ns_ at $stopTime "$node_($i) reset";
}
$ns_ at $stopTime "stop"
$ns_ at $stopTime "puts "nNS EXITING...n""
$ns_ at $stopTime "$ns_ halt"
proc stop {} {
    global ns_ tracefd appTime val env
    $ns_ flush-trace
    close $tracefd
    set hasDISPLAY 0
    foreach index [array names env] {
        #puts "$index: $env($index)"
        if { ("$index" == "DISPLAY") && ("$env($index)" != "") } {
                set hasDISPLAY 1
        }
    }
    if { ("$val(nam)" == "wpan_demo4.nam") && ("$hasDISPLAY" == "1") } {
    	exec nam wpan_demo4.nam &
    }
}
puts "nStarting Simulation..."
$ns_ run

						