CN Lab Mannual1

Q1.
Simulate three nodes point-to-point networks with a duplex

link between them. Set the queue size and vary the bandwidth and
find the number of packets dropped.
#===================================
# Initialization
#===================================
#Create a ns simulator
set ns [new Simulator]
#Open the NS trace file

set tracefile [open out.tr w]
$ns trace-all $tracefile
#Open the NAM trace file

set namfile [open out.nam w]
$ns namtrace-all $namfile
#===================================
# Nodes Definition
#===================================
#Create 3 nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
#===================================
# Links Definition
#===================================
#Createlinks between nodes
$ns duplex-link $n0 $n1 10.0Mb 1ms DropTail
$ns queue-limit $n0 $n1 10
#Give node position (for NAM)

#$ns duplex-link-op $n0 $n1 orient right
#######################
#1.to create drop scenario at first node itself ----- >> change
the packet size of application protocol and packet size of
Transport
# layer e.g packet size of cbr =10000 , packet size of tcp =100
#2. Drop at n1 = set queue size ratio to be 5:2 , BWXDelay
between no and n1 = 10Mb X 0.05ms , between n1 and n2 0.05Mb X
100ms
#3 . to count the number of packets dropped grep -c "^d" out.tr
#===================================
# Agents Definition
#===================================
#Setup a TCP connection
set tcp0 [new Agent/TCP]
$ns attach-agent $n0 $tcp0
set sink1 [new Agent/TCPSink]
$ns attach-agent $n2 $sink1
$ns connect $tcp0 $sink1
$tcp0 set packetSize_ 1500
#===================================
# Applications Definition
#===================================
#Setup a CBR Application over TCP connection
set cbr0 [new Application/Traffic/CBR]
$cbr0 attach-agent $tcp0
$cbr0 set packetSize_ 1000
$cbr0 set rate_ 0.1Mb
$cbr0 set random_ null
$ns at 1.0 "$cbr0 start"
$ns at 10.0 "$cbr0 stop"
#===================================
# Termination
#===================================
#Define a 'finish' procedure
proc finish {} {
global ns tracefile namfile
$ns flush-trace
close $tracefile
close $namfile
exec nam out.nam &
exit 0
}
$ns at 10.0 "finish"
$ns run
OUTPUT:-
student@unixlab:~$ gedit 1.tcl
student@unixlab:~$ ns 1.tcl
student@unixlab:~$ grep -c “^d” out.tr

0

8
Q2. Simulate a transmission of ping message over a network

topology consisting of 6 nodes and find the number of packets
dropped due to congestion.


$ns color 1 Red

$ns color 2 Green
#===================================
# Nodes Definition
#===================================
#Create 6 nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
#===================================
# Links Definition
#===================================
$ns duplex-link $n0 $n1 10.0Mb 0.05ms DropTail
## to create congestion and to depict the packet drop

# 1. BW X Delay [n0->n1 10MB X 0.05 ms ,Queue Size =5 ] + [ n1-
>n2 0.05Mb X 100 ms , Queue size =2 ]
# add 4 sends from p0 at 1.0 , similarly add 4 sends from p2
at 1.0 === drop at n1
# repeat the same scenario for p2 , p3 , p4 and p5 to create
congestion scenario

#$ns duplex-link-op $n2 $n3 orient right-down
#$ns duplex-link-op $n3 $n4 orient left
#$ns duplex-link-op $n4 $n5 orient left
Agent/Ping instproc recv {from rtt} {

$self instvar node_
puts "node [$node_ id] received ping answer from
$from with round-trip-time $rtt ms."
}
#===================================
# Agents Definition
#===================================
set p0 [new Agent/Ping]
$ns attach-agent $n0 $p0
$p0 set fid_ 1
set p1 [new Agent/Ping]

$ns attach-agent $n5 $p1
$p1 set fid_ 2
#Connect the two agents

$ns connect $p0 $p1
# Termination
#===================================
proc finish {} {
$ns flush-trace
close $tracefile
close $namfile
exec nam out.nam &
exit 0
}
# to create drop at n1 following sends
$ns at 0.2 "$p0 send"
$ns at 2.0 "finish"
$ns run
OUTPUT:-
student@unixlab:~$ gedit 2.tcl
student@unixlab:~$ ns 2.tcl
node 0 received ping answer from #5 with round-trip-time 227.0 ms.

2
Q3. Simulate an Ethernet LAN using n nodes and set multiple

traffic nodes and plot congestion window for different
source/destination


## The code you need to add –Change 1

set winFile0 [open WinFile0 w]
set winFile1 [open WinFile1 w]
#===================================
# Nodes Definition
#===================================
#Create 6 nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
#===================================
# Links Definition
#===================================
$ns simplex-link $n2 $n3 10.0Mb 1ms DropTail
$ns simplex-link $n3 $n2 10.0Mb 1ms DropTail

$ns duplex-link-op $n0 $n2 orient right-down
$ns duplex-link-op $n1 $n2 orient right-up
$ns simplex-link-op $n2 $n3 orient right
$ns simplex-link-op $n3 $n2 orient left
## change 2 –setting up the lan

set lan [$ns newLan "$n3 $n4 $n5" 0.5Mb 40ms LL Queue/DropTail
MAC/802_3 Channel]
#===================================
# Agents Definition
#===================================
#Setup a TCP/Newreno connection

set tcp0 [new Agent/TCP/Newreno]
$tcp0 set window 5000 # change 3 –set the tcp window size
#Setup a TCP/Newreno connection

set tcp1 [new Agent/TCP/Newreno]
$tcp1 set window 500 # change 4 –set the tcp window size
#===================================
#===================================
#Setup a FTP Application over TCP/Newreno connection
set ftp0 [new Application/FTP]
$ftp0 attach-agent $tcp0
$ns at 1.0 "$ftp0 start"
$ns at 10.0 "$ftp0 stop"
#Setup a FTP Application over TCP/Newreno connection

# change 4 –setting up error model between $n2 $ n3 in random

fashion
set var [new ErrorModel]
$var ranvar [new RandomVariable/Uniform]
$var drop-target [new Agent/Null]
$ns lossmodel $var $n2 $n3
#===================================
# Termination
#===================================
proc finish {} {
$ns flush-trace
close $tracefile
close $namfile
exec nam out.nam &
exec xgraph WinFile0 WinFile1 & # change 5 executing x-
graph
exit 0
}
# change 6 adding plot window function

proc PlotWindow {tcpSource file} {
global ns
set time 0.1 # increment =0.1
set now [$ns now] # it will set now -> current time
set cwnd [$tcpSource set cwnd_] # set the window of tcp to tcp1 &
tcp2
puts $file "$now $cwnd" # file contains 2 values time &
Congestion #Window
$ns at [expr $now+$time] "PlotWindow $tcpSource $file"
}
# change 7 schedule it
$ns at 0.1 "PlotWindow $tcp0 $winFile0"
$ns at 0.1 "PlotWindow $tcp1 $winFile1"
$ns at 10.0 "finish"
$ns run
Q4.Simulate simple ESS with transmitting nodes in wireless LAN by

simulation and determine the performance w.r.t transmission of
packets
#setup trace support by opening file lab4.tr and call the

procedure trace-all
set tf [open lab4.tr w]
$ns trace-all $tf
#create a topology object that keeps track of movements of mobile

nodes within the topological boundary.
set topo [new Topography]
$topo load_flatgrid 1000 1000
set nf [open lab4.nam w]

$ns namtrace-all-wireless $nf 1000 1000
# creating a wireless node you MUST first select (configure) the

node configuration parameters to "become" a wireless node.
$ns node-config -adhocRouting DSDV \
-llType LL \
-macType Mac/802_11 \
-ifqType Queue/DropTail \
-ifqLen 50 \
-phyType Phy/WirelessPhy \
-channelType Channel/WirelessChannel \
-propType Propagation/TwoRayGround \
-antType Antenna/OmniAntenna \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON
# Create god object

create-god 3
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
$n0 label "tcp0"

$n1 label "sink1/tcp1"
$n2 label "sink2"
$n0 set X_ 50
$n0 set Y_ 50
$n0 set Z_ 0
$n1 set X_ 100
$n1 set Y_ 100
$n1 set Z_ 0
$n2 set X_ 600
$n2 set Y_ 600
$n2 set Z_ 0
$ns at 0.1 "$n0 setdest 50 50 15"

$ns at 0.1 "$n1 setdest 100 100 25"
$ns at 0.1 "$n2 setdest 600 600 25"

$ns at 5 "$ftp0 start"
$ns at 5 "$ftp1 start"
$ns at 100 "$n1 setdest 550 550 15"

$ns at 190 "$n1 setdest 70 70 15"
proc finish { } {
global ns nf tf
$ns flush-trace
exec nam lab4.nam &
close $tf
exit 0
}
$ns at 250 "finish"
$ns run
awk file:
BEGIN{
count1=0
count2=0
pack1=0
pack2=0
time1=0
time2=0
}
{
if($1 == "r" && $3 == "_1_" && $4 == "AGT")
{
count1++
pack1=pack1+$8
time1=$2
}
if($1 == "r" && $3 == "_2_" && $4 =="AGT")
{
count2++
pack2=pack2+$8
time2=$2
}
}
END{
printf("The Throughput from n0 to n1: %f Mbps \n",
((count1*pack1*8)/(time1*1000000)));
((count2*pack2*8)/(time2*1000000)));
}
Q5. Implement and study the performance of GSM on NS2/NS3 (Using MAC
layer) or equivalent environment.
#===================================
# Initialization
#===================================
#Setup topography object

set topo [new Topography]
$topo load_flatgrid 1052 600
create-god 6


$ns namtrace-all-wireless $namfile 1052 600
set chan [new Channel/WirelessChannel];#Create wireless channel
#===================================
# Mobile node parameter setup
#===================================
$ns node-config -adhocRouting AODV \
-llType LL \
-macType Mac/802_11 \
-ifqType Queue/DropTail/PriQueue \
-ifqLen 50 \
-antType Antenna/OmniAntenna \
-propType Propagation/TwoRayGround \
-phyType Phy/WirelessPhy \
-channel Channel/WirelessChannel \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON \
-macTrace ON \
-movementTrace ON
#===================================
# Nodes Definition
#===================================
#Create 6 nodes
set n0 [$ns node]
$n0 set X_ 303
$n0 set Y_ 302
$n0 set Z_ 0.0
$ns initial_node_pos $n0 20
set n1 [$ns node]
$n1 set X_ 527
$n1 set Y_ 301
$n1 set Z_ 0.0
set n2 [$ns node]
$n2 set X_ 748
$n2 set Y_ 300
$n2 set Z_ 0.0
set n3 [$ns node]
$n3 set X_ 952
$n3 set Y_ 299
$n3 set Z_ 0.0
set n4 [$ns node]
$n4 set X_ 228
$n4 set Y_ 500
$n4 set Z_ 0.0
set n5 [$ns node]
$n5 set X_ 305
$n5 set Y_ 72
$n5 set Z_ 0.0
#===================================
# Generate movement
#===================================
$ns at 2 " $n5 setdest 900 72 75 "
#===================================
# Agents Definition
#===================================
#Setup a TCP connection
#===================================
#===================================
#Setup a FTP Application over TCP connection
#===================================
# Termination
#===================================
proc finish {} {
$ns flush-trace
close $tracefile
close $namfile
exec nam out.nam &
exit 0
}
for {set i 0} {$i < 6) } { incr i } {

$ns at 10 "\$n$i reset"
}
$ns at 10 "$ns nam-end-wireless 10)"

$ns at 10 "finish"
$ns run
Awk file
BEGIN{
count1=0
pack1=0
time1=0
}
{
if($1=="r" && $3=="_5_" && $4=="AGT")
{
count1++
pack1=pack1+$8
time1=$2
}
}
END{
((count1*pack1*8)/(time1*1000000)));
}
PART-B
Q7. Write a program for error detecting code using CRC-
CCITT (16- bits).
import java.io.*;
class Crc
{
public static void main(String args[]) throws IOException
{
BufferedReader br=new BufferedReader(new
InputStreamReader(System.in));
int[ ] data;
int[ ]div;
int[ ]divisor;
int[ ]rem;
int[ ] crc;
int data_bits, divisor_bits, tot_length;
System.out.println("Enter number of data bits : ");
data_bits=Integer.parseInt(br.readLine());
data=new int[data_bits];
System.out.println("Enter data bits : ");
for(int i=0; i<data_bits; i++)
data[i]=Integer.parseInt(br.readLine());
System.out.println("Enter number of bits in divisor : ");
divisor_bits=Integer.parseInt(br.readLine());
divisor=new int[divisor_bits];
System.out.println("Enter Divisor bits : ");
for(int i=0; i<divisor_bits; i++)
divisor[i]=Integer.parseInt(br.readLine());
/*
System.out.print("Data bits are : ");
for(int i=0; i< data_bits; i++)
System.out.print(data[i]);
System.out.println();
System.out.print("divisor bits are : ");
for(int i=0; i< divisor_bits; i++)
System.out.print(divisor[i]);
*/
tot_length=data_bits+divisor_bits-1;
div=new int[tot_length];
rem=new int[tot_length];
crc=new int[tot_length];
/*------------------ CRC GENERATION-----------------------*/
for(int i=0;i<data.length;i++)
div[i]=data[i];
System.out.print("Dividend (after appending 0's) are : ");
for(int i=0; i< div.length; i++)
System.out.print(div[i]);
for(int j=0; j<div.length; j++){
rem[j] = div[j];
}
rem=divide(div, divisor, rem);

for(int i=0;i<div.length;i++)
//append dividend and ramainder
{
crc[i]=(div[i]^rem[i]);
}
System.out.println("CRC code : ");
for(int i=0;i<crc.length;i++)
System.out.print(crc[i]);
/*-------------------ERROR DETECTION---------------------*/
System.out.println("Enter CRC code of "+tot_length+" bits : ");
for(int i=0; i<crc.length; i++)
crc[i]=Integer.parseInt(br.readLine());
/*
System.out.print("crc bits are : ");
for(int i=0; i< crc.length; i++)
System.out.print(crc[i]);
*/
for(int j=0; j<crc.length; j++){
rem[j] = crc[j];
}
rem=divide(crc, divisor, rem);
for(int i=0; i< rem.length; i++)
{
if(rem[i]!=0)
{
System.out.println("Error");
break;
}
if(i==rem.length-1)
System.out.println("No Error");
}
System.out.println("THANK YOU.... :)");
}
static int[] divide(int div[],int divisor[], int rem[])
{
int cur=0;
while(true)
{
for(int i=0;i<divisor.length;i++)
rem[cur+i]=(rem[cur+i]^divisor[i]);
while(rem[cur]==0 && cur!=rem.length-1)
cur++;
if((rem.length-cur)<divisor.length)
break;
}
return rem;
}
}
OUTPUT:-
student@unixlab:~$ java Crc
Enter number of data bits :
4
Enter data bits :
1
1
0
1
Enter number of bits in divisor :
17
Enter Divisor bits :
1
0
0
0
1
0
0
0
0
0
0
1
0
0
0
0
1
Dividend (after appending 0's) are : 11010000000000000000

CRC code :
11011101000110101101
Enter CRC code of 20 bits :
1
1
0
1
1
1
0
1
0
0
0
1
1
0
1
0
1
1
0
1
No Error
THANK YOU.... :)
Q8. Write a program to find the shortest path between vertices using bellman-
ford algorithm.
import java.util.Scanner;
public class BellmanFord
{
private int D[];
private int num_ver;
public static final int MAX_VALUE = 999;
public BellmanFord(int num_ver)
{
this.num_ver = num_ver;
D = new int[num_ver + 1];
}
public void BellmanFordEvaluation(int source, int A[][])
{
for (int node = 1; node <= num_ver; node++)
{
D[node] = MAX_VALUE;
}
D[source] = 0;
for (int node = 1; node <= num_ver - 1; node++)
{
for (int sn = 1; sn <= num_ver; sn++)
{
for (int dn = 1; dn <= num_ver; dn++)
{
if (A[sn][dn] != MAX_VALUE)
{
if (D[dn] > D[sn]+ A[sn][dn])
D[dn] = D[sn] + A[sn][dn];
}
}
}
}
{
{
if (A[sn][dn] != MAX_VALUE)
{
if (D[dn] > D[sn]+ A[sn][dn])
System.out.println("The Graph contains negative egde cycle");
}
}
}
for (int vertex = 1; vertex <= num_ver; vertex++)

{
System.out.println("distance of source " + source + " to "+
vertex + " is " + D[vertex]);
}
}
public static void main(String[ ] args)
{
int num_ver = 0;
int source;
Scanner scanner = new Scanner(System.in);
System.out.println("Enter the number of vertices");
num_ver = scanner.nextInt();
int A[][] = new int[num_ver + 1][num_ver + 1];
System.out.println("Enter the adjacency matrix");
{
{
A[sn][dn] = scanner.nextInt();
if (sn == dn)
{
A[sn][dn] = 0;
continue;
}
if (A[sn][dn] == 0)
{
A[sn][dn] = MAX_VALUE;
}
}
}
System.out.println("Enter the source vertex");
source = scanner.nextInt();
BellmanFord b = new BellmanFord (num_ver);
b.BellmanFordEvaluation(source, A);
scanner.close();
}
}
OUTPUT:-
student@unixlab:~$ javac BellmanFord.java

student@unixlab:~$ java BellmanFord
Enter the number of vertices
4
Enter the adjacency matrix
0 5 0 0
5 0 3 4
0 3 0 2
0 4 2 0
Enter the source vertex
2
distance of source 2 to 1 is 5
Q9.Using TCP/IP sockets, write a client – server
program to make the client send the file name and to
make the server send back the contents of the requested
file if present.
Server Side:-
import java.net.*;
import java.io.*;
public class ContentsServer
{
public static void main(String args[]) throws Exception
{
ServerSocket sersock = new ServerSocket(4000);
System.out.println("Server ready for connection");
Socket sock = sersock.accept();
System.out.println("Connection is successful and wating for
chatting");
InputStream istream = sock.getInputStream( );

BufferedReader fileRead =new BufferedReader(new
InputStreamReader(istream));
String fname = fileRead.readLine( );
BufferedReader contentRead = new BufferedReader(new

FileReader(fname) );
OutputStream ostream = sock.getOutputStream( );

PrintWriter pwrite = new PrintWriter(ostream, true);
String str;
while((str = contentRead.readLine()) != null)
{
pwrite.println(str);
}
sock.close();
sersock.close();
pwrite.close();
fileRead.close();
contentRead.close();
}
}
Client Side:-
import java.net.*;
import java.io.*;
public class ContentsClient
{
public static void main( String args[ ] ) throws Exception
{
Socket sock = new Socket( "127.0.0.1", 4000);
System.out.print("Enter the file name");
BufferedReader keyRead = new BufferedReader(new
String fname = keyRead.readLine();
OutputStream ostream = sock.getOutputStream( );
PrintWriter pwrite = new PrintWriter(ostream, true);
pwrite.println(fname);
InputStream istream = sock.getInputStream();
BufferedReader socketRead = new BufferedReader(new
InputStreamReader(istream));
String str;
while((str = socketRead.readLine()) != null)
{
System.out.println(str);
}
pwrite.close();
socketRead.close();
keyRead.close();
}
}
OUTPUT:-
student@unixlab:~$ javac ContentsServer.java

student@unixlab:~$ java ContentsServer
Server ready for connection
Connection is successful and wating for chatting
student@unixlab:~$ javac ContentsClient.java
student@unixlab:~$ java ContentsClient
Enter the file name
abc.txt
TCP is Reliable Protocol
Q10. Write a program on datagram socket for client/server to display the

messages on client side, typed at the server side.
Server Side:-
import java.io.*;
import java.net.*;
class UDPServer {
{
DatagramSocket serverSocket = new DatagramSocket(6789);
byte[] receiveData = new byte[1024];
byte[] sendData = new byte[1024];
while(true)
{
DatagramPacket receivePacket = new DatagramPacket(receiveData,
receiveData.length);
serverSocket.receive(receivePacket);
String sentence = new String(receivePacket.getData());
InetAddress IPAddress = receivePacket.getAddress();
int port = receivePacket.getPort();
System.out.println("enter message to echo:");

BufferedReader inFromUser = new BufferedReader(new
String Sentence = inFromUser.readLine();
sendData = Sentence.getBytes();
DatagramPacket sendPacket = new DatagramPacket(sendData,
sendData.length, IPAddress,port);
serverSocket.send(sendPacket);
}
}
}
Client Side:-
import java.io.*;
import java.net.*;
class UDPClient {
{
DatagramSocket clientSocket = new DatagramSocket();
InetAddress IPAddress = InetAddress.getByName("localhost");
byte[] sendData = new byte[1024];
byte[] receiveData = new byte[1024];
String sentence = "hi";
sendData = sentence.getBytes();
DatagramPacket sendPacket = new DatagramPacket(sendData,
sendData.length, IPAddress,6789);
clientSocket.send(sendPacket);
DatagramPacket receivePacket = new DatagramPacket(receiveData,

receiveData.length);
clientSocket.receive(receivePacket);
String modifiedSentence = new String(receivePacket.getData());
System.out.println("FROM SERVER:" + modifiedSentence);
clientSocket.close();
}
}
OUTPUT:-
student@unixlab:~$ javac UDPServer.java
student@unixlab:~$ java UDPServer
enter message to echo:
TCP is Reliable Protocol
student@unixlab:~$ javac UDPClient.java

student@unixlab:~$ java UDPClient
FROM SERVER:TCP is Reliable Protocol
Q11. Write a program for simple RSA algorithm to

encrypt and decrypt the data.
RSA Key Generation

import java.util.*;
import java.math.BigInteger;
import java.lang.*;
class RSAKeygen
{
public static void main(String[] args)
{
Random r1=new Random(System.currentTimeMillis());
Random r2=new Random(System.currentTimeMillis()*10);
int e=Integer.parseInt(args[0]);
BigInteger p=BigInteger.probablePrime(32, r1);
BigInteger q=BigInteger.probablePrime(32, r2);
BigInteger n=p.multiply(q);
BigInteger p1=p.subtract(new BigInteger("1"));
BigInteger q1=q.subtract(new BigInteger("1"));
BigInteger phi=p1.multiply(q1);
while(true)
{
BigInteger GCD1=phi.gcd(new BigInteger(""+e));
if(GCD1.equals(BigInteger.ONE))
{
break;
}
e++;
}
BigInteger pubkey=new BigInteger(""+e);
BigInteger prvkey=pubkey.modInverse(phi);
System.out.println("public key : "+pubkey+","+n);
System.out.println("private key : "+prvkey+","+n);
}
}
RSA Encryption and Decryption

import java.math.BigInteger;
import java.util.*;
class RSAEncDec
{
{
BigInteger pubkey = new BigInteger(args[0]);
BigInteger prvkey = new BigInteger(args[1]);
BigInteger n = new BigInteger(args[2]);
int m=Integer.parseInt(args[3]);
BigInteger val=new BigInteger(""+m);
BigInteger cipher=val.modPow(pubkey,n);
System.out.println("Cipher text: " + cipher);
BigInteger plain=cipher.modPow(prvkey,n);
int plainVal=plain.intValue();
System.out.println("Plain text:" + plainVal);
}
}
OUTPUT:-
student@unixlab:~$ javac RSAKeygen.java
student@unixlab:~$ java RSAKeygen 20
public key : 23,5986689899622219251
private key : 2602908649882022327,5986689899622219251
student@unixlab:~$ java RSAEncDec 23
2602908649882022327 5986689899622219251 97
Cipher text: 1144628385513821454
Plain text:97
Q12. Write a program for congestion control using leaky

bucket algorithm.
import java.util.*;
public class leaky
{
{
Scanner my = new Scanner(System.in);
int no_groups,bucket_size;
System.out.print("\n Enter the bucket size : \t");
bucket_size = my.nextInt();
System.out.print("\n Enter the no of groups : \t");
no_groups = my.nextInt();
int no_packets[] = new int[no_groups];
int in_bw[] = new int[no_groups];
int out_bw,reqd_bw=0,tot_packets=0;
for(int i=0;i<no_groups;i++)
{
System.out.print("\n Enter the no of packets for
group " + (i+1) + "\t");
no_packets[i] = my.nextInt();
System.out.print("\n Enter the input bandwidth for
the group " + (i+1) + "\t");
in_bw[i] = my.nextInt();
if((tot_packets+no_packets[i])<=bucket_size)
{
tot_packets += no_packets[i];
}
else
{
do
{
System.out.println(" Bucket Overflow ");
System.out.println(" Enter value less than " +
(bucket_size-tot_packets));
no_packets[i] = my.nextInt();
}while((tot_packets+no_packets[i])>bucket_size);
tot_packets += no_packets[i];
}
reqd_bw += (no_packets[i]*in_bw[i]);
} System.out.println("\nThe total required bandwidth is
" + reqd_bw);
System.out.println("Enter the output bandwidth ");
out_bw = my.nextInt();
int temp=reqd_bw;
int rem_pkts = tot_packets;
while((out_bw<=temp)&&(rem_pkts>0))
{
System.out.println("Data Sent \n" + (--rem_pkts) + "
packets remaining");
System.out.println("Remaining Bandwidth " + (temp -=
out_bw));
if((out_bw>temp)&&(rem_pkts>0))
System.out.println(rem_pkts + " packet(s)
discarded due to insufficient bandwidth");
}
}
}
OUTPUT:-
student@unixlab:~$ gedit leaky.java
student@unixlab:~$ javac leaky.java
student@unixlab:~$ java leaky
Enter the bucket size : 10
Enter the no of groups : 2
Enter the no of packets for group 1 5
Enter the input bandwidth for the group 1 3
The total required bandwidth is 30

Enter the output bandwidth
2
Data Sent
9 packets remaining
Remaining Bandwidth 28
Data Sent
8 packets remaining
Data Sent
7 packets remaining
Data Sent
6 packets remaining
Data Sent
5 packets remaining
Data Sent
4 packets remaining
Data Sent
3 packets remaining
Data Sent
2 packets remaining
Data Sent
1 packets remaining
Data Sent
0 packets remaining
student@unixlab:~$ java leaky

Enter the bucket size : 10
Enter the no of groups : 2

Bucket Overflow
Enter value less than 5
5
The total required bandwidth is 30
Enter the output bandwidth
4
Data Sent
9 packets remaining
Data Sent
8 packets remaining
Data Sent
7 packets remaining
Data Sent
6 packets remaining
Data Sent
5 packets remaining
Data Sent
4 packets remaining
Data Sent
3 packets remaining
3 packet(s) discarded due to insufficient bandwidth

CN Lab Mannual1

Uploaded by

Copyright:

Available Formats

CN Lab Mannual1

Uploaded by

Document Information

Original Description:

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

CN Lab Mannual1

Uploaded by

Copyright:

Available Formats

Q1.

Simulate three nodes point-to-point networks with a duplex

#Open the NS trace file

#Open the NAM trace file

#Give node position (for NAM)

$ns at 10.0 "finish"

student@unixlab:~$ grep -c “^d” out.tr

student@unixlab:~$ grep -c “^d” out.tr

Q2. Simulate a transmission of ping message over a network

#Open the NS trace file

#Open the NAM trace file

$ns color 1 Red

## to create congestion and to depict the packet drop

#Give node position (for NAM)

Agent/Ping instproc recv {from rtt} {

$p0 set fid_ 1

set p1 [new Agent/Ping]

$p1 set fid_ 2

#Connect the two agents

student@unixlab:~$ grep -c “^d” out.tr

Q3. Simulate an Ethernet LAN using n nodes and set multiple

set ns [new Simulator]

#Open the NS trace file

#Open the NAM trace file

## The code you need to add –Change 1

#Give node position (for NAM)

## change 2 –setting up the lan

#Setup a TCP/Newreno connection

#Setup a TCP/Newreno connection

#Setup a FTP Application over TCP/Newreno connection

# change 4 –setting up error model between $n2 $ n3 in random

# change 6 adding plot window function

Q4.Simulate simple ESS with transmitting nodes in wireless LAN by

set ns [new Simulator]

#setup trace support by opening file lab4.tr and call the

#create a topology object that keeps track of movements of mobile

set nf [open lab4.nam w]

# creating a wireless node you MUST first select (configure) the

# Create god object

$n0 label "tcp0"

$ns at 0.1 "$n0 setdest 50 50 15"

set tcp0 [new Agent/TCP]

$ns at 100 "$n1 setdest 550 550 15"

#Setup topography object

#Open the NS trace file

#Open the NAM trace file

for {set i 0} {$i < 6) } { incr i } {

$ns at 10 "$ns nam-end-wireless 10)"

rem=divide(div, divisor, rem);

Dividend (after appending 0's) are : 11010000000000000000

for (int vertex = 1; vertex <= num_ver; vertex++)

student@unixlab:~$ javac BellmanFord.java

InputStream istream = sock.getInputStream( );

BufferedReader contentRead = new BufferedReader(new

OutputStream ostream = sock.getOutputStream( );

student@unixlab:~$ javac ContentsServer.java

Q10. Write a program on datagram socket for client/server to display the

System.out.println("enter message to echo:");