[ns] dsr in wired-cum-wireless scenarios

[Zhang Wen Zhi]

I set up a wired-wireless scenario in ns-2.33 : 2 wired nodes ,2
basestation ,and 3 mobilenodes attach to base(0) . wireless mode use
DSR routing protocol£¬This is my script as follows.
=========================================
### This simulation is an example of combination of wired and wireless
### topologies.


global opt
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(ifq)        CMUPriQueue
set opt(ll)         LL
set opt(ant)        Antenna/OmniAntenna
set opt(x)             670
set opt(y)              670
set opt(ifqlen)         50
set opt(tr)          wired-and-wireless.tr
set opt(namtr)       wired-and-wireless.nam
set opt(nn)             3
set opt(adhocRouting)   DSR
set opt(stop)           250
set num_wired_nodes      2
set num_bs_nodes         2


  set ns_   [new Simulator]

# set up for hierarchical routing
  $ns_ node-config -addressType hierarchical
  AddrParams set domain_num_ 3
  lappend cluster_num 2 1 1
  AddrParams set cluster_num_ $cluster_num
  lappend eilastlevel 1 1 4 1
  AddrParams set nodes_num_ $eilastlevel

  set tracefd  [open $opt(tr) w]
  $ns_ trace-all $tracefd
  set namtracefd [open $opt(namtr) w]
  $ns_ namtrace-all $namtracefd


  set topo   [new Topography]
  $topo load_flatgrid $opt(x) $opt(y)
  # god needs to know the number of all wireless interfaces
  create-god [expr $opt(nn) + $num_bs_nodes]

  #create wired nodes
  set temp {0.0.0 0.1.0}
  for {set i 0} {$i < $num_wired_nodes} {incr i} {
      set W($i) [$ns_ node [lindex $temp $i]]
  }
  $ns_ node-config -adhocRouting $opt(adhocRouting) \
                 -llType $opt(ll) \
                 -macType $opt(mac) \
                 -ifqType $opt(ifq) \
                 -ifqLen $opt(ifqlen) \
                 -antType $opt(ant) \
                 -propInstance [new $opt(prop)] \
                 -phyType $opt(netif) \
                 -channel [new $opt(chan)] \
                 -topoInstance $topo \
                 -wiredRouting ON \
                 -agentTrace ON \
                 -routerTrace OFF \
                 -macTrace OFF

  set temp {1.0.0 1.0.1 1.0.2 1.0.3}
  set BS(0) [$ns_ node [lindex $temp 0]]
  set BS(1) [$ns_ node 2.0.0]
  $BS(0) random-motion 0
  $BS(1) random-motion 0

  $BS(0) set X_ 1.0
  $BS(0) set Y_ 2.0
  $BS(0) set Z_ 0.0

  $BS(1) set X_ 650.0
  $BS(1) set Y_ 600.0
  $BS(1) set Z_ 0.0

  #configure for mobilenodes
  $ns_ node-config -wiredRouting OFF

  for {set j 0} {$j < $opt(nn)} {incr j} {
    set node_($j) [ $ns_ node [lindex $temp \
            [expr $j+1]] ]
    $node_($j) base-station [AddrParams addr2id [$BS(0) node-addr]]
  }
  #create links between wired and BS nodes
  $ns_ duplex-link $W(0) $W(1) 5Mb 2ms DropTail
  $ns_ duplex-link $W(1) $BS(0) 5Mb 2ms DropTail
  $ns_ duplex-link $W(1) $BS(1) 5Mb 2ms DropTail
  $ns_ duplex-link-op $W(0) $W(1) orient down
  $ns_ duplex-link-op $W(1) $BS(0) orient left-down
  $ns_ duplex-link-op $W(1) $BS(1) orient right-down

  # setup TCP connections
  set tcp1 [new Agent/TCP]
  $tcp1 set class_ 2
  set sink1 [new Agent/TCPSink]
  $ns_ attach-agent $node_(0) $tcp1
  $ns_ attach-agent $W(0) $sink1
  $ns_ connect $tcp1 $sink1
  set ftp1 [new Application/FTP]
  $ftp1 attach-agent $tcp1
  $ns_ at 160 "$ftp1 start"

  set tcp2 [new Agent/TCP]
  $tcp2 set class_ 2
  set sink2 [new Agent/TCPSink]
  $ns_ attach-agent $W(1) $tcp2
  $ns_ attach-agent $node_(2) $sink2
  $ns_ connect $tcp2 $sink2
  set ftp2 [new Application/FTP]
  $ftp2 attach-agent $tcp2
  $ns_ at 180 "$ftp2 start"

  for {set i 0} {$i < $opt(nn)} {incr i} {
      $ns_ initial_node_pos $node_($i) 20
   }

  for {set i } {$i < $opt(nn) } {incr i} {
      $ns_ at $opt(stop).0000010 "$node_($i) reset";
  }
  $ns_ at $opt(stop).0000010 "$BS(0) reset";

  $ns_ at $opt(stop).1 "puts \"NS EXITING...\" ; $ns_ halt"

  puts "Starting Simulation..."
  $ns_ run

=========================================
When  I run the script on NS2 ,it has promble like this "can't read
ragnet_"£¬the error detail is:
=========================================
 can't read "ragent_": no such variable
    while executing
"subst $[subst $var]"
    (procedure "_o36" line 5)
    (SplitObject set line 5)
    invoked from within
"$self set ragent_"
    (procedure "_o36" line 3)
    (Node/MobileNode agenttrace line 3)
    invoked from within
"$node agenttrace $tracefd"
    (procedure "_o3" line 103)
    (Simulator create-wireless-node line 103)
    invoked from within
"_o3 create-wireless-node 1.0.0"
    ("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 [lindex $temp 0]"
    invoked from within
"set BS(0) [$ns_ node [lindex $temp 0]]"
    (file "cum-wireless-sim.tcl" line 68)
=========================================

I check the ns-2 mannul and find the passage as follows:  "The
mobilenodes in wired-cum-wireless scenario are required to support
hierarchical addressing/routing. Thus the MobileNode looks exactly
like the BaseStationNode. The SRNode, however, simply needs to have
its own hier-address since it does not require any address demuxes and
thus is not required to support hier routing2."  Maybe I set the wrong
hieraddress of DSR .

Anyone who could give me some tips? thanks very much.



-- 
Thanks & Best Regards,

Zhang Wen Zhi(ÕÅÎÄÖÎ)
Tel: 086-1358-161-4504