网络 vanet 中的集群 + 使用 sumo+ns2 创建的文件移动性
clustering in network vanet +files mobility craeted with sumo+ns2
我想在一条道路上创建多个集群,其中包含在 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:~/champ elysees$ ns paris2.tcl
num_nodes is set 747
Error!!
str2addr:Address 32573 outside range of address field length 2048*
您的代码几乎没问题,只是编辑了一些拼写错误。 Mac/802_11p
今天是 Mac/802_11Ext
。除非你使用了 802_11p 的旧补丁并且构建失败。但我想这是一个错字。使用分层:节点必须分层创建。一个简单的"node creation"会导致
Address 32573 outside range of address field length 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 个节点的 SUMO 移动文件:mobmod-teatinos-M40A.tcl
,来自 http://neo.lcc.uma.es/staff/jamal/vanet/?q=node/11 . Segmentation fault happens when the trace files are about 80MB, which is usable. Nam animation: OK. The edited file, somiMadani-vanet.tcl → → Dropbox → https://www.dropbox.com/s/sv7p4tqc6pk0oje/somiMadani-vanet.tcl?dl=0 And readable, somiMadani-vanet.tcl.txt https://www.dropbox.com/s/fy8valous07m5er/somiMadani-vanet.tcl.txt?dl=0
编辑,6 月 5 日。分层:创建所需的分层节点:参见 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-test-1000.tcl.
使用
新示例,您的代码 + hts100-0.tcl 片段 "n-hts120-0.tcl":Vanet_n-802.11p.tar.gz https://drive.google.com/file/d/0B7S255p3kFXNcVcwSXhPWGUycDA/view?usp=sharing
我想在一条道路上创建多个集群,其中包含在 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:~/champ elysees$ ns paris2.tcl num_nodes is set 747 Error!! str2addr:Address 32573 outside range of address field length 2048*
您的代码几乎没问题,只是编辑了一些拼写错误。 Mac/802_11p
今天是 Mac/802_11Ext
。除非你使用了 802_11p 的旧补丁并且构建失败。但我想这是一个错字。使用分层:节点必须分层创建。一个简单的"node creation"会导致
Address 32573 outside range of address field length 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 个节点的 SUMO 移动文件:mobmod-teatinos-M40A.tcl
,来自 http://neo.lcc.uma.es/staff/jamal/vanet/?q=node/11 . Segmentation fault happens when the trace files are about 80MB, which is usable. Nam animation: OK. The edited file, somiMadani-vanet.tcl → → Dropbox → https://www.dropbox.com/s/sv7p4tqc6pk0oje/somiMadani-vanet.tcl?dl=0 And readable, somiMadani-vanet.tcl.txt https://www.dropbox.com/s/fy8valous07m5er/somiMadani-vanet.tcl.txt?dl=0
编辑,6 月 5 日。分层:创建所需的分层节点:参见 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-test-1000.tcl.
新示例,您的代码 + hts100-0.tcl 片段 "n-hts120-0.tcl":Vanet_n-802.11p.tar.gz https://drive.google.com/file/d/0B7S255p3kFXNcVcwSXhPWGUycDA/view?usp=sharing