Hi Emma,
You are using a new trace format. Please refer to http://nsnam.isi.edu/nsnam/index.php/NS-2_Trace_Formats for more information. Best Regards, Teerawat Issariyakul http://www.ns2ultimate.com/ http://www.facebook.com/pages/Teerawat-Issariyakul/358240861417 http://twitter.com/T_Bear http://www.t-issariyakul.blogspot.com http://www.ece.ubc.ca/~teerawat On 4/12/2010, "Emma Ch" <[email protected]> wrote: > >I >am trying to construt a wireless tcl script that generates voice >traffic "voip", i use this tcl script but the trace file hasn't the >same contents as the trace file for "simple-wireless.tcl". >I explain more: >I use this tcl script > >-----------------------------------------tcl >script-------------------------------------- >set ns [new Simulator] ># choix des couleurs: >$ns color 0 blue >$ns color 1 red >$ns color 2 green >$ns color 3 red >$ns color 4 orange >$ns color 5 blue >$ns color 6 green >$ns color 7 black >$ns color 8 orange >$ns color 9 blue > > ># les dix noeuds: >set n0 [$ns node] >set n1 [$ns node] >set n2 [$ns node] >set n3 [$ns node] >set n4 [$ns node] >set n5 [$ns node] >set n6 [$ns node] >set n7 [$ns node] >set n8 [$ns node] >set n9 [$ns node] > > > ># création des outputs > trace et nam: >set f [open emna.tr w] >$ns trace-all $f >set nf [open emna.nam w] >$ns namtrace-all $nf ># ====================================================================== ># Define options ># ====================================================================== >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(rp) DumbAgent > ;# routing protocol >set val(start) 0.0 >set val(ifqlen) 50 ;# max packet in ifq >set val(nn) 10 >set val(tr) "trace" >set val(X) 500 >set val(Y) 500 >set val(CWmin) 16 >set val(CWmax) 1024 >set val(SlotTime) 0.000009 >set > val(SIFS) 0.000016 >set val(basicRate) 2Mb >set val(dataRate) 54Mb >#------------------------------------------------------------------------ ># Codec: G.711 >#------------------------------------------------------------------------ >#set val(ON) 1500ms >#set val(OFF) 1500ms >#set val(AppRate) 96Kb >set val(pktsize) 160 >set val(pktinterval) 0.020 >set val(run) 50.0 > >#------------------------------------------------------------------------ ># MAC > MIB >#------------------------------------------------------------------------ >Mac/802_11 set basicRate $val(basicRate)Mb >Mac/802_11 set dataRate $val(dataRate)Mb >Mac/802_11 set CWMin $val(CWmin) >Mac/802_11 set CWMax $val(CWmax) >Mac/802_11 set SlotTime $val(SlotTime) >Mac/802_11 set SIFS $val(SIFS) ># set up topography object >set > topo [new Topography] >#$topo load_flatgrid $val(X) $val(Y) > ># Create God >create-god $val(nn) > ># configure node > > > $ns node-config -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 OFF \ > > -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 > > } > ># connection des noeuds entre eux: ># $ns simple-link (duplex-link) $n0 > $n1 <bandwidth> <delay> <queue_type> >$ns duplex-link $n0 $n1 2Mb 2ms DropTail >$ns duplex-link $n0 $n2 2Mb 2ms DropTail >$ns duplex-link $n0 $n3 2Mb 2ms DropTail >$ns duplex-link $n0 $n4 2Mb 2ms DropTail >$ns duplex-link $n0 $n5 2Mb 2ms DropTail >$ns duplex-link $n0 $n6 2Mb 2ms DropTail >$ns duplex-link $n0 $n7 2Mb 2ms DropTail >$ns duplex-link $n0 $n8 2Mb 2ms DropTail >$ns duplex-link $n0 $n9 2Mb 2ms DropTail > ># la création de l'"agent" / set ... [new Agent/type] >set rtp0 [new Agent/RTP] ># communication agent-network ($ns attach-agent $node $agent) >$ns attach-agent $n0 $rtp0 ># la création de l'application / set ... [new Application/type] >set cbr0 [new Application/Traffic/CBR] >$cbr0 attach-agent $rtp0 > >set rtp1 [new Agent/RTP] >$ns attach-agent $n1 $rtp1 >$rtp1 set class_ 1 >set cbr1 [new Application/Traffic/CBR] >$cbr1 attach-agent $rtp1 > >set rtp2 [new Agent/RTP] >$ns > attach-agent $n2 $rtp2 >$rtp1 set class_ 2 >set cbr2 [new Application/Traffic/CBR] >$cbr2 attach-agent $rtp2 > >set rtp3 [new Agent/RTP] >$ns attach-agent $n3 $rtp3 >$rtp3 set class_ 3 >set cbr3 [new Application/Traffic/CBR] >$cbr3 attach-agent $rtp3 > >set rtp4 [new Agent/RTP] >$ns attach-agent $n4 $rtp4 >$rtp4 set class_ 4 >set cbr4 [new Application/Traffic/CBR] >$cbr4 attach-agent $rtp4 > >set rtp5 [new Agent/RTP] >$ns attach-agent $n5 $rtp5 >$rtp4 set class_ 5 >set cbr5 [new Application/Traffic/CBR] >$cbr5 attach-agent $rtp5 > >set rtp6 [new Agent/RTP] >$ns attach-agent $n6 $rtp6 >$rtp6 set class_ 6 >set cbr6 [new Application/Traffic/CBR] >$cbr6 attach-agent $rtp6 > >set rtp7 [new Agent/RTP] >$ns attach-agent $n7 $rtp7 >$rtp6 set class_ 7 >set cbr7 [new Application/Traffic/CBR] >$cbr7 attach-agent $rtp7 > >set rtp8 [new Agent/RTP] >$ns attach-agent $n8 $rtp8 >$rtp6 set class_ > 8 >set cbr8 [new Application/Traffic/CBR] >$cbr8 attach-agent $rtp8 > >set rtp9 [new Agent/RTP] >$ns attach-agent $n9 $rtp9 >$rtp9 set class_ 9 >set cbr9 [new Application/Traffic/CBR] >$cbr9 attach-agent $rtp9 > > >set null0 [new Agent/Null] >$ns attach-agent $n0 $null0 >$ns attach-agent $n1 $null0 >$ns attach-agent $n2 $null0 >$ns attach-agent $n3 $null0 >$ns attach-agent $n4 $null0 >$ns attach-agent $n5 $null0 >$ns attach-agent $n6 $null0 >$ns attach-agent $n7 $null0 >$ns attach-agent $n8 $null0 >$ns attach-agent $n9 $null0 > ># c'est la relation (sending-receiving) ($ns connect $s_agent $r_agent) >$ns connect $rtp0 $null0 >$ns connect $rtp1 $null0 >$ns connect $rtp2 $null0 >$ns connect $rtp3 $null0 >$ns connect $rtp4 $null0 >$ns connect $rtp5 $null0 >$ns connect $rtp6 $null0 >$ns connect $rtp7 $null0 >$ns connect $rtp8 $null0 >$ns connect $rtp9 $null0 > > >$ns at 0.1 "$cbr0 > start" >$ns at 0.1 "$cbr1 start" >$ns at 0.1 "$cbr2 start" >$ns at 0.1 "$cbr3 start" >$ns at 0.1 "$cbr4 start" >$ns at 0.1 "$cbr5 start" >$ns at 0.1 "$cbr6 start" >$ns at 0.1 "$cbr7 start" >$ns at 0.1 "$cbr8 start" >$ns at 0.1 "$cbr9 start" > ># pour notre cas sans tcp :) >#set tcp [new Agent/TCP] >#$tcp set class_ 2 >#set sink [new Agent/TCPSink] >#$ns attach-agent $n0 $tcp >#$ns attach-agent $n3 $sink >#$ns connect $tcp $sink >#set ftp [new Application/FTP] >#$ftp attach-agent $tcp >#$ns at 1.2 "$ftp start" > > >puts [$cbr0 set packetSize_] >puts [$cbr0 set interval_] > >$ns at 3.0 "finish" > >proc finish {} { > global ns f nf > $ns flush-trace > close $f > close $nf > > puts "running nam..." > exec nam emna.nam & > exit 0 >} > >$ns run > > >-----------------------------------------end of tcl >script------------------------------------- > > >the nam output works well, the trace file has this format > >+ 0.1 0 9 cbr 210 ------- 0 0.0 9.1 1 0 >- 0.1 0 9 cbr 210 ------- 0 0.0 9.1 1 0 >+ 0.1 1 0 cbr 210 ------- 2 1.0 9.1 1 1 >- 0.1 1 0 cbr 210 ------- 2 1.0 9.1 1 1 >+ 0.1 2 0 cbr 210 ------- 0 2.0 9.1 1 2 >- 0.1 2 0 cbr 210 ------- 0 2.0 9.1 1 2 >+ 0.1 3 0 cbr 210 ------- 3 3.0 9.1 1 3 >- 0.1 3 0 cbr 210 ------- 3 3.0 9.1 1 3 > >My problem, that i know that for wirelless simulation , the trace file should >have this format: >s 0.029290548 _1_ RTR --- 0 message 32 [0 0 0 0] ------- [1:255 -1:255 32 0] >s 1.119926192 _0_ RTR --- 1 message 32 [0 0 0 0] ------- [0:255 -1:255 32 0] >s 10.000000000 _0_ AGT --- 2 tcp 40 [0 0 0 0] ------- [0:0 1:0 32 0] [0 0] 0 0 >r 10.000000000 _0_ RTR --- 2 tcp 40 [0 0 0 0] ------- [0:0 1:0 32 0] [0 0] 0 > 0 >s 12.941172739 _1_ RTR --- 3 message 32 [0 0 0 0] ------- [1:255 -1:255 32 0] > > >What's wrong??? >some help please >thanks > > > > >
