topology.tcl

This is a simulator written in Tcl to simulate a network node carrying GSM and GPRS traffics with Qo

# Topology 
#  Video  ----------
#   .       10Mb, 5ms  \        	  
#  VoIP ------------Edge------------GGSN----------SGSN-----------RNC----NodeB--UE(1)....UE(NodeNb)
#   .                  /  10Mb, 5ms       5Mb, 5ms      10Mb, 5ms
#  FTP  ------------
#         10Mb, 5ms

#proc setTopo {num_UE}

#set df [open all_Tx_Rx.out w]
# Set number of nodes, due to EURANE bug, it must be an even number
set num_UE 6

set UE_list     ""
set node_list   ""

# Set routers
set Edge [$ns node]
set GGSN [$ns node]
set SGSN [$ns node]
set RNC  [$ns node]
set NodeB [$ns node]

#set UEs
for {set i 1} {$i <= $num_UE} {incr i} {
    set ue($i) [$ns node]
    set UE_list "[set UE_list] [list ue($i)]"
}

# set application servers
set voipS  [$ns node]
set videoS [$ns node]
set httpS  [$ns node]
set ftpS   [$ns node]

set node_list "[list voipS] [list videoS] [list httpS] [list ftpS] [list Edge] [list GGSN] [list SGSN]\
                 [list RNC] [list NodeB] "

puts "$num_UE UMTS UEs: [set UE_list]"
puts "Network nodes: [set node_list]"

# Edge to GGSN
$ns simplex-link $Edge $GGSN 10.0Mb 15ms DropTail
$ns simplex-link $GGSN $Edge 10.0Mb 15ms DropTail

# Set links between routers (core-links)
  # Bottle-neck link: GGSN-SGSN
$ns simplex-link $GGSN $SGSN 1.5Mb 15ms dsRED/core
$ns simplex-link $SGSN $GGSN 1.5Mb 15ms DropTail

  # Rest of the core routers (DropTail)
$ns duplex-link $SGSN $RNC 10.0Mb 10ms DropTail
$ns duplex-link $RNC $NodeB 10.0Mb 10ms DropTail

# Set links between servers and Edge router
$ns simplex-link $voipS $Edge  10.0Mb 10ms dsRED/edge
$ns simplex-link $Edge  $voipS 10.0Mb 10ms DropTail

$ns simplex-link $videoS $Edge 10.0Mb 10ms dsRED/edge 
$ns simplex-link $Edge   $videoS 10.0Mb 10ms DropTail

$ns simplex-link $httpS  $Edge 10.0Mb 10ms dsRED/edge
$ns simplex-link $Edge   $httpS 10.0Mb 10ms DropTail

$ns simplex-link $ftpS  $Edge 10.0Mb 10ms dsRED/edge
$ns simplex-link $Edge  $ftpS 10.0Mb 10ms DropTail


# Set links from NodeB to UEs
for {set i 1} {$i <= $num_UE} {incr i} {
    $ns duplex-link $NodeB $ue($i) 10.0Mb 10ms DropTail
}