Program 6

5.     Implement and study the performance of CDMA on NS2/NS3 (Using stack called Call net) or equivalent environment.

3G networks developed as a replacement for second generation (2G) GSM standard network with full duplex voice telephony. CDMA is used as the access method in many mobile phone standards. IS-95, also called cdmaOne, and its 3G evolution CDMA2000, are often simply referred to as CDMA, but UMTS(The Universal Mobile Telecommunications System is a third generation mobile cellular system for networks based on the GSM standard.), the 3G standard used by GSM carriers, also uses wideband CDMA. Long-Term Evolution (LTE) is a standard for high-speed wireless communication which uses CDMA network technology. 3G technology generally refers to the standard of accessibility and speed of mobile devices. The standards of the technology were set by the International Telecommunication Union (ITU). This technology enables use of various services like GPS (Global Positioning System), mobile television and video conferencing. It not only enables them to be used worldwide, but also provides with better bandwidth and increased speed. The main aim of this technology is to allow much better coverage and growth with minimum investment. CDMA can be implemented on all the versions of NS2 (Since year 2004: ns-2.27, and later versions of NS2)

Design:

Dept.

Source Code:

# General Parameters

set stop 100 ;# Stop time.

# Topology

set type cdma ;#type of link:

# AQM parameters

set minth 30 ;

set maxth 0 ;

set adaptive 1 ;# 1 for Adaptive RED, 0 for plain RED

# Traffic generation.

set flows 0 ;# number of long-lived TCP flows

set window 30 ;# window for long-lived traffic

set web 2 ;# number of web sessions

# Plotting statics.

set opt(wrap) 100 ;# wrap plots?

set opt(srcTrace) is ;# where to plot traffic

set opt(dstTrace) bs2 ;# where to plot traffic

#default downlink bandwidth in bps

set bwDL(cdma) 384000

#default uplink bandwidth in bps

set bwUL(cdma) 64000

#default downlink propagation delay in seconds

set propDL(cdma) .150

#default uplink propagation delay in seconds

set propUL(cdma) .150

set ns [new Simulator]

set tf [open out.tr w]

$ns trace-all $tf

set nodes(is) [$ns node]

set nodes(ms) [$ns node]

set nodes(bs1) [$ns node]

set nodes(bs2) [$ns node]

set nodes(lp) [$ns node]

proc cell_topo {} {

global ns nodes

$ns duplex-link $nodes(lp) $nodes(bs1) 3Mbps 10nodes(ms) DropTail

$ns duplex-link $nodes(bs1) $nodes(ms) 1 1 RED

$ns duplex-link $nodes(ms) $nodes(bs2) 1 1 RED

$ns duplex-link $nodes(bs2) $nodes(is) 3Mbps 50nodes(ms) DropTail

puts " cdma Cell Topology"

}

proc set_link_para {t} {

global ns nodes bwUL bwDL propUL propDL buf

$ns bandwidth $nodes(bs1) $nodes(ms) $bwDL($t) duplex

$ns bandwidth $nodes(bs2) $nodes(ms) $bwDL($t) duplex

$ns delay $nodes(bs1) $nodes(ms) $propDL($t) duplex

$ns delay $nodes(bs2) $nodes(ms) $propDL($t) duplex

$ns queue-limit $nodes(bs1) $nodes(ms) 20

$ns queue-limit $nodes(bs2) $nodes(ms) 20

}

# RED and TCP parameters

Queue/RED set adaptive_ $adaptive

Queue/RED set thresh_ $minth

Queue/RED set maxthresh_ $maxth

Agent/TCP set window_ $window

source web.tcl

#Create topology

switch $type {

cdma {cell_topo}

}

set_link_para $type

$ns insert-delayer $nodes(ms) $nodes(bs1) [new Delayer]

$ns insert-delayer $nodes(ms) $nodes(bs2) [new Delayer]

# Set up forward TCP connection

if {$flows == 0} {

set tcp1 [$ns create-connection TCP/Sack1 $nodes(is) TCPSink/Sack1 $nodes(lp) 0]

set ftp1 [[set tcp1] attach-app FTP]

$ns at 0.8 "[set ftp1] start"

}

if {$flows > 0} {

set tcp1 [$ns create-connection TCP/Sack1 $nodes(is) TCPSink/Sack1 $nodes(lp) 0]

set ftp1 [[set tcp1] attach-app FTP]

$tcp1 set window_ 100

$ns at 0.0 "[set ftp1] start"

$ns at 3.5 "[set ftp1] stop"

set tcp2 [$ns create-connection TCP/Sack1 $nodes(is) TCPSink/Sack1 $nodes(lp) 0]

set ftp2 [[set tcp2] attach-app FTP]

$tcp2 set window_ 3

$ns at 1.0 "[set ftp2] start"

$ns at 8.0 "[set ftp2] stop"

}

proc stop {} {

global nodes opt nf

set wrap $opt(wrap)

set sid [$nodes($opt(srcTrace)) id]

set did [$nodes($opt(dstTrace)) id]

set a "out.tr"

set GETRC "../../../bin/getrc"

set RAW2XG "../../../bin/raw2xg"

exec $GETRC -s $sid -d $did -f 0 out.tr | \

$RAW2XG -s 0.01 -m $wrap -r > plot.xgr

exec $GETRC -s $did -d $sid -f 0 out.tr | \

$RAW2XG -a -s 0.01 -m $wrap >> plot.xgr

exec xgraph -x time -y packets plot.xgr &

exit 0

}

$ns at $stop "stop"

$ns run