TCL script for Random node communication | Random node communication

Description:

This network consists of 9 nodes (C1, C2, C3, C4, R1, R2 R3, R4, ROU1, ROU2 and ROU3). The duplex links between have 1Mbps of bandwidth and 10 ms of delay. Each link uses a DropTail queue. TCP connection between the nodes is randomly made and packet transfer is done over the connection.

File name: “RandomTx.tcl”

#-------Event scheduler object creation--------#

set ns [ new Simulator ]

#----------creating nam objects----------------#

set nf [open RandomTx.nam w]
$ns namtrace-all $nf

#Open the trace file
set nt [open RandomTx.tr w]
$ns trace-all $nt

set proto rlm

#------------COLOR DESCRIPTION---------------#

$ns color 1 dodgerblue
$ns color 2 red
$ns color 3 cyan
$ns color 4 green
$ns color 5 yellow
$ns color 6 black
$ns color 7 magenta
$ns color 8 gold
$ns color 9 red

# --------- CREATING SENDER - RECEIVER - ROUTER NODES-----------#

set C(1) [$ns node]
set C(2) [$ns node]
set C(3) [$ns node]
set C(4) [$ns node]
set R(1) [$ns node]
set R(2) [$ns node]
set R(3) [$ns node]
set R(4) [$ns node]
set ROU(1) [$ns node]
set ROU(2) [$ns node]
set ROU(3) [$ns node]

# --------------CREATING DUPLEX LINK -----------------------#

$ns duplex-link $C(1) $ROU(1) 1Mb 10ms DropTail
$ns duplex-link $C(2) $ROU(1) 500Kb 10ms DropTail
$ns duplex-link $C(3) $ROU(1) 750Kb 10ms DropTail
$ns duplex-link $C(4) $ROU(2) 1Mb 10ms DropTail
$ns duplex-link $R(1) $ROU(1) 1Mb 10ms DropTail
$ns duplex-link $R(2) $ROU(1) 1Mb 10ms DropTail
$ns duplex-link $R(3) $ROU(1) 1Mb 10ms DropTail
$ns duplex-link $R(4) $ROU(3) 1Mb 10ms DropTail

$ns duplex-link $ROU(2) $ROU(1) 1Mb 10ms DropTail
$ns duplex-link $ROU(2) $ROU(3) 1Mb 10ms DropTail
$ns duplex-link $ROU(1) $ROU(3) 1Mb 10ms DropTail

#-------------QUEUE SIZE DESCRIPTION---------------#

$ns queue-limit $ROU(1) $ROU(2) 18
$ns queue-limit $ROU(1) $ROU(3) 18
$ns queue-limit $ROU(2) $ROU(1) 20
$ns queue-limit $ROU(3) $ROU(1) 20

#-----------CREATING ORIENTATION -------------------------#

$ns duplex-link-op $C(1) $ROU(1) orient down
$ns duplex-link-op $C(2) $ROU(1) orient down-right
$ns duplex-link-op $C(3) $ROU(1) orient down-left
$ns duplex-link-op $C(4) $ROU(2) orient up
$ns duplex-link-op $R(1) $ROU(1) orient up
$ns duplex-link-op $R(2) $ROU(1) orient up-right
$ns duplex-link-op $R(3) $ROU(1) orient up-left
$ns duplex-link-op $R(4) $ROU(3) orient down

$ns duplex-link-op $ROU(1) $ROU(2) orient down-right
$ns duplex-link-op $ROU(3) $ROU(2) orient down-right

# --------------LABELLING -----------------------------#

$ns at 0.0 "$C(1) label CL1"
$ns at 0.0 "$C(2) label CL2"
$ns at 0.0 "$C(3) label CL3"
$ns at 0.0 "$C(4) label CL4"
$ns at 0.0 "$R(1) label RC1"
$ns at 0.0 "$R(2) label RC2"
$ns at 0.0 "$R(3) label RC3"
$ns at 0.0 "$R(4) label RC4"
$ns at 0.0 "$ROU(1) label ROU1"
$ns at 0.0 "$ROU(2) label ROU2"
$ns at 0.0 "$ROU(3) label ROU3"

# --------------- CONFIGURING NODES -----------------#

$ROU(1) shape square
$ROU(2) shape square
$ROU(3) shape square

# ----------------QUEUES POSITIONING AND ESTABLISHMENT -------------#

$ns duplex-link-op $ROU(2) $ROU(1) queuePos 0.1
#$ns duplex-link-op $ROU(2) $C(5) queuePos 0.1
$ns duplex-link-op $ROU(3) $ROU(1) queuePos 0.1

#-----SETTING IDENTIFICATION COLORS TO ROUTER-LINKS---------------#

$ns duplex-link-op $ROU(1) $ROU(2) color cyan
$ns duplex-link-op $ROU(1) $ROU(3) color cyan
$ns duplex-link-op $ROU(2) $ROU(3) color cyan

# ----------------ESTABLISHING COMMUNICATION -------------#

#--------------TCP CONNECTION BETWEEN NODES---------------#

$ns at 0.0 "Tranmission"
proc Tranmission {} {
      global C ROU R ns

      set now [$ns now]
      set time 0.75
      set x [expr round(rand()*4)];if {$x==0} {set x 2}
      set y [expr round(rand()*4)];if {$y==0} {set y 3}

      set tcp1 [$ns create-connection TCP $C($x) TCPSink $R($y) 1]
      $ns at $now "$ns trace-annotate \"Time: $now Pkt Transfer between Client($x) Receiver($y)..\""
      $tcp1 set class_ 1
      $tcp1 set maxcwnd_ 16
      $tcp1 set packetsize_ 4000
      $tcp1 set fid_ 1
      set ftp1 [$tcp1 attach-app FTP]
      $ftp1 set interval_ .005
      $ns at $now "$ftp1 start"
      $ns at [expr $now+$time] "$ftp1 stop"
      $ns at [expr $now+$time] "Tranmission"
}




#---------finish procedure--------#

proc finish {} {

               global ns nf nt nf1

               $ns flush-trace
               close $nf
               puts "running nam..."
               exec nam RandomTx.nam &
               exit 0
            }

#Calling finish procedure

$ns at 20.0 "finish"
$ns run

#-----How to run-----#

$ns filename.tcl

#----------Snapshot-----------#

⇓Student Projects⇓

⇑Student Projects⇑