mtp.tcl

ns-2的文件包。多多下载

# Simulation scenarios for modeling wireless links for transport protocols
# Andrei Gurtov
# ICSI/University of Helsinki
#####################################################################
# General Parameters
#####################################################################
set opt(title) zero	;
set opt(seed) -1	;
set opt(stop) 100	;# Stop time.
set opt(ecn) 0		;
#####################################################################
# Topology
#####################################################################
set opt(type) gprs	;#type of link: 
			#gsm gprs umts geo wlan_duplex wlan_ether wlan_complex
set opt(bwUL) 0		;# speed of congested link in kbps
set opt(bwDL) 0		;# speed of congested link in kbps
set opt(propUL) 0	;# uplink delay of congested link in s
set opt(propDL) 0	;# downlink delay of congested link in s
set opt(secondDelay) 55	;# average delay of access links in ms
set opt(rtts) 1		;# 1 for a range of delays for the access links.
set opt(numWebNodes) 10 ;# number of access links for web traffic 
set opt(accessLink) 1   ;# 1 for a range of bandwidth for the access links.
                         # NOT IMPLEMENTED YET
#####################################################################
# AQM parameters
#####################################################################
set opt(minth) 30	;
set opt(maxth) 0	;
set opt(adaptive) 1	;# 1 for Adaptive RED, 0 for plain RED 
set opt(queue) DT       ;# 0 for DropTail
			;# 1 for RED
set opt(qsize) 0	;# Queue size in packets.
#####################################################################
# Traffic generation.
#####################################################################
set opt(pingInt) 0 	;# ping interval, 0 = off
set opt(flows) 1 	;# number of long-lived TCP flows
set opt(shortflows) 0   ;# two short flows in the beginning
set opt(flowsRev) 0 	;# number of reverse long-lived TCP flows
set opt(flowsTfrc) 0 	;# number of long-lived TFRC flows
set opt(webers) 0       ;# number of web users
set opt(window) 30	;# window for long-lived traffic
set opt(smallpkt) 10    ;# inverse of fraction of TCP connections 
                         #    with smaller packets
set opt(reverse) 1	;# reverse-path traffic
set opt(web) 2		;# number of web sessions
set opt(numPage) 10     ;# number of pages per session
set opt(pagesize) 10	;# number of objects per page 
set opt(objSize) 60	;# average size of web object in pkts. 
set opt(shape) 1.05	;# shape parameter for Pareto distribution of web size
			 # a larger parameter means more small objects
set opt(interpage) 1	;# interpage parameter for web traffic generator.
#####################################################################
# Plotting statistics.
#####################################################################
set opt(printRTTs) 0    ;# 1 to print link delays
set opt(quiet)   0 	;# popup anything?
set opt(wrap)    90	;# wrap plots?
set opt(srcTrace) is	;# where to plot traffic
set opt(dstTrace) bs	;# where to plot traffic
#####################################################################
# Link characteristics.
#####################################################################
set opt(delayInt) ""  	; # interval of delays
set opt(delayLen) ""	; # length of delays

set opt(allocLenUL) ""	; # delay of allocating a channel in sec in uplink
set opt(allocHoldUL) ""	; # idle time after channel is released in uplink
set opt(allocLenDL) ""	; #
set opt(allocHoldDL) ""	; #

# currently only in downlink
set opt(bwLowLen) 0	; # length of period of low bandwidth in sec
set opt(bwHighLen) 0	; # length of period of high bandwidth in sec
set opt(bwScale) 0	; # factor by which bandwidth is decreased

# currently only in downlink
set opt(reorderLen) 0	; # reordering delay in sec
set opt(reorderRate) 0	; # per-packet reordering rate

set opt(errUnit) packet		; # unit of errors, per packet or per bit
set opt(errRateUL) 0		; # the rate of errors in uplink 
set opt(errBurstUL) 0		; # coefficient 0..1 of how bursty errors are
set opt(errSlotUL)  0		; # time in sec of low error period
set opt(errRateDL) 0		; # 
set opt(errBurstDL) 0		; # 
set opt(errSlotDL)  0

set opt(vhoTarget) none		; # to which network handover occurs
set opt(vhoTime) 30		; # when handover occurs
set opt(vhoLoss) 0		; # fraction of packets lost during handover
set opt(vhoDelay) 0		; # delay in sec caused by handover

set opt(gprsbuf) 10		; # buffer size for gprs
set opt(wlan_duplex_buf) 10	; # buffer size for wlan_duplex
set opt(nodeDist) 2		; # distance in meters between WLAN nodes
#####################################################################
set opt(tfrcFB) 1		; #number of feedback reports in TFRC per RTT

proc getopt {argc argv} {
        global opt
        for {set i 0} {$i < $argc} {incr i} {
                set arg [lindex $argv $i]
                if {[string range $arg 0 0] != "-"} continue
                set name [string range $arg 1 end]
                set opt($name) [lindex $argv [expr $i+1]]
                puts "opt($name): $opt($name)" 
        }
}

getopt $argc $argv

if {$opt(seed) > -1} {
        puts "Seeding Random number generator with $opt(seed)\n"
        ns-random $opt(seed)
}

Agent/TFRCSink set NumFeedback_ $opt(tfrcFB)

#default downlink bandwidth in bps
set bwDL(gsm)  9600
set bwDL(gprs) 30000
set bwDL(umts) 384000
set bwDL(geo)  2000000
set bwDL(wlan_duplex) 650000	;# 650000
set bwDL(wlan_ether) 1000000
set bwDL(wlan_complex) 1000000

#default uplink bandwidth in bps
set bwUL(gsm)  9600
set bwUL(gprs) 10000
set bwUL(umts) 64000
set bwUL(geo)  200000
set bwUL(wlan_duplex) 650000

#default downlink propagation delay in seconds
set propDL(gsm)  .500
set propDL(gprs) .100
set propDL(umts) .150
set propDL(geo)  .250
set propDL(wlan_duplex) .01
set propDL(wlan_ether) .01 	;#0.01

#default uplink propagation delay in seconds
set propUL(gsm)  .500
set propUL(gprs) .100
set propUL(umts) .150
set propUL(geo)  .250
set propUL(wlan_duplex) .01 	;#0.01 0.003

#default buffer size in packets
set buf(gsm)	10
set buf(gprs) $opt(gprsbuf)
set buf(umts)	20
set buf(geo)	20
set buf(wlan_duplex)	$opt(wlan_duplex_buf)
set buf(wlan_ether)	10
set buf(wlan_complex)	10

#topology cellular "access link"
#                           is
#                           /
#   3Mb,10ms    xMb,yms    / 3Mb,50ms
# lp--------ms --------- bs
#                          \ 3Mb,50ms
#                           \
#                           x
#
proc cell_topo {} {
  global ns nodes qm
  $ns duplex-link $nodes(bs) $nodes(ms) 1 1 $qm
  $ns duplex-link $nodes(lp) $nodes(ms) 3Mbps 10ms DropTail 
  $ns duplex-link $nodes(bs) $nodes(is) 3Mbps 50ms DropTail
  puts "cell topology"
}

#topology satellite "ISP link"
#
#        lp                 is
#         \                 /
# 10Mb,2ms \   30Mb,250ms  / 10Mb,50ms
#           ms --------- bs
# 1Mb,100ms/               \ 10Mb,50ms
#         /                 \
#        y                   x
#
proc sat_topo {} {
  global ns nodes qm
  $ns duplex-link $nodes(bs) $nodes(ms) 1 1 $qm
  $ns duplex-link $nodes(lp) $nodes(ms) 3Mbps 10ms DropTail 
  $ns duplex-link $nodes(bs) $nodes(is) 3Mbps 50ms DropTail
  puts "sat topology"
}

#topology wlan "ether"
#
#                              is
#                             /
#    100Mb,1ms      adsl     / 3Mb,50ms
#  lp --------- ms -------- bs
#                            \ 3Mb,50ms
#                             \
#                              x
#
proc wlan_topo_simple {} {
  global qm ns nodes opt bwDL propDL buf
  switch $opt(type) {
	wlan_duplex {
		puts "duplex wlan topology"
 		$ns duplex-link $nodes(ms) $nodes(bs) 1 1 $qm
	}
	wlan_ether {
		puts "ethernet wlan topology"
		# Mac/Csma/Ca Mac/802_3
		set lan [$ns make-lan "$nodes(bs) $nodes(ms)" $bwDL(wlan_ether) $propDL(wlan_ether) LL Queue/$qm Mac/802_3 Channel "Phy/WiredPhy" $buf(wlan_ether)] 

#		[$nodes(bs) queue] set limit_ $buf(wlan_duplex)
	}
  }
  $ns duplex-link $nodes(lp) $nodes(ms) 100Mbps 1ms $qm 
  $ns duplex-link $nodes(bs) $nodes(is) 10Mbps 50ms DropTail
}
#
proc wlan_topo_complex {} {
  global ns nodes qm opt buf bwDL
  puts "complex wlan topology"

#Configuration for Orinoco 802.11b 11Mbps PC card with ->22.5m range
#Phy/WirelessPhy set Pt_ 0.031622777
#Phy/WirelessPhy set bandwidth_ 11Mb
#Mac/802_11 set dataRate_ 11Mb
#Mac/802_11 set basicRate_ 1Mb #for broadcast packets
#Phy/WirelessPhy set freq_ 2.472e9 #channel-13.2.472GHz
#Phy/WirelessPhy set CPThresh_ 10.0
#Phy/WirelessPhy set CSThresh_ 5.011872e-12
#Phy/WirelessPhy set L_ 1.0               
#Phy/WirelessPhy set RXThresh_ 5.82587e-09

  Mac/802_11 set dataRate_ $bwDL(wlan_complex)

  $ns node-config -addressType hierarchical
  AddrParams set domain_num_ 2
  lappend cluster_num 1 1             
  AddrParams set cluster_num_ $cluster_num
  lappend eilastlevel 2 2              
  AddrParams set nodes_num_ $eilastlevel 

  set topo   [new Topography]
  $topo load_flatgrid 1000 1000
  # god needs to know the number of all wireless interfaces MN+BS
  create-god 2

  set nodes(bs) [$ns node {0.0.0}]
  set nodes(is) [$ns node {0.0.1}]
  
  # DSDV DSR TORA AODV
  $ns node-config -adhocRouting DSDV \
                 -llType LL \
                 -macType Mac/802_11 \
                 -ifqType Queue/$qm \
                 -ifqLen $buf(wlan_complex) \
                 -propType "Propagation/TwoRayGround" \
                 -antType "Antenna/OmniAntenna" \
                 -phyType "Phy/WirelessPhy" \
                 -wiredRouting ON \
                 -channel [new "Channel/WirelessChannel"] \
                 -agentTrace ON \
                 -routerTrace OFF \
                 -topoInstance $topo \
                 -macTrace OFF \
		 -movementTrace OFF

  #create base station
  set nodes(ms) [$ns node {1.0.0}]
  $nodes(ms) random-motion 0 
  $nodes(ms) set X_ $opt(nodeDist)
  $nodes(ms) set Y_ 0.0
  $nodes(ms) set Z_ 0.0
  
  #configure for mobilenodes
  $ns node-config -wiredRouting OFF
  set nodes(lp) [$ns node {1.0.1}]
  $nodes(lp) random-motion 0 
  $nodes(lp) set X_ 2.0
  $nodes(lp) set Y_ 2.0
  $nodes(lp) set Z_ 0.0
  $nodes(lp) base-station [AddrParams addr2id [$nodes(ms) node-addr]]

  $ns duplex-link $nodes(ms) $nodes(bs) 10Mbps 30ms DropTail
  $ns duplex-link $nodes(bs) $nodes(is) 10Mbps 50ms DropTail

  # establish route
  set ping9 [$ns create-connection Ping $nodes(is) Ping $nodes(lp) 9]
  $ping9 oneway
#  $ns after 0.001 "$ping9 send"
}
#
proc set_link_params {t} {
  global ns nodes bwUL bwDL propUL propDL buf
  $ns bandwidth $nodes(bs) $nodes(ms) $bwDL($t) simplex
  $ns bandwidth $nodes(ms) $nodes(bs) $bwUL($t) simplex
  $ns delay $nodes(bs) $nodes(ms) $propDL($t) simplex
  $ns delay $nodes(ms) $nodes(bs) $propDL($t) simplex
  $ns queue-limit $nodes(bs) $nodes(ms) $buf($t)
  $ns queue-limit $nodes(ms) $nodes(bs) $buf($t)
}

#remove-all-packet-headers       ; # removes all except common
#add-packet-header Flags IP TCP  ; # hdrs reqd for TCP

if {$opt(queue) == "DT"} {
  set qm DropTail
}
if {$opt(queue) == "RED"} {
  set qm RED
}

set tcpTick_ 0.01
set pktsize 1460
Agent/TCP set tcpTick_ $tcpTick_
set out $opt(title)

proc stop {} {
	global nodes opt
	set wrap $opt(wrap)
	set sid [$nodes($opt(srcTrace)) id]
	set did [$nodes($opt(dstTrace)) id]
	if {$opt(srcTrace) == "bs"} {
		set a "-a out.tr"
	} else {
		set a "out.tr"
	}
	set GETRC "../../../bin/getrc"
        set RAW2XG "../../../bin/raw2xg"

        exec $GETRC -s $sid -d $did -f 0 out.tr | \
          $RAW2XG -s 0.01  -m $wrap -r > plot.xgr
        exec $GETRC -s $did -d $sid -f 0 out.tr | \
          $RAW2XG -a -s 0.01 -m $wrap  >> plot.xgr

        exec $GETRC -s $sid -d $did -f 1 out.tr | \