基于sumo+ns2的网络香草+文件移动性集群

Question

我希望在一条道路上创建多个集群，其中包含用ns2中的somo创建的移动文件。

在相扑中，文件mobility.tcl是可移动的。

我的代码如下：

set val(chan)           Channel/WirelessChannel    ;# channel type
set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
set val(netif1)         Phy/WirelessPhy            ;# network interface type
set val(netif2)         Phy/WirelessPhy            ;# network interface type
set val(mac)            Mac/802_11p                ;# 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)         400                        ;# max packet in ifq
set val(nn)             747                        ;# number of mobilenodes
set val(rp)             DSDV                       ;# routing protocol
set opt(x)              6162
set opt(y)              6029
# ======================================================================
# Main Program
# =====================================================================
#
# Initialize Global Variables
#
set ns_     [new Simulator]
# set up for hierarchical routing
$ns_ node-config -addressType hierarchical

AddrParams set domain_num_ 10         
lappend cluster_num 2 6 2 3 6 1 5 5 2 6                  
AddrParams set cluster_num_ $cluster_num
lappend eilastlevel 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20             
AddrParams set nodes_num_ $eilastlevel 
set tracefd     [open paris.tr w]
$ns_ trace-all $tracefd
set namf  [open paris.nam w]
$ns_ namtrace-all-wireless $namf $opt(x) $opt(y)
# set up topography object
set topo       [new Topography]
$topo load_flatgrid $opt(x) $opt(y)
#
# Create God
#
create-god $val(nn)
# configure node
    $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(netif1) \
         -channelType $val(chan) \
         -topoInstance $topo \
         -agentTrace ON \
         -routerTrace ON \
         -macTrace OFF \
         -movementTrace ON 

            for {set i 0} {$i < $val(nn) } {incr i} {
    set node_($i) [$ns_ node]   
    $node_($i) random-motion 0      ;# disable random motion
            $ns_ initial_node_pos $node_($i) 30
             }
     $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(netif2) \
         -channelType $val(chan) \
         -topoInstance $topo \
         -agentTrace ON \
         -routerTrace ON \
         -macTrace OFF \
         -movementTrace ON 

        for {set i 0} {$i < $val(nn) } {incr i} {
    set node_($i) [$ns_ node]   
    $node_($i) random-motion 0      ;# disable random motion
            $ns_ initial_node_pos $node_($i) 30
             }
     source mobility.tcl

    set udp0 [new Agent/UDP]
    $ns attach-agent $n(0) $udp0
    set cbr0 [new Application/Traffic/CBR]
    $cbr0 attach-agent $udp0
    set udp1 [new Agent/UDP]
    $ns attach-agent $n(1) $udp1
    $udp1 set class_ 1
    set cbr1 [new Application/Traffic/CBR]
    $cbr1 attach-agent $udp1
    set null0 [new Agent/Null]
    $ns attach-agent $n(50) $null0
    set null1 [new Agent/Null]
    $ns attach-agent $n(80) $null1
    $ns connect $udp0 $null0
    $ns connect $udp1 $null1
    $ns at 1.0 "$cbr0 start"
    $ns at 1.1 "$cbr1 start"
    set tcp [new Agent/TCP]
   $tcp set class_ 2
   set sink [new Agent/TCPSink]
    $ns_ attach-agent $node_(0) $tcp
    $ns_ attach-agent $node_(22) $sink
    $ns_ connect $tcp $sink
    set ftp [new Application/FTP]
    $ftp attach-agent $tcp
    $ns_ at 10.0 "$ftp start" 
     #
     # Tell nodes when the simulation ends
     #
      for {set i 0} {$i < $val(nn) } {incr i} {
   $ns_ at 500.0 "$node_($i) reset";
     }
      $ns_ at 500.0 "stop"
    $ns_ at 1000.01 "puts \"NS EXITING...\" ; $ns_ halt"
     proc stop {} {
global ns_ tracefd
$ns_ flush-trace
close $tracefd
   }
   puts "Starting Simulation..."
   $ns_ run*

错误是：

madani@ubuntu：~/冠军爱丽舍宫$ ns paris2.tcl num_nodes设置为747错误！！地址32573地址字段长度2048*

Answer 1

当编辑一些排版时，您的代码几乎没有问题。Mac/802_11p是今天的Mac/802_11Ext。除非您为802_11p使用了一个旧的修补程序并失败了构建。但我想这是个错误。使用层次结构:必须创建分层节点。一个简单的“节点创建”将导致

地址32573地址字段长度2048外部范围

输入：ns有两个定义，ns和ns_。

node有两个定义，n和node_ .容易固定的：

$ sed -i 's/ns/ns_/g' somiMadani.tcl && sed -i 's/ns__/ns_/g' somiMadani.tcl

$ sed -i 's/n(/node_(/g' somiMadani.tcl

模拟:我使用了一个包含40个节点的相扑移动文件：mobmod-teatinos-M40A.tcl，来自http://neo.lcc.uma.es/staff/jamal/vanet/?q=node/11。当跟踪文件约为80 is时会发生分段错误，这是可用的。越南动画:好的。编辑后的文件，somiMadani-vanet.tcl Dropbox https://www.dropbox.com/s/sv7p4tqc6pk0oje/somiMadani-vanet.tcl?dl=0和可读的，somiMadani-vanet.tcl.txt https://www.dropbox.com/s/fy8valous07m5er/somiMadani-vanet.tcl.txt?dl=0

层次结构:创建所需的层次节点:请参见ns-2.3x/tcl/{ex/{hier-rtg-10.tcl, hts100-0.tcl, test/hts1000.tcl}→→hts100-0.tcl，hts1000.tcl由hier-rtg-100.tcl、hier 1000.tcl使用。

新示例，您的代码+ hts100-0.tcl片段"n-hts120-0.tcl"：Vanetn-802.11p.tar.gz https://drive.google.com/file/d/0B7S255p3kFXNcVcwSXhPWGUycDA/view?usp=sharing