AnnaUniversity EC66 Computer Networks Lab - Simulation of Wired Environment Using NS-2

Simulation of Wired Environment Using NS-2:

set ns [new Simulator]

set tr [open out.tr w]

$ns trace-all $tr

set namtr [open out.nam w]

$ns namtrace-all $namtr

set n0 [$ns node]

set n1 [$ns node]

set n2 [$ns node]

set n3 [$ns node]

set n4 [$ns node]

set n5 [$ns node]

$ns color 1 black

$ns color 2 green

$ns duplex-link $n0 $n1 10Mb 5ms DropTail

$ns duplex-link $n2 $n0 10Mb 5ms DropTail

$ns duplex-link $n3 $n0 10Mb 5ms DropTail

$ns duplex-link $n1 $n4 10Mb 5ms DropTail

$ns duplex-link $n1 $n5 10Mb 5ms DropTail

$ns duplex-link-op $n0 $n1 orient right

$ns duplex-link-op $n0 $n2 orient left-up

$ns duplex-link-op $n0 $n3 orient left-down

$ns duplex-link-op $n1 $n4 orient right-up

$ns duplex-link-op $n1 $n5 orient right-down

$ns at 10.0 "$ns halt"

set udp0 [new Agent /UDP]

set tcp1 [new Agent /TCP]

$ns attach-agent $n0 $udp0

$ns attach-agent $n0 $tcp1

set null0 [new Agent /NULL]

set null1 [new Agent /TCPSink]

$ns attach-agent $n4 $null0

$ns attach-agent $n5 $null1

$ns connect $udp0 $null0

$udp0 set fid_ 1

$ns connect $tcp1 $null1

$tcp1 set fid_ 2

set cbr0 [new Application /Traffic /CBR]

set cbr1 [new Application /Traffic /CBR]

$cbr0 attach-agent $udp0

$cbr1 attach-agent $tcp1

$cbr0 set packetsize_ 512

$cbr1 set packetsize_ 512

$cbr0 set interval_ 0.01

$cbr1 set interval_ 0.01

$ns at 1.0 "$cbr0 start"

$ns at 5.0 "$cbr0 stop"

$ns at 2.0 "$cbr1 start"

$ns at 7.0 "$cbr1 stop"

$ns run