mante

mante

set ns [new Simulator]

set nf [open out.nam w]

$ns namtrace-all $nf

set n0 [$ns node]

set n1 [$ns node]

set n2 [$ns node]

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

$ns duplex-link $n1 $n2 1Mb 10ms DropTail

set udp [new Agent/UDP]

$ns attach-agent $n0 $udp

set null [new Agent/Null]

$ns attach-agent $n2 $null

$ns connect $udp $null

set cbr [new Application/Traffic/CBR]

$cbr attach-agent $udp

$cbr set packetSize_ 512

$cbr set interval_ 0.5

$ns at 1.0 "$cbr start"

$ns at 5.0 "$cbr stop"

$ns at 6.0 "finish"

proc finish {} {

global ns nf

$ns flush-trace

close $nf

exec nam out.nam &

exit 0

}

$ns run

Process

Create file

nano manet.tcl

run

ns manet.tcl

#2 manet evealutiing

set ns [new Simulator]

set nf [open out.nam w]

$ns namtrace-all $nf

set tf [open out.tr w]

$ns trace-all $tf

set n0 [$ns node]

set n1 [$ns node]

set n2 [$ns node]

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

$ns duplex-link $n1 $n2 1Mb 10ms DropTail

set udp [new Agent/UDP]

$ns attach-agent $n0 $udp

set null [new Agent/Null]

$ns attach-agent $n2 $null

$ns connect $udp $null

set cbr [new Application/Traffic/CBR]

$cbr attach-agent $udp

$cbr set packetSize_ 512

$cbr set interval_ 0.2

$ns at 1.0 "$cbr start"

$ns at 8.0 "$cbr stop"

proc finish {} {

global ns nf tf

$ns flush-trace

close $nf

close $tf

exec nam out.nam &

exit 0

}

$ns at 9.0 "finish"

$ns run

#%5 dma

Code :

set ns [new Simulator]

set nf [open tdma.nam w]

$ns namtrace-all $nf

set n0 [$ns node]

set n1 [$ns node]

set n2 [$ns node]

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

$ns duplex-link $n1 $n2 1Mb 10ms DropTail

set udp0 [new Agent/UDP]

set udp1 [new Agent/UDP]

set null [new Agent/Null]

$ns attach-agent $n0 $udp0

$ns attach-agent $n1 $udp1

$ns attach-agent $n2 $null

$ns connect $udp0 $null

$ns connect $udp1 $null

set c0 [new Application/Traffic/CBR]

set c1 [new Application/Traffic/CBR]

$c0 attach-agent $udp0

$c1 attach-agent $udp1

$c0 set interval_ 0.5

$c1 set interval_ 0.5

$ns at 1.0 "$c0 start"

$ns at 1.5 "$c1 start"

$ns at 4.0 "$c0 stop"

$ns at 4.5 "$c1 stop"

proc finish {} {

global ns nf

$ns flush-trace

close $nf

exec nam tdma.nam &

exit 0

}

$ns at 5.0 "finish"

$ns run

#7 enegry save mante

set ns [new Simulator]

set nf [open energy.nam w]

$ns namtrace-all $nf

set n0 [$ns node]

set n1 [$ns node]

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

$n0 energyModel EnergyModel

$n0 initialEnergy 100

$n1 energyModel EnergyModel

$n1 initialEnergy 100

set udp [new Agent/UDP]

$ns attach-agent $n0 $udp

set null [new Agent/Null]

$ns attach-agent $n1 $null

$ns connect $udp $null

set cbr [new Application/Traffic/CBR]

$cbr attach-agent $udp

$cbr set packetSize_ 512

$cbr set interval_ 0.5

$ns at 1.0 "$cbr start"

$ns at 5.0 "$cbr stop"

proc finish {} {

global ns nf

$ns flush-trace

close $nf

exec nam energy.nam &

exit 0

}

$ns at 6.0 "finish"

$ns run