Thanks for quick response Sidney. I am trying to learn mobile wireless network simulation. I know example1b.tcl is not mobile or wireless, but I used it as my first try just because it is so simple for a very ns beginner like me.
Can you direct me to some other places where I can find simple code that works with the new version of ns-2? Thanks much. Bing ----- Original Message ----- From: "Sidney Doria" <ssdo...@gmail.com> To: "Bing Mei" <b...@ncsu.edu> Sent: Thursday, December 18, 2008 12:03 AM Subject: Re: [ns] nam won't display Greis' tutorial is broken for new versions of NS-2. What do you what to learn? How to do a new protocol? simple cabled networks simulations? Wireless? sattelite? Sidney Doria UFCG / BRAZIL 2008/12/18 Bing Mei <b...@ncsu.edu>: > > Greetings. > > I am a new ns-2 user and haven't got luck even with my first simple > simulation run. After installing ns-allinone-2.33, I tried to run the > example1b.tcl (from Marc Greis' tutorial) but got the following message. > Can anybody tell me what the problem is and how to fix it? > > BTW, I am using Windows XP. And the nam trace file "out.nam" seemed to be > created correctly by the program. > > Many thanks. > > --------------------------------------------------------------------------------------------------------------- > $ nam: > [code omitted because of length] > : no event type or button # or keysym > while executing > "bind Listbox <MouseWheel> { > %W yview scroll [expr {- <%D / 120> * 4}] units > }" > invoked from within > "if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} > { > %W yview scroll [expr {- <%D>}] units > } > bind Li..." > > --------------------------------------------------------------------------------------------------------------- > > > The source code is as follows (example1b.tcl from Marc Greis' tutorial): > ------------------------------------------------------------------------------------------------- > #Create a simulator object > set ns [new Simulator] > > #Open the nam trace file > set nf [open out.nam w] > $ns namtrace-all $nf > > #Define a 'finish' procedure > proc finish {} { > global ns nf > $ns flush-trace > #Close the trace file > close $nf > #Execute nam on the trace file > exec nam out.nam & > exit 0 > } > > #Create two nodes > set n0 [$ns node] > set n1 [$ns node] > > #Create a duplex link between the nodes > $ns duplex-link $n0 $n1 1Mb 10ms DropTail > > #Create a UDP agent and attach it to node n0 > set udp0 [new Agent/UDP] > $ns attach-agent $n0 $udp0 > > # Create a CBR traffic source and attach it to udp0 > set cbr0 [new Application/Traffic/CBR] > $cbr0 set packetSize_ 500 > $cbr0 set interval_ 0.005 > $cbr0 attach-agent $udp0 > > #Create a Null agent (a traffic sink) and attach it to node n1 > set null0 [new Agent/Null] > $ns attach-agent $n1 $null0 > > #Connect the traffic source with the traffic sink > $ns connect $udp0 $null0 > > #Schedule events for the CBR agent > $ns at 0.5 "$cbr0 start" > $ns at 4.5 "$cbr0 stop" > #Call the finish procedure after 5 seconds of simulation time > $ns at 5.0 "finish" > > #Run the simulation > $ns run > -------------------------------------------------------------------------------------------- > > Thanks very much. > > Bing > -- Sidney Doria Redes ad hoc móveis Mestrado em Computação UFCG Brasil "Nessa jornada, o conhecimento será o seu escudo..." (Mestre dos Magos no episódio do grimoire de ouro)