İptal Edildi

TCL in NS2

The scenario is the the data packets moves between the wired and the wireless nodes between which a Router and the base station is present. So here, the voice packets are moved under UDP(which I wrote in the code) while the Video packets moves under TCP(which needs to be written). Also please tell me the payment mode and by what time can you submit the program. I have more projects for you If I get this done perfectly. Coming to configuration, I have installed [url removed, login to view](also patch files of [url removed, login to view]). I am using NS as intrepreter.

I wrote a TCL script in NS2 which involves running multiple Voice and Video sessions simultaneously. I need to send Video packets in TCP and Voice Packet in UDP. I am not able to solve one error which says either "Floating point exception" or "Error!!
str2addr:Address 7627620 outside range of address field length 2048".

#**************************************
#**********Voice + Video**************
#**************************************

set val(chan) Channel/WirelessChannel ;# channel type
set val(prop) Propagation/TwoRayGround ;#radio propagation model
set val(netif) Phy/WirelessPhy ;#network interface type
set val(mac) Mac/802_11e
set val(ifq_) Queue/DTail/PriQ ;#MAC type
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(X) 700
set val(Y) 700
set val(ifqlen) 50 ;#MAX packet in ifq
set val(seed) 0.0 ;#for random generator
set val(adhocRouting) DSDV ;#Routing Protocol
set val(nn) 5 ;#No.mobile nodes
set val(cp) "" ;
set val(stop) 300 ;
set val(ftp1-start) 160 ;#start
set val(ftp2-start) 170 ;#stop of ftp
set num_wired_nodes 4 ;#number of wired nodes
set num_base_nodes 1 ;#number of base nodes
set val(starttime) 0.2




#**********************New simulator*************
#************************************************
set ns [new Simulator]

#**********************************************

set tracefd [open simple.tr w]

set namtrace [open simple.nam w]
$ns use-newtrace
$ns trace-all $tracefd
$ns namtrace-all-wireless $namtrace $val(X) $val(Y)




#********Set up Hierarcical routeup***********
$ns node-config -addressType hierarchical
AddrParams set domain_num_ 2 ;#No of Domains(1 wire/1 wl)
lappend cluster_num 2 1 ;#no of cluster in each domain
AddrParams set cluster_num $cluster_num
lappend nodes_num 1 4 5 ; #No of nodes in each cluster
AddrParams set nodes_num $nodes_num ;#for each domain


#**********Set up trace files***********************
set tracefd [open wireless-out.tr w]
set namtrace [open wireless-out.nam w]
$ns use-newtrace
$ns trace-all $tracefd
$ns namtrace-all-wireless $namtrace $val(X) $val(Y)


#*************Create Topology***********************

set topo [new Topography];#creat topology object
$topo load_flatgrid $val(X) $val(Y) ;#create topology


#**********create GOD instance************************
#*****************************************************
create-god [expr $val(nn)]




#*************create wired nodes****************************************

#set bk_server [$ns node 0.0.0] ;#hierarchical addresses to b used



set router [$ns node 0.0.0]; #create Route
for {set i 0} {$i < [expr $num_wired_nodes]} {incr i} {
set WN($i) [$ns node 0.0.[expr $i+1]]
}






#************configure for base station*********************************
$ns node-config -adhocRouting $val(adhocRouting) \
-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 \
-wiredRouting ON \
-agentTrace ON \
-routerTrace OFF \
-macTrace OFF \


set rng [new RNG]
$rng seed 0


#**************create base station************************************
set temp {1.0.0} ;#hier address to b used
set base_station [$ns node [lindex $temp 0]]
$base_station random-motion 0 ; #disable random motion
$base_station set X_ 1.0
$base_station set Y_ 2.0
$base_station set Z_ 0.0




#**************configure for mobilenodes******************************
$ns node-config -wiredRouting OFF



#***************Now create mobilenodes**************************************

for {set i 0} {$i < [expr $val(nn)-1]} {incr i} {

set WLN($i) [ $ns node 1.0.[expr $i + 1] ]
$WLN($i) base-station [AddrParams addr2id [$base_station node-addr]]
$WLN($i) random-motion 0;
$WLN($i) set X_ [$rng integer 150] ;# Place in Random position along X axis
$WLN($i) set Y_ [$rng integer 150] ;# Place in Random position along Y axis
$WLN($i) set Z_ 0.0
$ns initial_node_pos $WLN($i) 0
}



#**************Connection between wired nodes and Base station ********

#***************Links between Router and Web_servers*******************

for {set i 0} {$i <[expr $num_wired_nodes]} {incr i} {

$ns duplex-link $WN($i) $router 3Mb 20ms DropTail

$ns duplex-link-op $router $WN($i) orient down
}


#***************Link between Router and Base station*******************

$ns duplex-link $router $base_station 10Mb 5ms DropTail
$ns duplex-link-op $base_station $router orient up


#for {set i 0} {$i < [expr $num_wired_nodes-2]} {incr i} {
#$ns duplex-link $WN($i) $base_station 3Mb 20ms DropTail
#$ns duplex-link-op $WN($i) $base_station orient down
#}

#*********Set up TCP connection between server and Wirelessstation*******






#***********set up UDP connections**************************************

for {set i 0} {$i < [expr $num_wired_nodes]} {incr i} {
set udp($i) [new Agent/UDP]
$udp($i) set prio_ 0
$udp($i) set class_ 1 # [expr $i + 1]
$ns attach-agent $WLN($i) $udp($i)


set voice($i) [new Application/Traffic/CBR]
$voice($i) set packetsize_ 160
$voice($i) set interval_ 0.005
$voice($i) attach-agent $udp($i)

set null($i) [new Agent/Null]
$ns attach-agent $WN($i) $null($i)

$ns connect $udp($i) $null($i)

$ns at 0.5 "voice($i) start"
$ns at 1.0 "voice($i) stop"

#$ns at val(starttime).1 "voice($i) start"
}




#**************************** NAME NODES *********************************

for {set i 0} {$i < [expr $num_wired_nodes]} {incr i} {
$ns at 0.0 "$WN($i) label Wired_($i)"
}

$ns at 0.0 "$router label Router"


$ns at 0.0 "$base_station label Base_Station"

for {set i 0} {$i < [expr $val(nn)-1]} {incr i} {
$ns at 0.0 "$WLN($i) label Wireless_($i)"
}





#***************** When the simulation ends ****************************

$ns at 5.0 "finish"


#**************************************************************************************


proc finish {} {
global ns tracefd namtrace
$ns flush-trace
#Close the trace file
close $tracefd
close $namtrace
#Execute nam on the trace file"
exec nam out.nam &
exit 0
}


puts "Starting Simulation..."

$ns run

































PLEASE MAKE THE CODE ERROR FREE
i am getting the error i mentioned above

hope you will do in the best way
thanks

Beceriler: C Programlama, C++ Programlama, UNIX, VoIP, Kablosuz

Daha fazlasını görün: tcl ns2, video tcp ns2 tcl code, wireless tcl code ns2, tcl code ns2 projects, voice packets code ns2, wired wireless tcl, ns2 udp tcl, ns2 voice, base station tcl code, tcl programming, get wireless, tcl code router ns2, router tcl code ns2, ns2 wireless time tcl, ns2 udp program, ns2 program router, wireless router, tcp programming, packets, Ns2 projects, ns2 c, ns#, program udp, perfectly written, tcp projects ns2

İşveren Hakkında:
( 359 değerlendirme ) Mutrah, Oman

Proje NO: #711966

4 freelancers are bidding on average $64 for this job

SALZBURRY

I have been working on ns2 for last 3 years and done projects in ns2 during my graduate studies. I would be very happy to help you with the project.

1 gün içinde 50$ USD
(1 Değerlendirme)
1.4
norbkiss

I have 2 years experience with ns2

in 2 gün içinde30$ USD
(2 Değerlendirme)
0.1
hawkeye5891

PLease check PMB for details

in 3 gün içinde75$ USD
(0 Değerlendirme)
0.0
tariqsaraj

please provide further information that you just want to generate trace files or you also want some results in graphs? i mean will you also need the bash script to extract data from trace files? best regards.

in 2 gün içinde100$ USD
(0 Değerlendirme)
0.0