I have the archive node_setup.tcl that it follows below and mine
doubts is where rtaglo_rungrid.tcl is in red as to pass this value for
the archive
set node0 0
set taxa 7.0; #voltar para 0.2
set src_(0) [new Agent/RTAlgo_Sink]
$ns_ attach-agent $node_($node0) $src_(0)
$ns_ put-in-list $src_(0)
$src_(0) set packetSize_ 64
$src_(0) set interval_ $taxa
$src_(0) data-type 1
$src_(0) always-max-rate
$src_(0) set fid_ 1
$src_(0) $opt(duplicate)
$ns_ at 0.0001 "$node_($node0) color blue"
$ns_ at 0.0001 "$node_($node0) label src"
puts "no 0 vai chamar ready"
$ns_ at 0.036182026954452516 "$src_(0) ready"
#set c [ns-random]
for {set i 0} {$i < 0 } {incr i} {
set c [expr [ns-random c] % ($opt(nn) - 1)]
set address [expr $opt(nn) - 1]
set sk_(0) [new Agent/RTAlgo_Sink]
$ns_ attach-agent $node_($address) $sk_(0)
$ns_ put-in-list $sk_(0)
$sk_(0) set packetSize_ 64
$sk_(0) set interval_ 0.05
$sk_(0) data-type 1
$sk_(0) always-max-rate
$sk_(0) $opt(duplicate)
$ns_ at 0.0001 "$node_($address) color red"
$ns_ at 0.0001 "$node_($address) label sink"
puts "no sink sk0 vai chamar annouce"
$ns_ at 0.036182026954452516 "$sk_(0) announce"
puts "no sink sk0 vai chamar requestinformation"
$ns_ at 0.036182026954452516 "$sk_(0) requestinformation "
puts "saindo do arquivo nodes_setup.tcl"
archive run_gridrtalgo.tcl follows abixo and where it is in red I have
q to make 2 different ones and to place one if to verify if
requestinformation is annouce?.
# ======================================================================
# Define options
# ======================================================================
set opt(chan) Channel/WirelessChannel
set opt(prop) Propagation/TwoRayGround
set opt(netif) Phy/WirelessPhy
set opt(mac) Mac/802_11
set opt(ifq) Queue/DropTail/PriQueue
set opt(ll) LL
set opt(ant) Antenna/OmniAntenna
set opt(ifqlen) 50 ;# max packet in ifq
set opt(seed) 0
set opt(tr) "testes/rtALGO/trace/grid2.tr" ;# trace file
set opt(nam) "testes/rtALGO/trace/grid2.nam" ;# nam file
set opt(engmodel) EnergyModel ;
set opt(txPower) 0.01488;
set opt(rxPower) 0.01250;
set opt(idlePower) 0.0; #0.01236;
set opt(initeng) 0.02 ;# Initial energy in Joules
set opt(logeng) "off" ;# log energy every 1 seconds
set opt(lm) "off" ;# log movement
set opt(x) 100 ;# X dimension of the topography
set opt(y) 100 ;# Y dimension of the topography
set opt(nn) 26 ;# number of nodes 10
set opt(nxn) 5 ;
set opt(stop) 15 ;# simulation time
set opt(prestop) 15 ;# time to prepare to stop
set opt(god) off
set opt(traf) "testes/rtALGO/files/node_setup.tcl" ;#
traffic file
set opt(topo) "testes/rtALGO/files/sce-grid-gen" ;# topology file
set opt(onoff) "" ;#node on-off
set opt(adhocRouting) RTALGO/RATE
set opt(enablePos) "true";
set opt(enableNeg) "true";
set opt(subTxType) BROADCAST;
set opt(orgTxType) UNICAST;
set opt(posType) ALL;
set opt(posNodeType) INTM;
set opt(negWinType) TIMER;
set opt(negThrType) ABSOLUTE;
set opt(negMaxType) FIXED;
set opt(duplicate) "disable-duplicate"
set opt(suppression) "true"
# ======================================================================
LL set mindelay_ 50us
LL set delay_ 25us
LL set bandwidth_ 39321.6;# 38.4 Kbps
Queue/DropTail/PriQueue set Prefer_Routing_Protocols 1
# unity gain, omni-directional antennas
# set up the antennas to be centered in the node and 1.5 meters above it
Antenna/OmniAntenna set X_ 0
Antenna/OmniAntenna set Y_ 0
Antenna/OmniAntenna set Z_ 1.5
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0
# Initialize the SharedMedia interface with parameters to make
# it work like the 914MHz Lucent WaveLAN DSSS radio interface
Phy/WirelessPhy set CPThresh_ 10.0
Phy/WirelessPhy set CSThresh_ 1.559e-11
Phy/WirelessPhy set RXThresh_ 3.652e-10
Phy/WirelessPhy set Rb_ 2*1e6
Phy/WirelessPhy set Pt_ 0.2818
Phy/WirelessPhy set freq_ 914e+6
Phy/WirelessPhy set L_ 1.0
# ======================================================================
proc usage { argv0 } {
puts "Usage: $argv0"
puts "\t\t\[-topo topology file\] \[-traf traffic file\]"
puts "\t\t\[-x max x\] \[-y max y\] \[-seed seed\]"
puts "\t\t\[-nam nam file\] \[-tr trace file\] \[-logeng on or off\]"
puts "\t\t\[-stop time to stop\] \[-prestop time to prepare to stop\]"
puts "\t\t\[-initeng initial energy\] \[-engmodel energy model\]"
puts "\t\t\[-chan channel model\] \[-prop propagation model\]"
puts "\t\t\[-netif network interface\] \[-mac mac layer\]"
puts "\t\t\[-ifq interface queue\] \[-ll link layer\] \[-ant antena\]"
puts "\t\t\[-ifqlen interface queue length\] \[-nn number of nodes\]"
}
proc getopt {argc argv} {
global opt
lappend optlist cp nn seed sc stop tr x y
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]]
}
}
proc finish {} {
global ns_ nf opt god_ node_
$ns_ terminate-all-agents
# $god_ dump
$god_ dump_num_send
$ns_ flush-trace
if [info exists tracefd] {
close $tracefd
#exec xgraph tracefd.tr -geometry 800X400
# exec rm -f $opt(tr)
}
if [info exists nf] {
close $nf
# exec rm -f $opt(nam)
exec nam $opt(nam) &
# exec gzip $opt(nam)
}
exit 0
}
proc cmu-trace { ttype atype node } {
global ns_ tracefd
if { $tracefd == "" } {
return ""
}
set T [new CMUTrace/$ttype $atype]
$T target [$ns_ set nullAgent_]
$T attach $tracefd
$T set src_ [$node id]
$T node $node
return $T
}
# ======================================================================
# Main Program
# ======================================================================
getopt $argc $argv
# do the get opt again incase the routing protocol file added some more
# options to look for
getopt $argc $argv
if {$opt(seed) > 0} {
puts "Seeding Random number generator with $opt(seed)\n"
ns-random $opt(seed)
}
#
# Initialize Global Variables
#
set ns_ [new Simulator]
# define color index
$ns_ color 0 red
$ns_ color 1 blue
$ns_ color 2 chocolate
$ns_ color 3 yellow
$ns_ color 4 green
$ns_ color 5 tan
$ns_ color 6 gold
$ns_ color 7 black
$ns_ color 10 black
set topo [new Topography]
if { $opt(nam) != "" } {
set nf [open $opt(nam) w]
$ns_ namtrace-all-wireless $nf $opt(x) $opt(y)
}
if { $opt(tr) != ""} {
set tracefd [open $opt(tr) w]
$ns_ trace-all $tracefd
}
$topo load_flatgrid $opt(x) $opt(y)
# Create God
set god_ [create-god $opt(nn)]
$god_ $opt(god)
$god_ allow_to_stop
$god_ num_data_types 1
# log the mobile nodes movements if desired
if { $opt(lm) == "on" } {
log-movement
}
#global node setting
$ns_ node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
-macType $opt(mac) \
-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 \
-energyModel $opt(engmodel) \
-initialEnergy $opt(initeng) \
-txPower $opt(txPower) \
-rxPower $opt(rxPower) \
-idlePower $opt(idlePower)
# Create the specified number of nodes [$opt(nn)] and "attach" them
# to the channel.
for {set i 0} {$i < $opt(nn) } {incr i} {
set node_($i) [$ns_ node $i]
$node_($i) color black
$node_($i) random-motion 0 ;# disable random motion
$god_ new_node $node_($i)
}
puts " vai entrar no arquivo scr-gen-grid"
if { $opt(topo) == "" } {
puts "*** NOTE: no topology file specified."
set opt(topo) "none"
} else {
puts "Loading topology file..."
source $opt(topo)
puts "Load complete..."
}
for {set i 0} {$i < $opt(nn)} {incr i} {
$node_($i) namattach $nf
# 20 defines the node size in nam, must adjust it according to your scenario
$ns_ initial_node_pos $node_($i) 20
}
if { $opt(onoff) == "" } {
puts "*** NOTE: no node-on-off file specified."
set opt(onoff) "none"
} else {
puts "Loading node on-off file..."
source $opt(onoff)
puts "Load complete..."
}
#
# log energy if desired
#
if { $opt(logeng) == "on" } {
log-energy
}
#
# Source the traffic scripts
#
if { $opt(traf) == "" } {
puts "*** NOTE: no traffic file specified."
set opt(traf) "none"
} else {
puts "Loading traffic file..."
source $opt(traf)
}
#
# Tell all the nodes when the simulation ends
#
$ns_ at $opt(prestop) "$ns_ prepare-to-stop"
$ns_ at $opt(stop).00000001 "finish"
for {set i 0} {$i < $opt(nn) } {incr i} {
$ns_ at $opt(stop).00000002 "$node_($i) reset";
}
# tell nam the simulation stop time
$ns_ at $opt(stop).00000003 "$ns_ nam-end-wireless $opt(stop)"
$ns_ at $opt(stop).00000004 "puts \"NS EXITING...\" ; $ns_ halt"
puts $tracefd "M 0.0 nn $opt(nn) x $opt(x) y $opt(y)"
puts $tracefd "M 0.0 topo $opt(topo) traf $opt(traf) seed $opt(seed)"
puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"
puts "Starting Simulation..."
$ns_ run
----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.
