Installation of Openflow MPLS emulator on Ubuntu 10.04

2011-01-20T23:06:00.000-08:00

Simple WiFi Scenario using NS2 (Wired cum Wireless Scenario)

2011-01-14T05:21:00.000-08:00

# globals and flags
set ns [new Simulator]

$ns color 1 Blue
$ns color 2 Red

#number of nodes
set num_wired_nodes 1
set num_mobile_nodes 1
set num_bs_nodes 1 ;# number of base stations
set num_nodes [expr $num_wired_nodes + $num_mobile_nodes + $num_bs_nodes]
set bs_id $num_wired_nodes

# Parameter for wireless nodes
set opt(chan) Channel/WirelessChannel ;# channel type
set opt(prop) Propagation/TwoRayGround ;# radio-propagation model
set opt(netif) Phy/WirelessPhy ;# network interface type
set opt(mac) Mac/802_11 ;# MAC type
set opt(ifq) Queue/DTail/PriQ ;# interface queue type
set opt(ifqlen) 50
set opt(ll) LL ;# link layer type
set opt(ant) Antenna/OmniAntenna ;# antenna model
set opt(ifqlen) 50 ;# max packet in ifq
set opt(adhocRouting) NOAH ;# routing protocol
set opt(x) 670 ;# X dimension of the topography
set opt(y) 670 ;# Y dimension of the topography

#By ArvinthanG for 802.11b

Antenna/OmniAntenna set Gt_ 1 ;#Transmit antenna gain
Antenna/OmniAntenna set Gr_ 1 ;#Receive antenna gain
Phy/WirelessPhy set L_ 1.0 ;#system Loss Factor
Phy/WirelessPhy set freq_ 2.472e9 ;#channel-13. 2.472GHz

#set up for hierarchical routing
#(needed for routing over a basestation)
$ns node-config -addressType hierarchical
AddrParams set domain_num_ 2 ;# domain number
lappend cluster_num 1 1 ;# cluster number for each domain
AddrParams set cluster_num_ $cluster_num
#lappend eilastlevel $num_wired_nodes [expr $num_mobile_nodes + $num_bs_nodes] ;# number of nodes for each cluster
lappend eilastlevel 1 2
AddrParams set nodes_num_ $eilastlevel

#Open the nam trace file
set nf [open onenode.nam w]
$ns namtrace-all-wireless $nf $opt(x) $opt(y)
set ntr [open onenode.tr w]
$ns trace-all $ntr

set chan [new $opt(chan)]
set topo [new Topography]
$topo load_flatgrid $opt(x) $opt(y)

# Create God
create-god [expr $num_mobile_nodes + $num_bs_nodes]

# creating wired nodes
for {set i 0} {$i < $num_wired_nodes} {incr i} {
set W($i) [$ns node 0.0.$i]
   puts "wired node $i created"
}

# creating base station
$ns node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
   -macType $opt(mac) \
   -ifqType $opt(ifq) \
   -ifqLen $opt(ifqlen) \
   -antType $opt(ant) \
   -propType $opt(prop) \
   -phyType $opt(netif) \
   -channel $chan \
   -topoInstance $topo \
   -wiredRouting ON \
   -agentTrace ON \
   -routerTrace OFF \
   -macTrace ON \
   -movementTrace OFF\

set BS(0) [$ns node 1.0.0]
$BS(0) random-motion 0
puts "Base-Station node $bs_id created"
#provide some co-ord (fixed) to base station node
$BS(0) set X_ 200.0
$BS(0) set Y_ 300.0
$BS(0) set Z_ 0.0

# creating mobile nodes
#$ns node-config -wiredRouting OFF
for {set i 0} {$i < $num_mobile_nodes} {incr i} {
   set wl_node_($i) [$ns node 1.0.[expr $i + 1]]
$wl_node_($i) random-motion 0 ;# disable random motion
   puts "wireless node $i created ..."
   $wl_node_($i) base-station [AddrParams addr2id [$BS(0) node-addr]]
   # $wl_node_($i) set X_ [expr $i * 10]
  # $wl_node_($i) set Y_ [expr $i * 10]
   # $wl_node_($i) set Z_ 0.0
#$wl_node_($i) set X_ [expr $i*20+200.0]
  # $wl_node_($i) set Y_ 340.0
  # $wl_node_($i) set Z_ 0.0

}

$wl_node_(0) set X_ 160
$wl_node_(0) set Y_ 310.0
  $wl_node_(0) set Z_ 0.0

#$wl_node_(1) set X_ 220
#$wl_node_(1) set Y_ 360.0
  #$wl_node_(1) set Z_ 0.0

#$wl_node_(2) set X_ 280.0
# $wl_node_(2) set Y_ 340.0
# $wl_node_(2) set Z_ 0.0

# linking of root to base-station node
$ns duplex-link $W(0) $BS(0) 100Mb 1ms DropTail

# linking of wired nodes to root node
#for {set i 1} {$i < $num_wired_nodes} {incr i} {
# $ns duplex-link $W($i) $W(0) 20Mb 2ms DropTail
#}

#WL-Node -0

set src_udp0 [new Agent/UDP]
$src_udp0 set class_ 2
set dst_udp0 [new Agent/Null]
$ns attach-agent $wl_node_(0) $src_udp0
$ns attach-agent $W(0) $dst_udp0
set app0 [new Application/Traffic/CBR]
$app0 set packetSize_ 400
$app0 set rate_ 240Kb

$app0 attach-agent $src_udp0
$ns connect $src_udp0 $dst_udp0
$ns at 0.0 "$app0 start"

set src_udp1 [new Agent/UDP]
$src_udp1 set class_ 1
set dst_udp1 [new Agent/Null]
$ns attach-agent $wl_node_(0) $src_udp1
$ns attach-agent $W(0) $dst_udp1
set app1 [new Application/Traffic/Exponential]
$app1 set packetSize_ 200
$app1 set rate_ 64kb
$app1 set burst_time_ 500ms
$app1 set idle_time_ 500ms
$app1 attach-agent $src_udp1

$ns connect $src_udp1 $dst_udp1
$ns at 0.0 "$app1 start"

set src_udp2 [new Agent/UDP]
$src_udp2 set class_ 1
set dst_udp2 [new Agent/Null]
$ns attach-agent $wl_node_(0) $src_udp2
$ns attach-agent $W(0) $dst_udp2
set app2 [new Application/Traffic/Exponential]
$app2 set packetSize_ 200
$app2 set rate_ 64kb
$app2 set burst_time_ 500ms
$app2 set idle_time_ 500ms
$app2 attach-agent $src_udp2

$ns connect $src_udp2 $dst_udp2
$ns at 0.0 "$app2 start"

# arvind code

# Define node initial position in nam
#for {set i 0} {$i < $num_mobile_nodes} {incr i} {
# $ns initial_node_pos $wl_node_($i) 20
# }

# Tell nodes when the simulation ends
for {set i 0} {$i < $num_mobile_nodes } {incr i} {
   $ns at 2.0 "$wl_node_($i) reset";
}

$ns at 2.0 "$BS(0) reset";
$ns at 2.0 "$app0 stop"
$ns at 2.0 "$app1 stop"
$ns at 2.0 "$app2 stop"

$ns at 2.1 "puts \"NS EXITING...\" ; $ns halt"

proc stop {} {
   global ns ntr nf
   close $ntr
   close $nf
}

# run the simulation
$ns run

awk code to calculate end to end delay, Number of Dropped Packets in NS2 trace file- Wired Cum Wireless Scenario (Wi-Fi)

2011-01-11T09:26:00.000-08:00

BEGIN {

   seqno = -1;

   droppedPackets = 0;



   count_cbr = 0;

   count_exp = 0;

   drop_cbr = 0;

   drop_exp = 0;

   n_to_n_delay_cbr = 0;

   n_to_n_delay_exp = 0;

   avg_n_to_n_delay_cbr = 0;

   avg_n_to_n_delay_exp = 0;

}

#end-to-end delay

{

#packet delivery ratio

   if(($4 == "AGT") && ($1 == "s") && (seqno < $6)) {

   seqno = $6;


   }





   if(($1 == "s") && ($4 == "AGT") && ($7 == "cbr" )) {

   start_time_cbr[$6] = $2;
   traffic_type[$6] = "cbr";

   } else if(($3 == "1") && ($1 == "r") && ($4 == "0") && ($5 == "cbr")){

   end_time_cbr[$12] = $2;



   } else if(($1 == "D") && ($4 == "IFQ") && ($7 == "cbr")) {

   end_time_cbr[$6] = -1;


   }

   else if(($1 == "s") && ($4 == "AGT") && ($7 == "exp" )) {

   start_time_exp[$6] = $2;
   traffic_type[$6] = "exp";



   }

   else if(($3 == "1") && ($1 == "r") && ($4 == "0") && ($5 == "exp")){

   end_time_exp[$12] = $2;





   } else if(($1 == "D") && ($4 == "IFQ") && ($7 == "exp")) {

   end_time_exp[$6] = -1;




   }

}

END {

   for(i=0; i<=seqno; i++)
   {

   if(traffic_type[i] == "cbr")

   {

   if(end_time_cbr[i] > 0) {

   delay_cbr[i] = end_time_cbr[i] - start_time_cbr[i];

   count_cbr++;
   n_to_n_delay_cbr = n_to_n_delay_cbr + delay_cbr[i];

   }

   else
   {
   drop_cbr++;
   }

   }

   else if (traffic_type[i] == "exp" )

   {

   if(end_time_exp[i] > 0) {

   delay_exp[i] = end_time_exp[i] - start_time_exp[i];

   count_exp++;
   n_to_n_delay_exp = n_to_n_delay_exp + delay_exp[i];


   }
   else
   {
   drop_exp++;
   }

   }


   }
   print "total number of packet generated = " seqno+1;
   print "count video packets = " count_cbr;
   print "count Voice packets = " count_exp;
   avg_n_to_n_delay_cbr = n_to_n_delay_cbr/count_cbr;
   avg_n_to_n_delay_exp = n_to_n_delay_exp/count_exp;

   print "avg delay of Video = " avg_n_to_n_delay_cbr " ""seconds";
   print "avg delay of Voice = " avg_n_to_n_delay_exp " ""seconds";
   print "Number of Dropped Voice Packets = " drop_exp ;
   print "Number of Dropped Video Packets = " drop_cbr ;




}

Do the following before run the awk file

Step 1: grep "^s" x.tr > xs.tr

Step 2: grep "^r" x.tr > xr.tr

Step 2: grep "^D" x.tr > xd.tr

Step 3: Merge xs.tr, xr.tr and xd.tr into single file and then run the above awk code.

Research with Science and Technology

Installation of Openflow MPLS emulator on Ubuntu 10.04

Simple WiFi Scenario using NS2 (Wired cum Wireless Scenario)

awk code to calculate end to end delay, Number of Dropped Packets in NS2 trace file- Wired Cum Wireless Scenario (Wi-Fi)