LS.tcl

set ns [new Simulator]
#File openings
set traceFile [open ls.tr w]
$ns trace-all $traceFile


#NAM trace file
set namFile [open out.nam w]
$ns namtrace-all $namFile


proc finish {} {
global ns traceFile namFile
$ns flush-trace
close $traceFile
close $namFile
exec nam out.nam &
exit 0
}

$ns rtproto LS 


#Create Nodes
set node1 [$ns node]
set node2 [$ns node]
set node3 [$ns node]
set node4 [$ns node]
set node5 [$ns node]
set node6 [$ns node]
set node7 [$ns node]
set node8 [$ns node]
set node9 [$ns node]
set node10 [$ns node]

$node1 color red
$node7 color green

#Create node links
$ns duplex-link $node1  $node2  10Mb 8ms DropTail
$ns duplex-link $node2  $node3  10Mb 8ms DropTail
$ns duplex-link $node3  $node4  10Mb 8ms DropTail
$ns duplex-link $node4  $node5  10Mb 8ms DropTail
$ns duplex-link $node5  $node6  10Mb 8ms DropTail
$ns duplex-link $node6  $node7  10Mb 8ms DropTail
$ns duplex-link $node7  $node8  10Mb 8ms DropTail
$ns duplex-link $node8 $node9 10Mb 8ms DropTail
$ns duplex-link $node9 $node10 10Mb 8ms DropTail
$ns duplex-link $node10 $node1 10Mb 8ms DropTail

#UDP Connection node1 to node7 [Agent+NULL]
set udp1 [new Agent/UDP]
$ns attach-agent $node1 $udp1
set null1 [new Agent/Null]
$ns attach-agent $node7 $null1
$ns connect $udp1 $null1
$udp1 set fid_ 1

#CBR over UDP node1 to node7
set cbr1 [new Application/Traffic/CBR]
$cbr1 attach-agent $udp1
$cbr1 set packetSize_ 500
$cbr1 set rate_ 1.5Mb

#Time slots + Launch
$ns at 0.5 "$cbr1 start"

$ns rtmodel-at 2.0 down $node1 $node10
$ns rtmodel-at 5.0 up $node1 $node10
$ns rtmodel-at 7.0 down $node1 $node2
$ns rtmodel-at 7.0 down $node1 $node10
$ns at 9.0 "finish"
$ns run