Performance Evaluation of DSDV.docVIP

Performance Evaluation of DSDV, AODV, and DSR In this report, I just show the simulation scripts to compare the performance of DSDV, AODV, and DSR. More information about these adhoc routing protocols can be found on the Internet or books. (TCL script --- adhoc.tcl) if {$argc !=3} { puts Usage: ns adhoc.tcl Routing_Protocol Traffic_Pattern Scene_Pattern puts Example:ns adhoc.tcl DSDV cbr-50-10-8 scene-50-0-20 exit } set par1 [lindex $argv 0] set par2 [lindex $argv 1] set par3 [lindex $argv 2] set val(chan) Channel/WirelessChannel ;# channel type set val(prop) Propagation/TwoRayGround ;# radio-propagationmodel set val(netif) Phy/WirelessPhy ;# network interface type set val(mac) Mac/802_11 ;# MAC type if { $par1==DSR} { set val(ifq) CMUPriQueue } else { 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(rp) $par1 ;# routing protocol set val(x) 500 set val(y) 500 set val(seed) 0.0 set val(tr) temp.tr set val(nn) 50 set val(cp) $par2 set val(sc) $par3 set val(stop) 100.0 set ns_ [new Simulator] set tracefd [open $val(tr) w] $ns_ trace-all $tracefd $ns_ use-newtrace set topo [new Topography] $topo load_flatgrid $val(x) $val(y) set god_ [create-god $val(nn)] 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) \ -ph