?? ns.tcl
字號:
# TCL script takes three parameters: #senders, #receivers, #scenario## Check for command-line parameters#if {$argc != 3} { error "Usages: ns ns.tcl <no_of_senders> <no_receivers> <scenario>"}set opt(stop) 910.0set nodes 50set mobility 1set scenario [lindex $argv 2]set pausetime 0set traffic cbrset senders [lindex $argv 0]set receivers [lindex $argv 1] set ns_ [new Simulator]set topo [new Topography]$topo load_flatgrid 1500 300set tracefd [open ./trace-$pausetime-$mobility-$scenario-$senders-$receivers w]$ns_ trace-all $tracefdset god_ [create-god $nodes]$ns_ node-config -adhocRouting AODV \ -llType LL \ -macType Mac/802_11 \ -ifqLen 50 \ -ifqType Queue/DropTail/PriQueue \ -antType Antenna/OmniAntenna \ -propType Propagation/TwoRayGround \ -phyType Phy/WirelessPhy \ -channel [new Channel/WirelessChannel] \ -topoInstance $topo \ -agentTrace ON \ -routerTrace ON \ -macTrace OFF \ -movementTrace OFFfor {set i 0} {$i < $nodes} {incr i} { set node_($i) [$ns_ node] $node_($i) random-motion 0;}puts "Loading connection pattern ..."source "traffic/$traffic-$senders-$receivers"puts "Loading scenarios file..."source "scenarios/scen-1500x300-$nodes-$pausetime-$mobility-$scenario"for {set i 0} {$i < $nodes} {incr i} { $ns_ at $opt(stop) "$node_($i) reset";}$ns_ at $opt(stop) "$ns_ halt"puts "Starting Simulation ..."$ns_ run
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -