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)
