MANETs Blak hole code error

[Rohan jon]

what's the problem... i can not find that sir

please me.........

==============================================

#  AODV with Blackhole nodes for 20 nodes

#==============================================

#

#===================================

#     Simulation parameters setup

#===================================

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_11                 ;# MAC type

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)     20                         ;# number of mobilenodes

set val(rp)     AODV                      ;# routing protocol

set val(x)      1186                      ;# X dimension of topography

set val(y)      600                      ;# Y dimension of topography

set val(stop)   40                         ;# time of simulation end

set val(t1)     0.0                         ;

set val(t2)     0.0                          ;  

#===================================

#        Initialization        

#===================================

#Create a ns simulator

set ns [new Simulator]

#Setup topography object

set topo       [new Topography]

$topo load_flatgrid $val(x) $val(y)

create-god $val(nn)

#Open the NS trace file

set tracefile [open blackhole.tr w]

$ns trace-all $tracefile

#Open the NAM trace file

set namfile [open blackhole.nam w]

$ns namtrace-all $namfile

$ns namtrace-all-wireless $namfile $val(x) $val(y)

set chan [new $val(chan)];#Create wireless channel

#===================================

#     Mobile node parameter setup

#===================================

$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) \

                -channel       $chan \

                -topoInstance  $topo \

                -agentTrace    ON \

                -routerTrace   ON \

                -macTrace      ON \

                -movementTrace ON

#===================================

#        Nodes Definition        

#===================================

#Create 20 nodes

set n0 [$ns node]

$n0 set X_ 663

$n0 set Y_ 484

$n0 set Z_ 0.0

$n0 color Red

$ns initial_node_pos $n0 30

$n0 start

set n1 [$ns node]

$n1 set X_ 466

$n1 set Y_ 407

$n1 set Z_ 0.0

$ns initial_node_pos $n1 30

set n2 [$ns node]

$n2 set X_ 791

$n2 set Y_ 406

$n2 set Z_ 0.0

$ns initial_node_pos $n2 30

set n3 [$ns node]

$n3 set X_ 668

$n3 set Y_ 393

$n3 set Z_ 0.0

$ns initial_node_pos $n3 30

set n4 [$ns node]

$n4 set X_ 558

$n4 set Y_ 320

$n4 set Z_ 0.0

$ns initial_node_pos $n4 30

set n5 [$ns node]

$n5 set X_ 781

$n5 set Y_ 317

$n5 set Z_ 0.0

$ns initial_node_pos $n5 30

set n6 [$ns node]

$n6 set X_ 650

$n6 set Y_ 40.0

$n6 set Z_ 0.0

$ns initial_node_pos $n6 30

set n7 [$ns node]

$n7 set X_ 671

$n7 set Y_ 194

$n7 set Z_ 0.0

$ns initial_node_pos $n7 30

set n8 [$ns node]

$n8 set X_ 761

$n8 set Y_ 234

$n8 set Z_ 0.0

$ns initial_node_pos $n8 30

set n9 [$ns node]

$n9 set X_ 476

$n9 set Y_ 117

$n9 set Z_ 0.0

$ns initial_node_pos $n9 30

set n10 [$ns node]

$n10 set X_ 714

$n10 set Y_ 121

$n10 set Z_ 0.0

$ns initial_node_pos $n10 30

set n11 [$ns node]

$n11 set X_ 825

$n11 set Y_ 140

$n11 set Z_ 0.0

$ns initial_node_pos $n11 30

set n12 [$ns node]

$n12 set X_ 509

$n12 set Y_ 34

$n12 set Z_ 0.0

$ns initial_node_pos $n12 30

set n13 [$ns node]

$n13 set X_ 687

$n13 set Y_ 36

$n13 set Z_ 0.0

$ns initial_node_pos $n13 30

set n14 [$ns node]

$n14 set X_ 822

$n14 set Y_ 51

$n14 set Z_ 0.0

$ns initial_node_pos $n14 30

set n15 [$ns node]

$n15 set X_ 373

$n15 set Y_ 271

$n15 set Z_ 0.0

$ns initial_node_pos $n15 30

set n16 [$ns node]

$n16 set X_ 903

$n16 set Y_ 255

$n16 set Z_ 0.0

$ns initial_node_pos $n16 30

set n17 [$ns node]

$n17 set X_ 908

$n17 set Y_ 344

$n17 set Z_ 0.0

$ns initial_node_pos $n17 30

set n18 [$ns node]

$n18 set X_ 600

$n18 set Y_ 180

$n18 set Z_ 0.0

$ns initial_node_pos $n18 30

set n19 [$ns node]

$n19 set X_ 455

$n19 set Y_ 479

$n19 set Z_ 0.0

$ns initial_node_pos $n19 30

$n1 color red

$ns at 0.0 "$n1 color red"

$ns at 0.0 "$n1 label Attacker"

$n13 color red

$ns at 0.0 "$n13 color red"

$ns at 0.0 "$n13 label Attacker"

#-----------------------------------------------------------------------

$n8 color green

$ns at 0.0 "$n8 color green"

$ns at 0.0 "$n8 label Source"

$n16 color green

$ns at 0.0 "$n16 color green"

$ns at 0.0 "$n16 label Source"

#-------------------------------------------------------------------------

$n10 color blue

$ns at 0.0 "$n10 color blue"

$ns at 0.0 "$n10 label Destination"

$n9 color blue

$ns at 0.0 "$n9 color blue"

$ns at 0.0 "$n9 label Destination"

#===================================

#        Multiple blackhole nodes         

#===================================

$ns at 0.0 "[$n1 set ragent_] hacker"

$ns at 0.0 "[$n13 set ragent_] hacker"

#===================================

#        Generate movement          

#===================================

$ns at 1.0 "$n2 setdest 615.0 340.0 5.0"

$ns at 1.0 "$n3 setdest 680.0 458.0 5.0"

$ns at 3.0 "$n4 setdest 580.0 368.0 5.0"

$ns at 3.0 "$n5 setdest 785.0 228.0 5.0"

$ns at 2.0 "$n6 setdest 750.0 538.0 5.0"

#$ns at 1.0 "$n7 setdest 185.0 120.0 5.0"

$ns at 0.0 "$n8 setdest 335.0 500.0 5.0"

$ns at 2.0 "$n9 setdest 425.0 590.0 5.0"

$ns at 2.0 "$n10 setdest 105.0 520.0 5.0"

$ns at 0.0 "$n11 setdest 565.0 420.0 5.0"

$ns at 1.0 "$n12 setdest 700.0 20.0 5.0"

#$ns at 1.0 "$n13 setdest 115.0 85.0 5.0"

$ns at 1.0 "$n14 setdest 195.0 185.0 5.0"

$ns at 1.0 "$n15 setdest 387.0 590.0 5.0"

$ns at 2.0 "$n16 setdest 165.0 520.0 5.0"

$ns at 0.0 "$n17 setdest 765.0 320.0 5.0"

$ns at 1.0 "$n18 setdest 109.0 20.0 5.0"

$ns at 1.0 "$n19 setdest 175.0 185.0 5.0"

 

#$ns at 5 " $n6 setdest 650 490 40 "

#===================================

#        Agents Definition        

#===================================

#Setup a UDP connection

set udp0 [new Agent/UDP]

$ns attach-agent $n16 $udp0

set null0 [new Agent/Null]

$ns attach-agent $n10 $null0

$ns connect $udp0 $null0

$udp0 set packetSize_ 1500

#Setup a CBR Application over UDP connection

set cbr0 [new Application/Traffic/CBR]

$cbr0 attach-agent $udp0

$cbr0 set packetSize_ 1000

$cbr0 set rate_ 0.1Mb

$cbr0 set random_ null

$ns at 1.0 "$cbr0 start"

$ns at 10.0 "$cbr0 stop"

#Setup a UDP connection

set udp1 [new Agent/UDP]

$ns attach-agent $n8 $udp1

set null1 [new Agent/Null]

$ns attach-agent $n9 $null1

$ns connect $udp1 $null1

$udp1 set packetSize_ 1500

#Setup a CBR Application over UDP connection

set cbr1 [new Application/Traffic/CBR]

$cbr1 attach-agent $udp1

$cbr1 set packetSize_ 1000

$cbr1 set rate_ 0.1Mb

$cbr1 set random_ null

$ns at 10.0 "$cbr1 start"

$ns at 20.0 "$cbr1 stop"

#Setup a UDP connection

set udp2 [new Agent/UDP]

$ns attach-agent $n8 $udp2

set null2 [new Agent/Null]

$ns attach-agent $n10 $null2

$ns connect $udp2 $null2

$udp2 set packetSize_ 1500

#Setup a CBR Application over UDP connection

set cbr2 [new Application/Traffic/CBR]

$cbr2 attach-agent $udp2

$cbr2 set packetSize_ 1000

$cbr2 set rate_ 0.1Mb

$cbr2 set random_ null

$ns at 20.0 "$cbr2 start"

$ns at 30.0 "$cbr2 stop"

set udp3 [new Agent/UDP]

$ns attach-agent $n16 $udp3

set null3 [new Agent/Null]

$ns attach-agent $n9 $null3

$ns connect $udp3 $null3

$udp3 set packetSize_ 1500

#Setup a CBR Application over UDP connection

set cbr3 [new Application/Traffic/CBR]

$cbr3 attach-agent $udp3

$cbr3 set packetSize_ 1000

$cbr3 set rate_ 0.1Mb

$cbr3 set random_ null

$ns at 30.0 "$cbr3 start"

$ns at 40.0 "$cbr3 stop"

#===================================

#        Termination        

#===================================

#Define a 'finish' procedure

proc finish {} {

    global ns tracefile namfile

    $ns flush-trace

    close $tracefile

    close $namfile

    exec nam blackhole.nam &

    exit 0

}

for {set i 0} {$i < $val(nn) } { incr i } {

    $ns at $val(stop) "\$n$i reset"

}

$ns at $val(stop) "$ns nam-end-wireless $val(stop)"

$ns at $val(stop) "finish"

$ns at $val(stop) "puts \"done\" ; $ns halt"

$ns run

[knudfl]

Seems answers are getting deleted today.  Be back later.

[Rohan jon]

what's the problem... i can not find that sir

please me.........

[knudfl]

»» what's the problem «« : No problem. But you are probably using a stock ns2 for the simulation.

.... Which is more like a misunderstanding :

Ns2 can use the protocols / the methods included.

.... If you want extra stuff, ns2 must be edited, e.g. with a patch :

https://drive.google.com/drive/folders/0B7S255p3kFXNZ2lWZDBRSW40Q00?usp=sharing

Manet examples : manet-examples-9.tar.gz
https://drive.google.com/file/d/19YO899g09804qisu0z1a64JYye_40FK2/view?usp=sharing

Yesterdays answer :  https://www.dropbox.com/s/cile09p36i85he4/Rohan-Jon__answer.html?dl=0

[Rohan jon]

Thank you sir.....

errors:

$ ns BH_AODV_20.tcl

num_nodes is set 20

INITIALIZE THE LIST xListHead

ns: _o39 hacker:

    (_o39 cmd line 1)

    invoked from within

"_o39 cmd hacker"

    invoked from within

"catch "$self cmd $args" ret"

    invoked from within

"if [catch "$self cmd $args" ret] {

set cls [$self info class]

global errorInfo

set savedInfo $errorInfo

error "error when calling class $cls: $args" $..."

    (procedure "_o39" line 2)

    (SplitObject unknown line 2)

    invoked from within

"_o39 hacker"

what's the problem... i can not find that sir

please me.........

[Rohan jon]

sir ...... please kindly give me those files (Like .nam and .tr) from Tcl files

please sir Help me

[knudfl]

Solution :  Setup another ns-allinone-2.35_gcc5.tar.gz

https://drive.google.com/file/d/0B7S255p3kFXNVVlxR0ZNRGVORjQ/view?usp=sharing

....  in a new directory :  You can have as many as you want, at the same time.

...  And patch with "blackhole-MohitTahiliani__ns235.patch".

Default is :

/home/name/ns2/ns-allinone-2.35/

/home/name/ns2/[blackhole]/ns-allinone-2.35/

/home/name/ns2/[app-name]/ns-allinone-2.35/

/home/name/ns2/[app-name]/ns-allinone-2.35/

.... and read ns2-INFO,  please.

And : https://www.dropbox.com/s/cile09p36i85he4/Rohan-Jon__answer.html?dl=0

[Rohan jon]

Thank you so much, dear sir........... it's work, and I'm glad and pleaser to you. Thank you, sir.

step by step i following  "blackhole-MohitTahiliani__ns235.patch"  and it's work and finally done.