 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
set ns [new Simulator]
|
|
|
$ns use-scheduler List
|
|
set n0 [$ns node]
|
|
|
set n1 [$ns node]
|
|
$ns duplex-link $n0 $n1 1Mb 10ms DropTail
|
|
set cbr0 [new Agent/CBR]
|
|
$ns attach-agent $n0 $cbr0
|
|
|
$cbr0 set packetSize_ 500
|
|
|
$cbr0 set interval_ 0.005
|
|
set null0 [new Agent/Null]
|
|
|
$ns attach-agent $n1 $null0
|
|
$ns connect $cbr0 $null0
|
|
|
$ns
at 0.5 "$cbr0 start"
|
|
|
$ns
at 4.5 "$cbr0 stop"
|
|