be.tcl

一个264程序在NS2下面的仿真程序。非常好用

set ns [new Simulator]

set nd [open out.tr w]
$ns trace-all $nd

set packetSize	1500

set s1 [$ns node]
set r1 [$ns node]
set r2 [$ns node]
set d1 [$ns node]

$ns duplex-link  $s1 $r1  10Mb 1ms DropTail
$ns simplex-link $r1 $r2  0.3Mb 1ms DropTail
$ns simplex-link $r2 $r2  0.3Mb 1ms DropTail
$ns duplex-link  $r2 $d1  10Mb 1ms DropTail

set qr1r2 [[$ns link $r1 $r2] queue]
$qr1r2 set limit_ 10

set udp1 [new Agent/myUDP]
$ns attach-agent $s1 $udp1
$udp1 set packetSize_ $packetSize
$udp1 set_filename sd_be
set null1 [new Agent/myUdpSink3] 
$ns attach-agent $d1 $null1
$ns connect $udp1 $null1
$null1 set_trace_filename rd_be

set original_file_name foreman_cif.txt
set trace_file_name video1.dat
set original_file_id [open $original_file_name r]
set trace_file_id [open $trace_file_name w]

set frame_count 0
set last_time 0
set pre_time 0

while {[eof $original_file_id] == 0} {

    gets $original_file_id current_line
    scan $current_line "%d%f%d%d" seq nexttime length type

    set time [expr ($nexttime-$pre_time)*1000000.0]

    puts $trace_file_id "$time $length $type"
    set pre_time $nexttime
    incr frame_count
}

close $original_file_id
close $trace_file_id
set end_sim_time $nexttime
puts "$end_sim_time"

set trace_file [new Tracefile]
$trace_file filename $trace_file_name
set video1 [new Application/Traffic/myTrace3]
$video1 attach-agent $udp1
$video1 attach-tracefile $trace_file

proc finish {} {
        global ns nd
        $ns flush-trace
        close $nd
        exit 0
}

$ns at 0.0 "$video1 start"
$ns at [expr $end_sim_time + 0.5] "$video1 stop"
$ns at [expr $end_sim_time + 1.0] "$null1 closefile"
$ns at [expr $end_sim_time + 1.0] "finish"

$ns run