Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- # A 3-node example for ad-hoc simulation with AODV
- # 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) 3 ;# number of mobilenodes
- set val(rp) AODV ;# routing protocol
- set val(x) 300 ;# X dimension of topography
- set val(y) 300 ;# Y dimension of topography
- set val(stop) 15 ;# time of simulation end
- set ns [new Simulator]
- set tracefd [open simple.tr w]
- set windowVsTime2 [open win.tr w]
- set namtrace [open simwrls.nam w]
- $ns trace-all $tracefd
- $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 $val(nn)
- #
- # Create nn mobilenodes [$val(nn)], attach to the channel anf configure them.
- #
- $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) \
- -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]
- }
- # Provide initial location of mobilenodes
- $node_(0) set X_ 150.0
- $node_(0) set Y_ 50.0
- $node_(0) set Z_ 0.0
- $node_(1) set X_ 280.0
- $node_(1) set Y_ 10.0
- $node_(1) set Z_ 0.0
- $node_(2) set X_ 40.0
- $node_(2) set Y_ 50.0
- $node_(2) set Z_ 0.0
- # Generation of movements : set dest to x, y with speed s.
- $ns at 1.0 "$node_(0) setdest 80.0 100.0 5.0"
- $ns at 1.0 "$node_(2) setdest 1.0 250.0 15.0"
- # Set a TCP connection between node_(0) and node_(1)
- set tcp [new Agent/TCP/Newreno]
- $tcp set class_ 2
- set sink [new Agent/TCPSink]
- $ns attach-agent $node_(1) $tcp
- $ns attach-agent $node_(2) $sink
- $ns connect $tcp $sink
- set ftp [new Application/FTP]
- $ftp attach-agent $tcp
- $ns at 1.0 "$ftp start"
- $ns at 12.0 "$ftp stop"
- # Printing the window size
- proc plotWindow {tcpSource file} {
- global ns
- set time 0.01
- set now [$ns now]²
- set cwnd [$tcpSource set cwnd_]
- puts $file "$now $cwnd"
- $ns at [expr $now+$time] "plotWindow $tcpSource $file"
- $ns at 10.1 "plotWindow $tcp $windowVsTime2"
- }
- # Define node initial position in nam
- for {set i 0} {$i < $val(nn)} { incr i } {
- # 30 defines the node size for nam
- $ns initial_node_pos $node_($i) 30
- }
- # Telling nodes when the simulation ends
- for {set i 0} {$i < $val(nn) } { incr i } {
- $ns at $val(stop) "$node_($i) reset";
- }
- # ending nam and the simulation
- $ns at $val(stop) "$ns nam-end-wireless $val(stop)"
- $ns at $val(stop) "stop"
- $ns at 150.01 "puts \"end simulation\" ; $ns halt"
- proc stop {} {
- global ns tracefd namtrace
- $ns flush-trace
- close $tracefd
- close $namtrace
- }
- $ns run
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement