Hi, my tcl script.... 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 Mac/802_11 set dataRate_ 11Mb ;# Data Rate 11 Mbps Mac/802_11 set basicRate_ 1Mb ;# Basic Rate 1 Mbps Mac/802_11 set SlotTime_ 0.000020 ;# 20us Mac/802_11 set sifs_ 0.000010 ;# 10us Mac/802_11 set PreambleLenght_ 144 ;# 144 bits Mac/802_11 set PLCPHeaderLength_ 48 ;# 48 bits Mac/802_11 set PLCPDataRate_ 1Mb ;# 1Mbps
set val(ifq) Queue/DropTail ;# interface queue type/PriQueue set val(ll) LL ;# link layer type set val(ant) Antenna/OmniAntenna ;# antenna model set val(ifqlen) 10 ;# max packet in ifq set val(nn) 2 ;# number of mobilenodes set val(rp) DSDV ;# routing protocol DSDV set ns [new Simulator] $ns color 0 blue $ns color 1 red # set up topography object set topo [new Topography] $topo load_flatgrid 400 200 #Open the trace file set tf [open out.tr w] #$ns use-newtrace $ns trace-all $tf #Open the nam trace file set nf [open out.nam w] $ns namtrace-all-wireless $nf 400 200 # Create God create-god $val(nn) Agent/DSDV set perup_ 15000000 ;# ~ infinite periodic update $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 OFF \ -agentTrace ON \ -routerTrace OFF \ -macTrace ON \ -movementTrace OFF # Create and configure nodes set nodeA [$ns node] $nodeA random-motion 0 $nodeA set X_ 100.0 $nodeA set Y_ 100.0 $nodeA set Z_ 0.0 set nodeB [$ns node] $nodeB random-motion 0 $nodeB set X_ 300.0 $nodeB set Y_ 100.0 $nodeB set Z_ 0.0 $ns at 0.0 "$nodeA setdest 100.0 100.0 0.0" $ns at 0.0 "$nodeB setdest 300.0 100.0 0.0" # Setup UDP Connection set udpA [new Agent/UDP] $ns attach-agent $nodeA $udpA $udpA set packetSize_ 1024 set udpSinkB [new Agent/Null] $ns attach-agent $nodeB $udpSinkB $ns connect $udpA $udpSinkB # Setup CBR over UDP Connection set cbrA [new Application/Traffic/CBR] $cbrA attach-agent $udpA $cbrA set type_ CBR $cbrA set packetSize_ 1004 $cbrA set rate_ 11Mb $cbrA set random_ false # Schedule simulation events $ns at 1.0 "$cbrA start" $ns at 31.0 "$cbrA stop" $ns at 31.0000001 "stop" $ns at 31.0000002 "puts \"NS EXITING...\" ; $ns halt" proc stop {} { global ns tf nf $ns flush-trace close $nf close $tf exit 0 } puts "Starting Simulation..." $ns run _________________________________________________________________ Customise your home page with RSS feeds at MSN Ireland! http://ie.msn.com/