How do you design a netwok in NS2?

Answer 1

set ns [new Simulator]

set nf [open out.nam w]

$ns namtrace-all $nf

proc finish {} {

global ns nf

$ns flush-trace

exec nam out.nam &

exit 0

}

set n1 [$ns node]

set n2 [$ns node]

set n3 [$ns node]

set n4 [$ns node]

set n5 [$ns node]

set n6 [$ns node]

set n7 [$ns node]

set n8 [$ns node]

set n9 [$ns node]

$ns simplex-link $n1 $n3 10Mb 10ms DropTail

$ns duplex-link $n2 $n3 0.5Mb 15ms DropTail

$ns simplex-link $n3 $n4 40Mb 15ms DropTail

$ns duplex-link $n4 $n5 5Mb 5ms DropTail

$ns duplex-link $n4 $n6 10Mb 10ms DropTail

$ns simplex-link $n4 $n7 25Mb 5ms DropTail

$ns duplex-link $n7 $n8 20Mb 5ms DropTail

$ns duplex-link $n7 $n9 15Mb 5ms DropTail

$ns simplex-link-op $n1 $n3 orient right-down

$ns duplex-link-op $n2 $n3 orient right-up

$ns simplex-link-op $n3 $n4 orient right

$ns duplex-link-op $n4 $n5 orient down

$ns duplex-link-op $n4 $n6 orient up

$ns simplex-link-op $n4 $n7 orient right

$ns duplex-link-op $n7 $n8 orient right-up

$ns duplex-link-op $n7 $n9 orient right-down

$ns simplex-link-op $n1 $n3 color "blue"

$ns duplex-link-op $n2 $n3 color "blue"

$ns simplex-link-op $n3 $n4 color "blue"

$ns duplex-link-op $n4 $n5 color "blue"

$ns duplex-link-op $n4 $n6 color "blue"

$ns simplex-link-op $n4 $n7 color "blue"

$ns duplex-link-op $n7 $n8 color "blue"

$ns duplex-link-op $n7 $n9 color "blue"

$n1 color red

$n2 color red

$n3 color red

$n4 color red

$n5 color red

$n6 color red

$n7 color green

$n8 color green

$n9 color green

$ns at 5.0 "finish"

$ns run