please comment this TCL . when i run the tcl it has an error.. this file called singlehop.tcl
[EMAIL PROTECTED]:/usr/local/ns2/projek$ ns singlehop.tcl num_nodes is set 3 invalid command name "Propagation/SimpleDistance" while executing "Propagation/SimpleDistance create _o24 " invoked from within "catch "$className create $o $args" msg" invoked from within "if [catch "$className create $o $args" msg] { if [string match "__FAILED_SHADOW_OBJECT_" $msg] { delete $o return "" } global errorInfo error "class $..." (procedure "new" line 3) invoked from within "new $propType_" (procedure "_o3" line 29) (Simulator node-config line 29) invoked from within "$ns_ node-config -mobileIP OFF \ -adhocRouting NOAH \ -llType LL \ -macType Mac/802_11 \ ..." (file "singlehop.tcl" line 22) ---------------------------------------------------------------------------------------------------------------------------------- # below is singlehop.tcl file ---------------------------------------------------------------------------------------------------------------------------------- set ns_ [new Simulator] $ns_ node-config -addressType hierarchical AddrParams set domain_num_ 2 lappend cluster_num 1 1 AddrParams set cluster_num_ $cluster_num lappend eilastlevel 1 2 AddrParams set nodes_num_ $eilastlevel set tracefd [open output/singlehop.tr w] $ns_ trace-all $tracefd set topo [new Topography] $topo load_flatgrid 60 40 set god_ [create-god 3] # wired nodes set node_(0) [$ns_ node 0.0.1] set chan_ [new Channel/WirelessChannel] $ns_ node-config -mobileIP OFF \ -adhocRouting NOAH \ -llType LL \ -macType Mac/802_11 \ -ifqType Queue/DropTail/PriQueue \ -ifqLen 50 \ -antType Antenna/OmniAntenna \ -propType Propagation/SimpleDistance \ -phyType Phy/WirelessPhy \ -channel $chan_ \ -topoInstance $topo \ -wiredRouting ON \ -agentTrace ON \ -routerTrace ON \ -macTrace ON # home agents $ns_ node-config -rxPower 0.1 -txPower 0.1 set node_(1) [$ns_ node 1.0.0] #[$node_(1) set regagent_] priority 3 $ns_ node-config -wiredRouting OFF # mobile agents $ns_ node-config -rxPower 73 -txPower 73 set node_(2) [$ns_ node 1.0.1] #[$node_(2) set regagent_] set home_agent_ [AddrParams addr2id [$node_(1) node-addr]] #Errormodel - ASM #Two State Markov #set rate [list 0.0001 0.1 ] #set trans [list 0.5 0.5] #set unit pkt #set em_ [new ErrorModel/TwoStateMarkov $rate $unit $trans ] set tmp1 [new ErrorModel/Uniform 0 pkt] set tmp2 [new ErrorModel/Uniform 0.9 pkt] set m_states [list $tmp1 $tmp2] set m_periods [list 10 10] ;#[list 0.5 0.5] set m_transmx { {0 1} {1 0} } set m_trunit pkt set m_sttype time set m_nstates 2 set m_nstart [lindex $m_states 0] set em_ [new ErrorModel/MultiState $m_states $m_periods $m_transmx $m_trunit $m_sttype $m_nstates $m_nstart] #Errormodel - ASM #Two State #set rate [list 0.001 0.1 ] #set unit pkt #set em_ [new ErrorModel/TwoState $rate $unit] #Normal one state model #set em_ [new ErrorModel] #$em_ unit pkt #$em_ set rate_ 0.1 #$em_ ranvar [new RandomVariable/Uniform] $node_(2) install-error $em_ #Errormodel - ASM $ns_ node-config -wiredRouting ON # source connection-pattern and node-movement scripts source "singlehop.scn" source "singlehop.txt" # Tell all nodes when the simulation ends for {set i 0} {$i < 2 } {incr i} { #$ns_ at 1000.0 "$node_($i) reset"; $ns_ at 120.0 "$node_($i) reset"; #$ns_ at 600.0 "$node_($i) reset"; } # Progress #for {set t 10} {$t < 920} {incr t 10} { # $ns_ at $t "puts stderr \"completed through $t/920 secs...\"" #} $ns_ at 0.0 "puts stderr \"Simulation started...\"" $ns_ at 120.0000 "puts stderr \"Simulation finished\"" $ns_ at 120.0001 "close $tracefd" $ns_ at 120.0002 "exec run_plot_tp.sh traffic.tr 2" $ns_ at 120.0003 "$ns_ halt" puts $tracefd "M 0.0 nn 10 x 60 y 40 rp NOAH" puts $tracefd "M 0.0 sc traffic.scn cp traffic.com seed 0" $ns_ run -- AZHAR MOHD ARIS