wire.tcl

利用ns2网络仿真软件

set val(chan)           Channel/WirelessChannel    ;# channel type
set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
set val(netif)          Phy/WirelessPhy            ;# network interface type
set val(mac)            Mac/802_11                 ;# MAC type
set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
set val(ll)             LL                         ;# link layer type
set val(ant)            Antenna/OmniAntenna        ;# antenna model
set val(ifqlen)         50                       ;# max packet in ifq
set val(nn)             30                        ;# number of mobilenodes
set val(rp)             AODV                       ;# routing protocol
set val(x)              670                        ;# X dimension of the topography
set val(y)              670                        ;# Y dimension of the topography

set ns_ [new Simulator]

set tracefd [open out.tr w]
$ns_ trace-all $tracefd
set namtracefd [open out.nam w]
$ns_ namtrace-all-wireless $namtracefd $val(x) $val(y)
set packetSize 650
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
set god_ [create-god $val(nn)]
$ns_ node-config -addressType def\
		-adhocRouting $val(rp) \
		-llType $val(ll) \
		-macType $val(mac) \
		-ifqType $val(ifq) \
		-ifqLen $val(ifqlen) \
		-antType $val(ant) \
		-propType $val(prop) \
		-phyType $val(netif) \
		-channelType $val(chan) \
		-topoInstance $topo \
		-agentTrace ON \
		-routerTrace ON \
		-macTrace OFF \
		-movementTrace OFF			
			 
for {set i 0} {$i < $val(nn) } {incr i} {
	set node_($i) [$ns_ node]	
	$node_($i) random-motion 0		;# disable random motion
}

source "scene-500-5s-10t"
for {set i 0} {$i < $val(nn)} {incr i} {

    # 20 defines the node size in nam, must adjust it according to your scenario
    # The function must be called after mobility model is defined

    $ns_ initial_node_pos $node_($i) 20
}

set udp1 [new Agent/myUDP]
$ns_ attach-agent $node_(0) $udp1
$udp1 set packetSize_ $packetSize
$udp1 set_filename sd_be
set null1 [new Agent/myUdpSink3] 
$ns_ attach-agent $node_(15) $null1
$ns_ connect $udp1 $null1
$null1 set_trace_filename rd_be

set original_file_name fm_500_11.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_ tracefd namtracefd
	$ns_ flush-trace
	close $tracefd
	close $namtracefd
	#exec nam out.nam &
	exit 0    
}

$ns_ at 0.0 "$video1 start"


$ns_ at [expr $end_sim_time + 0.5] "$video1 stop"
$ns_ at [expr $end_sim_time + 5.0] "$null1 closefile"
for {set i 0} {$i < $val(nn) } {incr i} {
    $ns_ at [expr $end_sim_time + 5.0] "$node_($i) reset";
}
$ns_ at [expr $end_sim_time + 5.0] "finish"

$ns_ run