Компьютерные сети (стр. 11 )

$udp01 set fid_ 2

$ns connect $udp101 $null110

$udp01 set fid_ 2

$ns connect $udp211 $null112

$udp01 set fid_ 2

$ns connect $udp112 $null211

$udp01 set fid_ 2

$ns connect $udp212 $null122

$udp01 set fid_ 2

$ns connect $udp122 $null212

$udp01 set fid_ 2

$ns connect $udp213 $null132

$udp01 set fid_ 2

$ns connect $udp132 $null213

$udp01 set fid_ 2

$ns connect $udp314 $null143

$udp01 set fid_ 2

$ns connect $udp143 $null314

$udp01 set fid_ 2

$ns connect $udp315 $null153

$udp01 set fid_ 2

$ns connect $udp153 $null315

$udp01 set fid_ 2

$ns connect $udp316 $null163

$udp01 set fid_ 2

$ns connect $udp163 $null316

$udp01 set fid_ 2

$ns connect $udp317 $null173

$udp01 set fid_ 2

$ns connect $udp173 $null317

$udp01 set fid_ 2

$ns connect $udp318 $null183

$udp01 set fid_ 2

$ns connect $udp183 $null318

$udp01 set fid_ 2

set cbr01 [new Application/Traffic/CBR]

$cbr01 attach-agent $udp01

$cbr01 set type_ CBR

$cbr01 set packet_size_ 1000

$cbr01 set rate_ 2mb

$cbr01 set random_ false

set cbr10 [new Application/Traffic/CBR]

$cbr10 attach-agent $udp10

$cbr10 set type_ CBR

$cbr10 set packet_size_ 1000

$cbr10 set rate_ 2mb

$cbr10 set random_ false

set cbr12 [new Application/Traffic/CBR]

$cbr12 attach-agent $udp12

$cbr12 set type_ CBR

$cbr12 set packet_size_ 1000

$cbr12 set rate_ 2mb

$cbr12 set random_ false

set cbr21 [new Application/Traffic/CBR]

$cbr21 attach-agent $udp21

$cbr21 set type_ CBR

$cbr21 set packet_size_ 1000

$cbr21 set rate_ 2mb

$cbr21 set random_ false

set cbr23 [new Application/Traffic/CBR]

$cbr23 attach-agent $udp23

$cbr23 set type_ CBR

$cbr23 set packet_size_ 1000

$cbr23 set rate_ 2mb

$cbr23 set random_ false

set cbr32 [new Application/Traffic/CBR]

$cbr32 attach-agent $udp32

$cbr32 set type_ CBR

$cbr32 set packet_size_ 1000

$cbr32 set rate_ 2mb

$cbr32 set random_ false

set cbr30 [new Application/Traffic/CBR]

$cbr30 attach-agent $udp30

$cbr30 set type_ CBR

$cbr30 set packet_size_ 1000

$cbr30 set rate_ 2mb

$cbr30 set random_ false

set cbr03 [new Application/Traffic/CBR]

$cbr03 attach-agent $udp03

$cbr03 set type_ CBR

$cbr03 set packet_size_ 1000

$cbr03 set rate_ 2mb

$cbr03 set random_ false

set cbr04 [new Application/Traffic/CBR]

$cbr04 attach-agent $udp04

$cbr04 set type_ CBR

$cbr04 set packet_size_ 1000

$cbr04 set rate_ 2mb

$cbr04 set random_ false

set cbr40 [new Application/Traffic/CBR]

$cbr40 attach-agent $udp40

$cbr40 set type_ CBR

$cbr40 set packet_size_ 1000

$cbr40 set rate_ 2mb

$cbr40 set random_ false

set cbr05 [new Application/Traffic/CBR]

$cbr05 attach-agent $udp05

$cbr05 set type_ CBR

$cbr05 set packet_size_ 1000

$cbr05 set rate_ 2mb

$cbr05 set random_ false

set cbr50 [new Application/Traffic/CBR]

$cbr50 attach-agent $udp50

$cbr50 set type_ CBR

$cbr50 set packet_size_ 1000

$cbr50 set rate_ 2mb

$cbr50 set random_ false

set cbr06 [new Application/Traffic/CBR]

$cbr06 attach-agent $udp06

$cbr06 set type_ CBR

$cbr06 set packet_size_ 1000

$cbr06 set rate_ 2mb

$cbr06 set random_ false

set cbr60 [new Application/Traffic/CBR]

$cbr60 attach-agent $udp60

$cbr60 set type_ CBR

$cbr60 set packet_size_ 1000

$cbr60 set rate_ 2mb

$cbr60 set random_ false

set cbr07 [new Application/Traffic/CBR]

$cbr07 attach-agent $udp07

$cbr07 set type_ CBR

$cbr07 set packet_size_ 1000

$cbr07 set rate_ 2mb

$cbr07 set random_ false

set cbr70 [new Application/Traffic/CBR]

$cbr70 attach-agent $udp70

$cbr70 set type_ CBR

$cbr70 set packet_size_ 1000

$cbr70 set rate_ 2mb

$cbr70 set random_ false

set cbr18 [new Application/Traffic/CBR]

$cbr18 attach-agent $udp18

$cbr18 set type_ CBR

$cbr18 set packet_size_ 1000

$cbr18 set rate_ 2mb

$cbr18 set random_ false

set cbr81 [new Application/Traffic/CBR]

$cbr81 attach-agent $udp81

$cbr81 set type_ CBR

$cbr81 set packet_size_ 1000

$cbr81 set rate_ 2mb

$cbr81 set random_ false

set cbr19 [new Application/Traffic/CBR]

$cbr19 attach-agent $udp19

$cbr19 set type_ CBR

$cbr19 set packet_size_ 1000

$cbr19 set rate_ 2mb

$cbr19 set random_ false

set cbr91 [new Application/Traffic/CBR]

$cbr91 attach-agent $udp91

$cbr91 set type_ CBR

$cbr91 set packet_size_ 1000

$cbr91 set rate_ 2mb

$cbr91 set random_ false

set cbr110 [new Application/Traffic/CBR]

$cbr110 attach-agent $udp110

$cbr110 set type_ CBR

$cbr110 set packet_size_ 1000

$cbr110 set rate_ 2mb

$cbr110 set random_ false

set cbr101 [new Application/Traffic/CBR]

$cbr101 attach-agent $udp101

$cbr101 set type_ CBR

$cbr101 set packet_size_ 1000

$cbr101 set rate_ 2mb

$cbr101 set random_ false

set cbr211 [new Application/Traffic/CBR]

$cbr211 attach-agent $udp211

$cbr211 set type_ CBR

$cbr211 set packet_size_ 1000

$cbr211 set rate_ 2mb

$cbr211 set random_ false

set cbr112 [new Application/Traffic/CBR]

$cbr112 attach-agent $udp112

$cbr112 set type_ CBR

$cbr112 set packet_size_ 1000

$cbr112 set rate_ 2mb

$cbr112 set random_ false

set cbr212 [new Application/Traffic/CBR]

$cbr212 attach-agent $udp212

$cbr212 set type_ CBR

$cbr212 set packet_size_ 1000

$cbr212 set rate_ 2mb

$cbr212 set random_ false

set cbr122 [new Application/Traffic/CBR]

$cbr122 attach-agent $udp122

$cbr122 set type_ CBR

$cbr122 set packet_size_ 1000

$cbr122 set rate_ 2mb

$cbr122 set random_ false

set cbr213 [new Application/Traffic/CBR]

$cbr213 attach-agent $udp213

$cbr213 set type_ CBR

$cbr213 set packet_size_ 1000

$cbr213 set rate_ 2mb

$cbr213 set random_ false

set cbr132 [new Application/Traffic/CBR]

$cbr132 attach-agent $udp132

$cbr132 set type_ CBR

$cbr132 set packet_size_ 1000

$cbr132 set rate_ 2mb

$cbr132 set random_ false

set cbr314 [new Application/Traffic/CBR]

$cbr314 attach-agent $udp314

$cbr314 set type_ CBR

$cbr314 set packet_size_ 1000

$cbr314 set rate_ 2mb

$cbr314 set random_ false

set cbr143 [new Application/Traffic/CBR]

$cbr143 attach-agent $udp143

$cbr143 set type_ CBR

$cbr143 set packet_size_ 1000

$cbr143 set rate_ 2mb

$cbr143 set random_ false

set cbr315 [new Application/Traffic/CBR]

$cbr315 attach-agent $udp315

$cbr315 set type_ CBR

$cbr315 set packet_size_ 1000

$cbr315 set rate_ 2mb

$cbr315 set random_ false

set cbr153 [new Application/Traffic/CBR]

$cbr153 attach-agent $udp153

$cbr153 set type_ CBR

$cbr153 set packet_size_ 1000

$cbr153 set rate_ 2mb

$cbr153 set random_ false

set cbr316 [new Application/Traffic/CBR]

$cbr316 attach-agent $udp316

$cbr316 set type_ CBR

$cbr316 set packet_size_ 1000

$cbr316 set rate_ 2mb

$cbr316 set random_ false

set cbr163 [new Application/Traffic/CBR]

$cbr163 attach-agent $udp163

$cbr163 set type_ CBR

$cbr163 set packet_size_ 1000

$cbr163 set rate_ 2mb

$cbr163 set random_ false

set cbr317 [new Application/Traffic/CBR]

$cbr317 attach-agent $udp317

$cbr317 set type_ CBR

$cbr317 set packet_size_ 1000

$cbr317 set rate_ 2mb

$cbr317 set random_ false

set cbr173 [new Application/Traffic/CBR]

$cbr173 attach-agent $udp173

$cbr173 set type_ CBR

$cbr173 set packet_size_ 1000

$cbr173 set rate_ 2mb

$cbr173 set random_ false

set cbr318 [new Application/Traffic/CBR]

$cbr318 attach-agent $udp318

$cbr318 set type_ CBR

$cbr318 set packet_size_ 1000

$cbr318 set rate_ 2mb

$cbr318 set random_ false

set cbr183 [new Application/Traffic/CBR]

$cbr183 attach-agent $udp83

$cbr18 set type_ CBR

$cbr183 set packet_size_ 1000

$cbr183 set rate_ 2mb

$cbr183 set random_ false

set sink0 [new Agent/LossMonitor]

$ns attach-agent $n0 $sink0

set sink2 [new Agent/LossMonitor]

$ns attach-agent $n2 $sink2

set sink3 [new Agent/LossMonitor]

$ns attach-agent $n3 $sink3

#Соединим агенты udp0 и udp1 и их получателей

$ns connect $udp09 $sink2

$ns connect $udp90 $sink3

$ns connect $udp01 $sink0

$ns at 0.1 "$cbr01 start"

$ns at 0.1 "$cbr12 start"

$ns at 0.1 "$cbr23 start"

$ns at 0.1 "$cbr30 start"

$ns at 0.5 "$cbr04 start"

$ns at 0.5 "$cbr05 start"

$ns at 0.5 "$cbr06 start"

$ns at 0.5 "$cbr07 start"

$ns at 1.0 "$cbr18 start"

$ns at 1.0 "$cbr19 start"

$ns at 1.0 "$cbr110 start"

$ns at 1.5 "$cbr211 start"

$ns at 1.5 "$cbr212 start"

$ns at 1.5 "$cbr213 start"

$ns at 2.0 "$cbr314 start"

$ns at 2.0 "$cbr315 start"

$ns at 2.0 "$cbr316 start"

$ns at 2.0 "$cbr317 start"

$ns at 2.0 "$cbr318 start"

$ns at 2.5 "$cbr10 start"

$ns at 2.5 "$cbr21 start"

$ns at 2.5 "$cbr32 start"

$ns at 2.5 "$cbr03 start"

$ns at 2.5 "$cbr40 start"

$ns at 2.5 "$cbr50 start"

$ns at 2.5 "$cbr60 start"

$ns at 2.5 "$cbr70 start"

$ns at 2.5 "$cbr81 start"

$ns at 2.5 "$cbr91 start"

$ns at 2.5 "$cbr101 start"

$ns at 2.5 "$cbr112 start"

$ns at 2.5 "$cbr122 start"

$ns at 2.5 "$cbr123 start"

$ns at 2.5 "$cbr143 start"

$ns at 2.5 "$cbr153 start"

$ns at 2.5 "$cbr163 start"

$ns at 2.5 "$cbr173 start"

$ns at 2.5 "$cbr183 start"

$ns at 10.0 "$cbr01 stop"

$ns at 10.0 "$cbr12 stop"

$ns at 10.0 "$cbr23 stop"

$ns at 10.0 "$cbr30 stop"

$ns at 10.0 "$cbr04 stop"

$ns at 10.0 "$cbr05 stop"

$ns at 10.0 "$cbr06 stop"

$ns at 10.0 "$cbr07 stop"

$ns at 10.0 "$cbr18 stop"

$ns at 10.0 "$cbr19 stop"

$ns at 10.0 "$cbr110 stop"

$ns at 10.0 "$cbr211 stop"

$ns at 10.0 "$cbr212 stop"

$ns at 10.0 "$cbr213 stop"

$ns at 10.0 "$cbr314 stop"

$ns at 10.0 "$cbr315 stop"

$ns at 10.0 "$cbr316 stop"

$ns at 10.0 "$cbr317 stop"

$ns at 10.0 "$cbr318 stop"

$ns at 10.0 "$cbr10 stop"

$ns at 10.0 "$cbr21 stop"

$ns at 10.0 "$cbr32 stop"

$ns at 10.0 "$cbr03 stop"

$ns at 10.0 "$cbr40 stop"

$ns at 10.0 "$cbr50 stop"

$ns at 10.0 "$cbr60 stop"

$ns at 10.0 "$cbr70 stop"

$ns at 10.0 "$cbr81 stop"

$ns at 10.0 "$cbr91 stop"

$ns at 10.0 "$cbr101 stop"

$ns at 10.0 "$cbr112 stop"

$ns at 10.0 "$cbr122 stop"

$ns at 10.0 "$cbr123 stop"

$ns at 10.0 "$cbr143 stop"

$ns at 10.0 "$cbr153 stop"

$ns at 10.0 "$cbr163 stop"

$ns at 10.0 "$cbr173 stop"

$ns at 10.0 "$cbr183 stop"

$ns at 0.1 "record"

$ns at 10.5 "finish"

$ns run