将10个节点转换为3个节点

时间：2015-03-06 13:19:52

标签： ns2

这是我项目的一个模块，followin程序适用于10个节点，如果我尝试将其转换为3个节点，我将无法执行该程序。任何帮助表示赞赏

enter code here
# Define options
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)             10                      ;# number of mobilenodes
set val(rp)             DumbAgent                    ;# routing protocol
set val(x)              600                ;# X dimension of topography
set val(y)              600                ;# Y dimension of topography  



Mac/802_11 set dataRate_ 11Mb
# Global Variables
set ns_ [new Simulator]
set tracefd [open project1.tr w]
$ns_ trace-all $tracefd
set namtrace [open project1.nam w]
$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
# set up topography object
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
# Create God
create-god $val(nn)
# Create channel
set chan_1_ [new $val(chan)]
$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) \
    -topoInstance $topo \
    -agentTrace OFF \
    -routerTrace OFF \
    -macTrace ON \
    -movementTrace ON \
    -channel $chan_1_
for {set i 0} {$i < [expr $val(nn)]} {incr i} {
set node_($i) [$ns_ node]
$node_($i) random-motion 0;
set mac_($i) [$node_($i) getMac 0]
$mac_($i) set RTSThreshold_ 3000}
$node_(0) set X_ 200.0
$node_(0) set Y_ 360.0
$node_(0) set Z_ 0.0

$node_(1) set X_ 100.0
$node_(1) set Y_ 100.0
$node_(1) set Z_ 0.0

$node_(2) set X_ 400.0
$node_(2) set Y_ 400.0
$node_(2) set Z_ 0.0

$node_(3) set X_ 280.0
$node_(3) set Y_ 140.0
$node_(3) set Z_ 0.0

$node_(4) set X_ 100.0
$node_(4) set Y_ 320.0
$node_(4) set Z_ 0.0

$node_(5) set X_ 70.0
$node_(5) set Y_ 210.0
$node_(5) set Z_ 0.0

$node_(6) set X_ 440.0
$node_(6) set Y_ 310.0
$node_(6) set Z_ 0.0

$node_(7) set X_ 490.0
$node_(7) set Y_ 320.0
$node_(7) set Z_ 0.0

$node_(8) set X_ 520.0
$node_(8) set Y_ 280.0
$node_(8) set Z_ 0.0

$node_(9) set X_ 560.0
$node_(9) set Y_ 360.0
$node_(9) set Z_ 0.0
$ns_ at 0.0 "$node_(0) label AP1"
$ns_ at 0.0 "$node_(1) label N1"
$ns_ at 0.0 "$node_(2) label MN1"
$ns_ at 0.0 "$node_(3) label MN2"
$ns_ at 0.0 "$node_(4) label MN3"
$ns_ at 0.0 "$node_(5) label MN4"
$ns_ at 0.0 "$node_(6) label MN5"
$ns_ at 0.0 "$node_(7) label MN6"
$ns_ at 0.0 "$node_(8) label MN7"
$ns_ at 0.0 "$node_(9) label AP2"

$ns_ at 0.0 "$node_(0) add-mark m1 green circle"
$ns_ at 0.0 "$node_(1) add-mark m1 red circle"
$ns_ at 0.0 "$node_(2) add-mark m1 yellow circle"
$ns_ at 0.0 "$node_(3) add-mark m1 blue circle"
$ns_ at 0.0 "$node_(4) add-mark m1 purple circle"
$ns_ at 0.0 "$node_(5) add-mark m1 pink circle"
$ns_ at 0.0 "$node_(6) add-mark m1 red circle"
$ns_ at 0.0 "$node_(7) add-mark m1 plum circle"
$ns_ at 0.0 "$node_(8) add-mark m1 yellow circle"
$ns_ at 0.0 "$node_(9) add-mark m1 grey circle"

set AP_ADDR1 [$mac_(0) id]
$mac_(0) ap $AP_ADDR1
set AP_ADDR2 [$mac_([expr $val(nn) - 1]) id]
$mac_([expr $val(nn) - 1]) ap $AP_ADDR2
$mac_(1) ScanType ACTIVE
for {set i 3} {$i < [expr $val(nn) - 1]} {incr i} {
    $mac_($i) ScanType PASSIVE      ;
}
$ns_ at 1.0 "$mac_(2) ScanType ACTIVE"
Application/Traffic/CBR set packetSize_ 1023
Application/Traffic/CBR set rate_ 256Kb

for {set i 1} {$i < [expr $val(nn) - 1]} {incr i} {
        set udp1($i) [new Agent/UDP]
        $ns_ attach-agent $node_($i) $udp1($i)
    set cbr1($i) [new Application/Traffic/CBR]
    $cbr1($i) attach-agent $udp1($i)
}


set null0 [new Agent/Null]
$ns_ attach-agent $node_(1) $null0
$ns_ connect $udp1(2) $null0

set null1 [new Agent/Null]
$ns_ attach-agent $node_(1) $null1
$ns_ connect $udp1(3) $null1

set null2 [new Agent/Null]
$ns_ attach-agent $node_(1) $null2
$ns_ connect $udp1(4) $null2

set null3 [new Agent/Null]
$ns_ attach-agent $node_(1) $null3
$ns_ connect $udp1(5) $null3

set null4 [new Agent/Null]
$ns_ attach-agent $node_(1) $null4
    $ns_ connect $udp1(6) $null4

set null5 [new Agent/Null]
$ns_ attach-agent $node_(1) $null5
$ns_ connect $udp1(7) $null5

set null6 [new Agent/Null]
$ns_ attach-agent $node_(1) $null6
$ns_ connect $udp1(8) $null6

for {set i 0} {$i < [expr $val(nn)]} {incr i} {
$ns_ initial_node_pos $node_($i) 30
}


$ns_ at 8.0 "$cbr1(2) start"
$ns_ at 2.0 "$cbr1(3) start"
$ns_ at 3.0 "$cbr1(4) start"
$ns_ at 4.0 "$cbr1(5) start"
$ns_ at 5.0 "$cbr1(6) start"
$ns_ at 6.0 "$cbr1(7) start"
$ns_ at 7.0 "$cbr1(8) start"


$ns_ at 10.0 "$node_(4) setdest 590.0 350.0 1000.0"

$ns_ at 35.0 "$node_(5) setdest 460.0 360.0 1000.0"
$ns_ at 50.0 "$node_(3) setdest 590.0 350.0 1000.0"
$ns_ at 52.0 "$node_(3) setdest 100.0 360.0 1000.0"

$ns_ at 100.0 "stop"
$ns_ at 100.0 "puts \"NS EXITING...\" ; $ns_ halt"

proc stop {} {
global ns_ tracefd
$ns_ flush-trace
close $tracefd
exec nam project1.nam
exit 0
}
puts "Starting Simulation..."
$ns_ run

这是我项目的一个模块，followin程序适用于10个节点，如果我尝试将其转换为3个节点，我将无法执行该程序。任何帮助表示赞赏

2 个答案:

答案 0 :(得分：1)

只需减少所有相关行，仅使用节点{0,1,2}，

并编辑剩余的行，直到您有可用的结果。

（我用了5分钟，用一些线条纯粹猜测，但它确实有用。）

示例，您编辑的文件“3-DSR.tcl”

“Google文档”https://drive.google.com/file/d/0B7S255p3kFXNRFFlaTRGaWt1V3M/view?usp=sharing

链接

-

答案 1 :(得分：0)

3-DSR.tcl：纯实验//粗略。 我只做了一些随机的改动，直到：

1）我得到了一个没有错误的结果。

2）又做了一次更改，让所有三个节点都显示在＆＃39; nam＆＃39;。

***其实我不知道ns2模拟是如何工作的，以及为什么。

但是：长期经验（〜5年）构建ns2- [所有版本]，[所有附加协议]，二进制ns2软件包，补丁和成千上万的模拟测试：我有时会有新的工作需要运气

相关问题
最新问题