LinuxQuestions.org
Welcome to the most active Linux Forum on the web.
Go Back   LinuxQuestions.org > Forums > Non-*NIX Forums > Programming
User Name
Password
Programming This forum is for all programming questions.
The question does not have to be directly related to Linux and any language is fair game.

Notices



Reply
 
Search this Thread
Old 08-09-2011, 11:57 PM   #1
shanky
Member
 
Registered: Aug 2011
Posts: 155

Rep: Reputation: Disabled
tcl code for ns2 simulation


hiiii..i am trying to write a code in ns2 where 2 nodes act as access point and a station and exchange of frames take place between them one after the other.Frames like probe req response authentication and association.But for the code i have written the exchange is takin place simultaneously.Below is my code.Can u plz help me out such that frames are transferred one after the other.
Thanks in advance.

#Creating a new Simulator object
set ns [new Simulator]

#Opening file to be used as nam trace file
set nf [open shot.nam w]
$ns namtrace-all $nf

#Finish procedure
proc finish {} {
global ns nf
$ns flush-trace
close $nf
exec nam shot.nam &
exit 0
}

#Defining two nodes
set n0 [$ns node]
set n1 [$ns node]

#Connecting two nodes
$ns duplex-link $n0 $n1 1Mb 10ms DropTail

#CreateUDP agent and connect to node0
set udp0 [new Agent/UDP]
$ns attach-agent $n0 $udp0

#Create CBR traffic source and attach to UDP agent
set cbr0 [new Application/Traffic/CBR]
$cbr0 set packetSize_ 500
$cbr0 set interval_ 1
$cbr0 attach-agent $udp0

set null0 [new Agent/Null]
$ns attach-agent $n1 $null0

$ns connect $udp0 $null0

#CreateUDP agent and connect to node1
set udp1 [new Agent/UDP]
$ns attach-agent $n1 $udp1

#Create CBR traffic source and attach to UDP agent
set cbr1 [new Application/Traffic/CBR]
$cbr1 set packetSize_ 500
$cbr1 set interval_ 1
$cbr1 attach-agent $udp1

set null1 [new Agent/Null]
$ns attach-agent $n0 $null1

$ns connect $udp1 $null1

for {set i 0} {$i < 10} {incr i} {

set q [expr $i%2]
if {$q==0} {
set a i
set b [expr $i+1]
$ns at a "$cbr0 start"
$ns at b "$cbr0 stop"
}
if {$q!=0} {
set a i
set b [expr $i+1]
$ns at a "$cbr1 start"
$ns at b "$cbr1 stop"
}
}

#Stop after 10 seconds
$ns at 10.0 "finish"

#Running simulation
$ns run
 
Old 08-10-2011, 12:29 AM   #2
paulsm4
Guru
 
Registered: Mar 2004
Distribution: SusE 8.2
Posts: 5,863
Blog Entries: 1

Rep: Reputation: Disabled
Please post in only one forum.

And please don't hijack someone else's thread.
 
Old 08-10-2011, 12:57 AM   #3
shanky
Member
 
Registered: Aug 2011
Posts: 155

Original Poster
Rep: Reputation: Disabled
yes. i am sorry about that.my bad !!
 
  


Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
tora simulation does not come to an end in ns2.34 mq15 Linux - Software 3 10-01-2012 01:19 PM
ns2 Wireless simulation Help md_imranullah Programming 1 06-13-2012 03:19 AM
wireless network simulation using ns2 berry123 Linux - Newbie 1 03-10-2011 03:15 AM
NS2 network simulation problem:Change queue parameters dynamically during simulation raeisy Linux - Networking 1 11-21-2010 12:30 PM
weight throwing protocol using ns2 code,diffusion based protocol using ns2 code rajrupa Linux - Networking 1 05-27-2010 04:39 AM


All times are GMT -5. The time now is 09:28 AM.

Main Menu
Advertisement
My LQ
Write for LQ
LinuxQuestions.org is looking for people interested in writing Editorials, Articles, Reviews, and more. If you'd like to contribute content, let us know.
Main Menu
Syndicate
RSS1  Latest Threads
RSS1  LQ News
Twitter: @linuxquestions
identi.ca: @linuxquestions
Facebook: linuxquestions Google+: linuxquestions
Open Source Consulting | Domain Registration