How can i add new method in this given code and please provide the Algorithm of Methods (1, 2, 3) can i add in this ,method 4. one more Question TCL code for UWSN using MAC-802.3

Naval army

unread,

May 12, 2024, 12:43:47 PM5/12/24

to Network Simulator 2 (NS2)

############################################################
if {$argc != 1} {
puts stderr "ERROR! Command syntax: ns loc1.tcl METHOD (METHOD = 1, 2 or 3)"
exit 1
} else {
set opt(method) [lindex $argv 0]
if { ( $opt(method) != 1 ) && ( $opt(method) != 2 ) &&
( $opt(method) != 3 ) } {
puts stderr "ERROR! LOCALIZATION METHOD BEYOND = 1, 2 or 3)"
exit 1
}
}

# =========================================================
# Define options
# =========================================================

set opt(chan) Channel/UnderwaterChannel
set opt(prop) Propagation/UnderwaterPropagation
set opt(netif) Phy/UnderwaterPhy
set opt(mac) Mac/UnderwaterMac/RMac
set opt(ifq) Queue/DropTail/PriQueue
set opt(ll) LL
set opt(energy) EnergyModel
set opt(txpower) 0.6
set opt(rxpower) 0.3
set opt(initialenergy) 10000
set opt(idlepower) 0.01
set opt(ant) Antenna/OmniAntenna
set opt(filters) GradientFilter

# The following parameters are set for protocols.

set opt(bit_rate) 1.0e4
set opt(encoding_efficiency) 1
set opt(ND_window) 1
set opt(ACKND_window) 1
set opt(PhaseOne_window) 3
set opt(PhaseTwo_window) 1
set opt(PhaseTwo_interval) 0.5
set opt(IntervalPhase2Phase3) 1
set opt(duration) 0.1
set opt(PhyOverhead) 8
set opt(large_packet_size) 480 ;# 60 bytes
set opt(short_packet_size) 40 ;# 5 bytes
set opt(PhaseOne_cycle) 4 ;
set opt(PhaseTwo_cycle) 2 ;
set opt(PeriodInterval) 1
set opt(transmission_time_error) 0.0001;
set opt(dz) 10
set opt(ifqlen) 50 ;# max packet in ifq
set opt(nn) 5 ;# number of nodes in each layer
set opt(layers) 1
set opt(x) 100 ;# X dimension of the topography
set opt(y) 100 ;# Y dimension of the topography
set opt(z) [expr ($opt(layers)-1)*$opt(dz)]
set opt(seed) 348.88
set opt(stop) 50.0 ;# simulation time
set opt(prestop) 20 ;# time to prepare to stop
set opt(tr) "UWSN_ALWadHA.tr" ;# trace file
set opt(nam) "UWSN_ALWadHA.nam" ;# nam file
set opt(adhocRouting) Vectorbasedforward
set opt(width) 20
set opt(adj) 10
set opt(interval) 0.001
#set opt(traf) "diffusion-traf.tcl" ;# traffic file
set opt(nu) 1 ;# number of unknown nodes
set opt(nb) 4 ;# number of beacon nodes
set opt(attr) UNKNOWN
#set opt(g_tx) 1.0 ;# transmitter antenna gain
#set opt(g_rx) 1.0 ;# receiver antenna
LL set mindelay_ 50us
LL set delay_ 25us
LL set bandwidth_ 0

#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 Z_ 0.05
Antenna/OmniAntenna set Gt_ 1.0 ;#Location code: g_tx
Antenna/OmniAntenna set Gr_ 1.0 ;#Location code: g_tx

Mac/UnderwaterMac set bit_rate_ $opt(bit_rate)
Mac/UnderwaterMac set encoding_efficiency_ $opt(encoding_efficiency)
Mac/UnderwaterMac/RMac set ND_window_ $opt(ND_window)
Mac/UnderwaterMac/RMac set ACKND_window_ $opt(ACKND_window)
Mac/UnderwaterMac/RMac set PhaseOne_window_ $opt(PhaseOne_window)
Mac/UnderwaterMac/RMac set PhaseTwo_window_ $opt(PhaseTwo_window)
Mac/UnderwaterMac/RMac set PhaseTwo_interval_ $opt(PhaseTwo_interval)
Mac/UnderwaterMac/RMac set IntervalPhase2Phase3_
$opt(IntervalPhase2Phase3)

#Mac/UnderwaterMac/RMac set ACKRevInterval_ 0.1
Mac/UnderwaterMac/RMac set duration_ $opt(duration)
Mac/UnderwaterMac/RMac set PhyOverhead_ $opt(PhyOverhead)
Mac/UnderwaterMac/RMac set large_packet_size_ $opt(large_packet_size)
Mac/UnderwaterMac/RMac set short_packet_size_ $opt(short_packet_size)
Mac/UnderwaterMac/RMac set PhaseOne_cycle_ $opt(PhaseOne_cycle)
Mac/UnderwaterMac/RMac set PhaseTwo_cycle_ $opt(PhaseTwo_cycle)
Mac/UnderwaterMac/RMac set PeriodInterval_ $opt(PeriodInterval)
Mac/UnderwaterMac/RMac set transmission_time_error_ $opt(transmission_time_error)

# Initialize the SharedMedia interface with parameters to make
# it work like the 914MHz Lucent WaveLAN DSSS radio interface

Phy/UnderwaterPhy set CPThresh_ 100 ;#10.0
Phy/UnderwaterPhy set CSThresh_ 0 ;#1.559e-11
Phy/UnderwaterPhy set RXThresh_ 0 ;#3.652e-10
#Phy/UnderwaterPhy set Rb_ 2*1e6
Phy/UnderwaterPhy set Pt_ 0.2818
Phy/UnderwaterPhy set freq_ 25 ;#frequency range in khz
Phy/UnderwaterPhy set K_ 2.0 ;#spherical spreading

# =========================================================
# Main Program
# =========================================================

# Initialize Global Variables

#set sink_ 1
remove-all-packet-headers

#remove-packet-header AODV ARP TORA IMEP TFRC

add-packet-header IP Mac LL ARP UWVB RMAC

set ns_ [new Simulator]
set topo [new Topography]

$topo load_cubicgrid $opt(x) $opt(y) $opt(z)
#$ns_ use-newtrace
set tracefd [open $opt(tr) w]
$ns_ trace-all $tracefd

set nf [open $opt(nam) w]
$ns_ namtrace-all-wireless $nf $opt(x) $opt(y)

set phase1_time [expr $opt(PhaseOne_cycle)*$opt(PhaseOne_window)]
set phase2_time [expr $opt(PhaseTwo_cycle)*
($opt(PhaseTwo_window)+$opt(PhaseTwo_interval))]

set start_time
[expr $phase1_time+$phase2_time+$opt(IntervalPhase2Phase3)]

puts "the start time is $start_time"

set total_number [expr $opt(nn)-1]
set god_ [create-god $opt(nn)]

set chan_1_ [new $opt(chan)]

global defaultRNG
$defaultRNG seed $opt(seed)

$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) \
-attribute $opt(attr) \
-agentTrace OFF \
-routerTrace ON \
-macTrace ON \
-topoInstance $topo\
-energyModel $opt(energy)\
-txpower $opt(txpower)\
-rxpower $opt(rxpower)\
-initialEnergy $opt(initialenergy)\
-idlePower $opt(idlepower)\
-channel $chan_1_

puts "Status: Success 01"
set node_(0) [$ns_ node 0]
$node_(0) set sinkStatus_ 1
$node_(0) set passive 1
$god_ new_node $node_(0)
$node_(0) set X_ 50.0 ;#0
$node_(0) set Y_ 50.0 ;#0
$node_(0) set Z_ 0.0
$node_(0) set passive 1
#------------Localization code added for node 0------------
# unknown nodes have both request and response agent
# Setup the request agent
set lreq_(0) [new Agent/UwsnLocReq]
$ns_ attach-agent $node_(0) $lreq_(0)

# Setup the response agent
set lres_(0) [new Agent/UwsnLocRes]
$ns_ attach-agent $node_(0) $lres_(0)

# Setup the location discovery application
set ldis_(0) [new Application/UwsnLocDiscovery]
$ldis_(0) attach-agent $lreq_(0)
$ldis_(0) attach-agent $lres_(0)
#------------Localization code ended for node 0-----------
set a_(0) [new Agent/UWSink]
$ns_ attach-agent $node_(0) $a_(0)
$a_(0) attach-vectorbasedforward $opt(width)
$a_(0) cmd set-range 20
$a_(0) cmd set-target-x -20
$a_(0) cmd set-target-y -10
$a_(0) cmd set-target-z -20

set opt(attr) BEACON
$ns_ node-config -attribute $opt(attr)

# beacon nodes have only response agent
set node_(1) [$ns_ node 1]
$node_(1) set sinkStatus_ 1
$god_ new_node $node_(1)
$node_(1) set X_ 30
$node_(1) set Y_ 70
$node_(1) set Z_ 0
$node_(1) set-cx 30
$node_(1) set-cy 70
$node_(1) set-cz 0
$node_(1) set_next_hop 0 ;# target is node 0
#$node_(1) set passive 1
#------------Localization code added for node 1------------
# Setup the response agent
set lres_(1) [new Agent/UwsnLocRes]
$ns_ attach-agent $node_(1) $lres_(1)

# Setup the location discovery application
set ldis_(1) [new Application/UwsnLocDiscovery]
$ldis_(1) attach-agent $lres_(1)
#-------------Localization code ended for node 1------------
set a_(1) [new Agent/UWSink]
$ns_ attach-agent $node_(1) $a_(1)
$a_(1) attach-vectorbasedforward $opt(width)
$a_(1) cmd set-range 20
$a_(1) cmd set-target-x 0
$a_(1) cmd set-target-y 0
$a_(1) cmd set-target-z 0
$a_(1) set data_rate_ 0.25

set node_(2) [$ns_ node 2]
$node_(2) set sinkStatus_ 1
$god_ new_node $node_(2)
$node_(2) set X_ 50.0
$node_(2) set Y_ 20.0
$node_(2) set Z_ 0
$node_(2) set-cx 50.0
$node_(2) set-cy 20.0
$node_(2) set-cz 0
$node_(2) set_next_hop 0 ;# target is node 0
#$node_(1) set passive 1
#------------Localization code added for node 2------------
# Setup the response agent
set lres_(2) [new Agent/UwsnLocRes]
$ns_ attach-agent $node_(2) $lres_(2)

# Setup the location discovery application
set ldis_(2) [new Application/UwsnLocDiscovery]
$ldis_(2) attach-agent $lres_(2)

#-------------Localization code ended for node 2------------

set a_(2) [new Agent/UWSink]
$ns_ attach-agent $node_(2) $a_(2)
$a_(2) attach-vectorbasedforward $opt(width)
$a_(2) cmd set-range 20
$a_(2) cmd set-target-x 0
$a_(2) cmd set-target-y 0
$a_(2) cmd set-target-z 0
$a_(2) set data_rate_ 0.25

set node_(3) [$ns_ node 3]
$node_(3) set sinkStatus_ 1
$god_ new_node $node_(3)
$node_(3) set X_ 70.0;#-30
$node_(3) set Y_ 70.0;#0
$node_(3) set Z_ 0
$node_(3) set-cx 70.0;#0
$node_(3) set-cy 70.0;#-30
$node_(3) set-cz 0
$node_(3) set_next_hop 0 ;# target is node 0
#$node_(1) set passive 1

#------------Localization code added for node 3------------

# Setup the response agent
set lres_(3) [new Agent/UwsnLocRes]
$ns_ attach-agent $node_(3) $lres_(3)

# Setup the location discovery application
set ldis_(3) [new Application/UwsnLocDiscovery]
$ldis_(3) attach-agent $lres_(3)

#-------------Localization code ended for node 3------------

set a_(3) [new Agent/UWSink]
$ns_ attach-agent $node_(3) $a_(3)
$a_(3) attach-vectorbasedforward $opt(width)
$a_(3) cmd set-range 20
$a_(3) cmd set-target-x 0
$a_(3) cmd set-target-y 0
$a_(3) cmd set-target-z 0
$a_(3) set data_rate_ 0.25

#puts "the total number is $total_number"
set node_($total_number) [$ns_ node $total_number]
$god_ new_node $node_($total_number)
$node_($total_number) set X_ 100 ;#60
$node_($total_number) set Y_ 60 ;#0
$node_($total_number) set Z_ 0
$node_($total_number) set-cx 100 ;#60
$node_($total_number) set-cy 600 ;#0
$node_($total_number) set-cz 0
$node_($total_number) set_next_hop 0 ;# target is node 0

#------------Localization code added for node 4------------

# Setup the response agent
set lres_(4) [new Agent/UwsnLocRes]
$ns_ attach-agent $node_(4) $lres_(4)

# Setup the location discovery application
set ldis_(4) [new Application/UwsnLocDiscovery]
$ldis_(4) attach-agent $lres_(4)

#-------------Localization code ended for node 4------------

set a_($total_number) [new Agent/UWSink]
$ns_ attach-agent $node_($total_number) $a_($total_number)
$a_($total_number) attach-vectorbasedforward $opt(width)
$a_($total_number) cmd set-range 20
$a_($total_number) cmd set-target-x 0
$a_($total_number) cmd set-target-y 0
$a_($total_number) cmd set-target-z 0
$a_($total_number) set data_rate_ 0.25

#---------Localization code added Start----------------------

# disable random motion
for {set i 0} {$i < $opt(nn) } {incr i} {
$node_($i) random-motion 0
}
# start the locdis applications
for {set i 0} {$i < $opt(nn)} {incr i} {
$ldis_($i) set random_ 1
$ldis_($i) set method_ $opt(method)
$ns_ at 0.0 "$ldis_($i) start"
}
#----------------Localization code added end----------------

#set max_num [expr $total_number -1]

#$ns_ at 15 "$a_($total_number) cbr-start"
$ns_ at $start_time "$a_($total_number) exp-start"
$ns_ at $start_time "$a_(1) exp-start"
$ns_ at $start_time "$a_(2) exp-start"
$ns_ at $start_time "$a_(3) exp-start"

#$ns_ at 4 "$a_(0) cbr-start"
#$ns_ at 2.0003 "$a_(2) cbr-start"
#$ns_ at 0.1 "$a_(0) announce"

set node_size 10
for {set k 0} { $k<$opt(nn) } { incr k } {
$ns_ initial_node_pos $node_($k) $node_size
}
puts "+++++++++++++++++AFTER ANNOUNCE+++++++++++++++++++"
$ns_ at $opt(stop).002 "$a_(0) reset" ;# terminate"
$ns_ at $opt(stop).002 "$a_(1) reset" ;# terminate"
$ns_ at $opt(stop).002 "$a_(2) reset" ;# terminate"
$ns_ at $opt(stop).002 "$a_(3) reset" ;# terminate"
$ns_ at $opt(stop).002 "$a_($total_number) reset" ;# terminate"

$ns_ at $opt(stop).003 "$god_ compute_energy"
$ns_ at $opt(stop).004 "$ns_ nam-end-wireless $opt(stop)"
$ns_ at $opt(stop).005 "stop"
$ns_ at $opt(stop).007 "puts \"NS EXISTING...\"; $ns_ halt"

puts $tracefd "vectorbased"
puts $tracefd "M 0.0 nn $opt(nn) x $opt(x) y $opt(y) z $opt(z)"
puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"

proc stop {} {
global ns_ tracefd nf
$ns_ flush-trace
close $tracefd
close $nf
#$ns_ at $opt(stop).006 "$ns_ nam-end-wireless $opt(stop)"
exec nam UWSN_ALWadHA.nam &
exit 0
}
puts "starting Simulation..."
$ns_ run

knudfl

unread,

May 13, 2024, 6:53:31 AM5/13/24

to Network Simulator 2 (NS2)

Your second question : "TCL code for UWSN using MAC-802.3"

.... AFAIK Mac802_3 is for wired ......

Quote "IEEE 802.3 is a working group and a collection of standards defining the physical layer and data link layer's media access control (MAC) of wired Ethernet. The standards are produced by the working group of Institute of Electrical and Electronics Engineers (IEEE)."

......... Why ask about wired underwater ?

Naval army

unread,

May 13, 2024, 7:56:45 AM5/13/24

to Network Simulator 2 (NS2)

Nothing but my junior asks me. (Please Leave it)

please help me for first Question.

Reply all

Reply to author

Forward