I have tried with this example, for creationg my own topologie, when running the tcl code, I have this problem:
class Animator: constructor failed: class NetworkModel/Auto: constructor failed: error when calling class NetworkModel/Auto: link 0 11 1.0 20.0 0 1.0 node 0 or 11 is not defined... (_o34 cmd line 1) invoked from within "_o34 cmd link 0 11 1.0 20.0 0 1.0" invoked from within "catch "$self cmd $args" ret" invoked from within "if [catch "$self cmd $args" ret] { set cls [$self info class] global errorInfo set savedInfo $errorInfo error "error when calling class $cls: $args" $..." (procedure "_o34" line 2) (SplitObject unknown line 2) invoked from within "$self link $dst $src $rate $delay $length $rev" (procedure "_o34" line 59) (NetworkModel layout_link line 59) invoked from within "$self layout_link [lrange $line 1 end]" ("l" arm line 2) invoked from within "switch $cmd { "n" { $self node $line } "g" { $self layout_agent [lrange $line 1 end] } "l" { $self layout_link [lrange $line 1 end] } "L" { $self layo..." (procedure "_o34" line 17) (NetworkModel nam_layout line 17) invoked from within "$self nam_layout $tracefile" (procedure "_o34" line 7) (Object next line 7) invoked from within "_o34 next _o31 /home/emna/ns-allinone-2.34/ns-2.34/glad.nam" ("eval" body line 1) invoked from within "eval $self next $animator $tracefile" (procedure "_o34" line 2) (NetworkModel/Auto init line 2) invoked from within "_o34 init _o31 /home/emna/ns-allinone-2.34/ns-2.34/glad.nam" (Class create line 1) invoked from within "NetworkModel/Auto create _o34 _o31 /home/emna/ns-allinone-2.34/ns-2.34/glad.nam" 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 $NETWORK_MODEL $self $tracefile" (procedure "_o31" line 87) (Animator init line 87) invoked from within "_o31 init /home/emna/ns-allinone-2.34/ns-2.34/glad.nam {}" (Class create line 1) invoked from within "Animator create _o31 /home/emna/ns-allinone-2.34/ns-2.34/glad.nam {}" 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 $ANIMATOR_CLASS_ $tracefile [join $args]" ------ i denote that my own tcl script is: set ns [new Simulator] # les dix noeuds: set node_0 [$ns node] # création des outputs trace et nam: set f [open glad.tr w] $ns trace-all $f set nf [open glad.nam w] $ns namtrace-all $nf # ====================================================================== # 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(rp) DumbAgent ;# routing protocol set val(start) 0.0 set val(ifqlen) 50 ;# max packet in ifq set val(n) 10 set val(tr) "trace" set val(X) 500 set val(Y) 500 set val(CWmin) 16 set val(CWmax) 1024 set val(SlotTime) 0.000009 set val(SIFS) 0.000016 set val(basicRate) 2Mb set val(dataRate) 54Mb set val(PreambleLength) 104 set val(PLCPHeaderLength) 48 #------------------------------------------------------------------------ # Codec: G.711 #------------------------------------------------------------------------ #set val(ON) 1500ms #set val(OFF) 1500ms #set val(AppRate) 96Kb #set val(pktsize) 160 #160 octets #set val(pktinterval) 0.020 #set pktsize $val(pktsize) #160 octets #set pktinterval $val(pktinterval) #set val(run) 50.0 #------------------------------------------------------------------------ # MAC MIB #------------------------------------------------------------------------ Mac/802_11 set basicRate $val(basicRate)Mb Mac/802_11 set dataRate $val(dataRate)Mb Mac/802_11 set CWMin $val(CWmin) Mac/802_11 set CWMax $val(CWmax) Mac/802_11 set SlotTime $val(SlotTime) Mac/802_11 set SIFS $val(SIFS) Mac/802_11 set PreambleLength $val(PreambleLength);# no preamble Mac/802_11 set PLCPHeaderLength $val(PLCPHeaderLength) ;# 128 bits Mac/802_11 set PLCPDataRate 1.0e6 ;# 1Mbps # set up topography object set topo [new Topography] #$topo load_flatgrid $val(X) $val(Y) # Create God create-god $val(n) # 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) \ -channelType $val(chan) \ -topoInstance $topo \ -agentTrace ON \ -routerTrace OFF \ -macTrace OFF \ -movementTrace OFF for {set i 0} {$i < $val(n) } {incr i} { set node_($i) [$ns node] $node_($i) random-motion 0 ;# disable random motion } set rtp_0 [new Agent/RTP] # communication agent-network ($ns attach-agent $node $agent) $ns attach-agent $node_0 $rtp_0 $rtp_0 set class_ 0 $ns color 0 Red # la création de l'application / set ... [new Application/type] set cbr_0 [new Application/Traffic/CBR] $cbr_0 attach-agent $rtp_0 $ns at 0.5 "$cbr_0 start" set null_0 [new Agent/Null] $ns attach-agent $node_0 $null_0 # multi flows for {set i 1} {$i < $val(n) } {incr i 1} { set node_($i) [$ns node] $ns duplex-link $node_($i) $node_0 1Mb 20ms DropTail set rtp_($i) [new Agent/RTP] set null_($i) [new Agent/Null] $ns attach-agent $node_($i) $rtp_($i) $ns attach-agent $node_($i) $null_($i) set color {Blue Red Yellow Orange Green Blue Red Blue Orange} $rtp_($i) set class_ lindex $argv $i $ns connect $rtp_($i) $null_0 $ns connect $rtp_0 $null_($i) set cbr_($i) [new Application/Traffic/CBR] $cbr_($i) attach-agent $rtp_($i) puts [$cbr_($i) set packetSize_ 160] puts [$cbr_($i) set interval_ 20ms] $ns at 0.1 "$cbr_($i) start" $ns at 10.0 "finish" } proc finish {} { global ns f nf $ns flush-trace close $f close $nf puts "running nam..." exec nam glad.nam & exit 0 } $ns run ------please some help thanks