example1.tcl

对IEEE 802.11e里的分布式信道接入算法EDCA进行改进

#example1.tcl

#create a simulator object
set ns [new Simulator]

#open a file for writing that is used for nam trace data
set nf [open out.nam w]
$ns namtrace-all $nf

#finish procedure that closes the trace file and starts nam
proc finish {} {
         global ns nf
         $ns flush-trace
         close $nf
         exec nam out.nam &
         exit 0
}

#execute the "finish" procedure after 5.0 seconds of simulation time
$ns at 5.0 "finish"

#start the simulation
$ns run