[ns] ns-users@ISI.EDUroblem in running tora

[namrata patil]

 Dear all,
I tried to run tora  in wireless senirio using ns2.31, I got the following error
 
num_nodes is set 50
INITIALIZE THE LIST xListHead

    (_o17 cmd line 1)
    invoked from within
"_o17 cmd port-dmux _o32"
    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 "_o17" line 2)
    (SplitObject unknown line 2)
    invoked from within
"$agent port-dmux $dmux_"
    (procedure "_o14" line 11)
    (Node/MobileNode add-target-rtagent line 11)
    invoked from within
"$self add-target-rtagent $agent $port"
    (procedure "_o14" line 23)
    (Node/MobileNode add-target line 23)
    invoked from within
"$self add-target $agent $port"
    (procedure "_o14" line 15)
    (Node attach line 15)
    invoked from within
"$node attach $ragent [Node set rtagent_port_]"
    (procedure "_o3" line 72)
    (Simulator create-wireless-node line 72)
    invoked from within
"_o3 create-wireless-node"
    ("eval" body line 1)
    invoked from within
"eval $self create-wireless-node $args"
    (procedure "_o3" line 23)
    (Simulator node line 23)
    invoked from within
"$ns_ node"
    ("for" body line 2)
    invoked from within
"for {set i 0} {$i < $val(nn) } {incr i} {
        set node_($i) [$ns_ node]
        $node_($i) random-motion 0
                ;# disable random motion
}"
    (file "tora50.tcl" line 112)
 
 
 
This is  the tcl program which I had run
 
# A simple example for wireless simulation
# ======================================================================
# 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(x)              500  ;# X dimension of the topography
set val(y)              500   ;# Y dimension of the topography
set val(ifqlen)         50            ;# max packet in ifq
set val(seed)           1..0
set val(adhocRouting)   TORA        
set val(nn)             50            ;# how many nodes are simulated
set val(cp)             "/root/ns-allinone-2.31/ns-2.31/tcl/mobility/scene/cbr-50-test" 
set val(sc)             "/root/ns-allinone-2.31/ns-2.31/tcl/mobility/scene/scen-50-test" 
set val(stop)           200.0           ;# simulation time
# =====================================================================
# Main Program
# ======================================================================
#
# Initialize Global Variables
#
# create simulator instance
set ns_  [new Simulator]
# setup topography object
set topo [new Topography]
# create trace object for ns and nam
set tracefd [open wireless50-tora.tr w]
set namtrace    [open wireless50-tora.nam w]
$ns_ trace-all $tracefd
$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
# define topology
$topo load_flatgrid $val(x) $val(y)
#
# Create God
#
set god_ [create-god $val(nn)]
#
# define how node should be created
#
#global node setting
set chan [new $val(chan)]
$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) \
                 -channel $chan \
   -topoInstance $topo \
   -agentTrace ON \
                 -routerTrace ON \
                 -macTrace ON 
#
#  Create the specified number of nodes [$val(nn)] and "attach" them
#  to the channel. 
for {set i 0} {$i < $val(nn) } {incr i} {
 set node_($i) [$ns_ node] 
 $node_($i) random-motion 0
  ;# disable random motion
}

# 
# Define node movement model
#
puts "Loading connection pattern..."
source $val(sc)
# 
# Define traffic model
#
puts "Loading scenario file..."
source $val(cp)
# Define node initial position in nam
for {set i 0} {$i < $val(nn)} {incr i} {
    # 20 defines the node size in nam, must adjust it according to your scenario
    # The function must be called after mobility model is defined
    
    $ns_ initial_node_pos $node_($i) 20
}

#
# Tell nodes when the simulation ends
#
for {set i 0} {$i < $val(nn) } {incr i} {
    $ns_ at $val(stop).0 "$node_($i) reset";
}
$ns_ at  $val(stop).0002 "puts \"NS EXITING...\" ; $ns_ halt"
puts $tracefd "M 0.0 nn $val(nn) x $val(x) y $val(y) rp $val(adhocRouting)"
puts $tracefd "M 0.0 sc $val(sc) cp $val(cp) seed $val(seed)"
puts $tracefd "M 0.0 prop $val(prop) ant $val(ant)"
puts "Starting Simulation..
$ns_ run
 
 Please help me in identifying error as I am in urgent need.
 
NAMRATA
 
 




      Unlimited freedom, unlimited storage. Get it now, on http://help.yahoo.com/l/in/yahoo/mail/yahoomail/tools/tools-08.html/