soundsim.tcl

在linux下开发的用于仿真ping协议的仿真文件

#define options
set val(chan) Channel/WirelessChannel
set val(prop) Propagation/TwoRayGround
set val(netif) Phy/WirelessPhy
set val(mac) Mac/802_11
set val(ifq) Queue/DropTail/PriQueue
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(ifqlen) 50
set val(nn) 9
set val(rp) AODV
set val(x) 500
set val(y) 500
set val(stop) 30.0
set val(dataflow)  "./cbr-test-9"
set val(scentest)   "./scen-9-test"
#Main Program


#Initialize Global Variables
set ns_ [new Simulator]

set tracefd [open soundsim.tr w]
#$ns_ use-newtrace
$ns_ trace-all $tracefd
set namtracefd [open soundsim.nam w]
$ns_ namtrace-all-wireless $namtracefd $val(x) $val(y)

proc finish {} {
	global ns_ tracefd namtracefd
	$ns_ flush-trace
	close $tracefd
	close $namtracefd
	exec nam soundsim.nam &
	exit 0
}

#Set topography object
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)

#Create God存储了节点的总数,各个节点之间的最短路径等信息
set god_ [create-god $val(nn)]

#config the nodes 
$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)\
-channelType $val(chan)\
-topoInstance $topo\
-agentTrace ON\
-routerTrace ON\
-macTrace OFF\
-movementTrace ON

for {set i 0} {$i<$val(nn)} {incr i} {
	set node_($i) [$ns_ node]
	$node_($i) random-motion 0
}

#Loading the scen test data scen-9-test

source $val(scentest)


#Loading the connection data cbr-test-9

source $val(dataflow)

#Define node initial position in nam
for {set i 0} {$i<$val(nn)} {incr i} {
$ns_ initial_node_pos $node_($i) 40
}

#Tell the nodes when the simulation ends
for {set i 0} {$i<$val(nn)} {incr i} {
$ns_ at $val(stop) "$node_($i) reset"
}

$ns_ at $val(stop) "finish"
$ns_ run