Installation of Openflow MPLS emulator on Ubuntu 10.04

Simple WiFi Scenario using NS2 (Wired cum Wireless Scenario)

# 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)

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.