Hi all i am implementing a new dart protocol for scalable adhoc and mesh networks. While executing thos namain.tcl i got the error which is shown below. Please help me my project titile is Dynamic Address Routing for adhoc networks DART
# simulation.tcl <movement> <traffic> <protocol> # A simple example for wireless simulation # ====================================================================== # 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 que if { [string compare [lindex $argv 2] "DSR"] == 0 } { set val(ifq) CMUPriQueue; } 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) [lindex $argv 2] ;# routing protocol source m/[lindex $argv 0].ns_params # ====================================================================== # Main Program # ====================================================================== # # Initialize Global Variables # set ns_ [new Simulator] # gzipping inline improves performance set half "| gzip > " set dir "logs/" set tracefd [open $half$dir[lindex $argv 0]/[lindex $argv 1]/[lindex $argv 2].tr.gz 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 # set god_ [create-god $val(nn)] # # Create the specified number of mobilenodes [$val(nn)] and "attach" them # to the channel. # Here two nodes are created : node(0) and node(1) # 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(netif) \ -channel [new $val(chan)] \ -topoInstance $topo \ -agentTrace ON \ -routerTrace ON \ -macTrace OFF \ -movementTrace OFF for {set i 0} {$i < $val(nn) } {incr i} { set node_($i) [$ns_ node] $node_($i) random-motion 0 ;# disable random motion $god_ new_node $node_($i) } source m/[lindex $argv 0].ns_movements source t/[lindex $argv 1].traffic # # Tell nodes when the simulation ends # for {set i 0} {$i < $val(nn) } {incr i} { $ns_ at 900.0 "$node_($i) reset"; } $ns_ at 900.0 "stop" #$ns_ nam-end-wireless 100.0 $ns_ at 900.0 "puts \"NS EXITING...\" ; $ns_ halt" proc stop {} { global ns_ tracefd $ns_ flush-trace close $tracefd } puts "Starting Simulation..." $ns_ run ns nsmain.tcl couldn't read file "m/.ns_params": no such file or directory while executing "source.orig m/.ns_params" ("uplevel" body line 1) invoked from within "uplevel source.orig [list $fileName]" invoked from within "if [$instance_ is_http_url $fileName] { set buffer [$instance_ read_url $fileName] uplevel eval $buffer } else { uplevel source.orig [list $fileName] ..." (procedure "source" line 8) invoked from within "source m/[lindex $argv 0].ns_params" (file "nsmain.tcl" line 21)