|
NS-2 cbrgen and gnuplot problem
Hi guys i need your helps i must make one topology of network [802.11 with 2.4 frequency] with variable number of nodes [100 or 200] in an Area of 250x250 mt second Random Waypoint with fix velocity of 1m/s and pause time of 10 sec. With renge of communication radio about 100 m. with Mac rate 24mbs and basic rate 6 mbs. With propagation model TwoRayGround. The number of fluxs Cbr over UDP are 5 10 15 20 25 activated between source and destination in random way. Rate of CBR in the application level must be 64 kbs and 512 kbs. DImension of packet CBR is 1000 byte.
I have do in this way : i have used tool setdest and threshold and cbrgen i have make mobilita_source.tcl that is my tcl and inside is so :
# ======================================================================
# Define ions
# ======================================================================
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 RTSThreshold_ 500 ;
Mac/802_11 set dataRate_ 24Mb ;
Mac/802_11 set basicRate_ 6Mb ;
Mac/802_11 set CWMin_ 31 ;
Mac/802_11 set CWMAX_ 1023 ;
Mac/802_11 set SlotTime_ 0.000009 ;
Mac/802_11 set SIFS_ 0.000016 ;
Mac/802_11 set ShortRetryLImit_ 7 ;
Mac/802_11 set LOngRetryLimit_ 7 ;
set val(ifq) Queue/DropTail/PriQueue ;# interface queue type
set val(ifqlen) 50 ;# max packet in ifq
set val(ll) LL ;# link layer type
set val(ant) Antenna/OmniAntenna ;# antenna model
set val(adhocRouting) AODV ;# routing protocol
###########################################
set val(x) 250 ;# X dimension of the topography
set val(y) 250 ;# Y dimension of the topography
set val(tr) esercizio1.tr ;# trace file
set val(nn) 100 ;# how many nodes are simulated
set val(stop) 100.0 ;# simulation time
set val(seed) 0.0
# ======================================================================
# Main Program
# ======================================================================
#
# Initialize Global Variables
#
# create simulator instance
set ns_ [new Simulator]
# define topology
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
# create trace object for ns and nam
set tracefd [open $val(tr) w]
$ns_ trace-all $tracefd
# use new trace file format
#$ns use-newtrace
#
# Create God
#
set god_ [create-god $val(nn)]
#
# define how node should be created
#
#global node setting
$ns_ node-config -adhocRouting $val(adhocRouting) \
-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 ON
#
# Create the specified number of nodes [$val(nn)] and "attach" them
# to the channel.
for {set i 0} {$i < $val(nn) } {incr i} {
set node_($i) [$ns_ node]
}
#
# Define node positions
source "mobilita_100.tcl"
# Define traffic flows
source "traffic"
#
# Tell nodes when the simulation ends
#
for {set i 0} {$i < $val(nn) } {incr i} {
$ns_ at $val(stop).000000001 "$node_($i) reset";
}
$ns_ at $val(stop).000000001 "puts \"NS EXITING...\" ; $ns_ halt"
puts "Starting Simulation..."
$ns_ run
then i have modded also Cbrgen puts inside random flux betwen 0 and 10 second... and must finish in 100.
:
#
# Copyright (c) 1999 by the University of Southern California
# All rights reserved.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License,
# version 2, as published by the Free Software Foundation.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
#
# The copyright of this module includes the following
# linking-with-specific-other-licenses addition:
#
# In addition, as a special exception, the copyright holders of
# this module give you permission to combine (via static or
# dynamic linking) this module with free software programs or
# libraries that are released under the GNU LGPL and with code
# included in the standard release of ns-2 under the Apache 2.0
# license or under otherwise-compatible licenses with advertising
# requirements (or modified versions of such code, with unchanged
# license). You may copy and distribute such a system following the
# terms of the GNU GPL for this module and the licenses of the
# other code concerned, provided that you include the source code of
# that other code when and as the GNU GPL requires distribution of
# source code.
#
# Note that people who make modified versions of this module
# are not obligated to grant this special exception for their
# modified versions; it is their choice whether to do so. The GNU
# General Public License gives permission to release a modified
# version without this exception; this exception also makes it
# possible to release a modified version which carries forward this
# exception.
# Traffic source generator from CMU's mobile code.
#
# $Header: /cvsroot/nsnam/ns-2/indep-utils/cmu-scen-gen/cbrgen.tcl,v 1.4 2005/09/16 03:05:39 tomh Exp $
# ======================================================================
# Default Script Options
# ======================================================================
set opt(nn) 0 ;# Number of Nodes
set opt(seed) 0.0
set opt(mc) 0
set opt(pktsize) 1000
set opt(rate) 0
set opt(interval) 0.0 ;# inverse of rate
set opt(type) ""
# ======================================================================
proc usage {} {
global argv0
puts "\nusage: $argv0 \[-type cbr|tcp\] \[-nn nodes\] \[-seed seed\] \[-mc connections\] \[-rate rate\]\n"
}
proc getopt {argc argv} {
global opt
lappend optlist nn seed mc rate type
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]]
}
}
proc create-cbr-connection { src dst } {
global rng cbr_cnt opt
set stime [$rng uniform 0.0 180.0]
puts "#\n# $src connecting to $dst at time $stime\n#"
##puts "set cbr_($cbr_cnt) \[\$ns_ create-connection \
##CBR \$node_($src) CBR \$node_($dst) 0\]";
puts "set udp_($cbr_cnt) \[new Agent/UDP\]"
puts "\$ns_ attach-agent \$node_($src) \$udp_($cbr_cnt)"
puts "set null_($cbr_cnt) \[new Agent/Null\]"
puts "\$ns_ attach-agent \$node_($dst) \$null_($cbr_cnt)"
puts "set cbr_($cbr_cnt) \[new Application/Traffic/CBR\]"
puts "\$cbr_($cbr_cnt) set packetSize_ $opt(pktsize)"
puts "\$cbr_($cbr_cnt) set interval_ $opt(interval)"
puts "\$cbr_($cbr_cnt) set random_ 1"
puts "\$cbr_($cbr_cnt) set maxpkts_ 10000"
puts "\$cbr_($cbr_cnt) attach-agent \$udp_($cbr_cnt)"
puts "\$ns_ connect \$udp_($cbr_cnt) \$null_($cbr_cnt)"
puts "\$ns_ at $0 \"\$cbr_($cbr_cnt) start\""
puts "\$ns_ at $10 \"\$cbr_($cbr_cnt) stop\""
incr cbr_cnt
}
proc create-tcp-connection { src dst } {
global rng cbr_cnt opt
set stime [$rng uniform 0.0 180.0]
puts "#\n# $src connecting to $dst at time $stime\n#"
puts "set tcp_($cbr_cnt) \[\$ns_ create-connection \
TCP \$node_($src) TCPSink \$node_($dst) 0\]";
puts "\$tcp_($cbr_cnt) set window_ 32"
puts "\$tcp_($cbr_cnt) set packetSize_ $opt(pktsize)"
puts "set ftp_($cbr_cnt) \[\$tcp_($cbr_cnt) attach-source FTP\]"
puts "\$ns_ at $stime \"\$ftp_($cbr_cnt) start\""
incr cbr_cnt
}
# ======================================================================
getopt $argc $argv
if { $opt(type) == "" } {
usage
exit
} elseif { $opt(type) == "cbr" } {
if { $opt(nn) == 0 || $opt(seed) == 0.0 || $opt(mc) == 0 || $opt(rate) == 0 } {
usage
exit
}
set opt(interval) [expr 1 / $opt(rate)]
if { $opt(interval) <= 0.0 } {
puts "\ninvalid sending rate $opt(rate)\n"
exit
}
}
puts "#\n# nodes: $opt(nn), max conn: $opt(mc), send rate: $opt(interval), seed: $opt(seed)\n#"
set rng [new RNG]
$rng seed $opt(seed)
set u [new RandomVariable/Uniform]
$u set min_ 0
$u set max_ 100
$u use-rng $rng
set cbr_cnt 0
set src_cnt 0
for {set i 0} {$i < $opt(nn) } {incr i} {
set x [$u value]
if {$x < 50} {continue;}
incr src_cnt
set dst [expr ($i+1) % [expr $opt(nn) + 1] ]
#if { $dst == 0 } {
#set dst [expr $dst + 1]
#}
if { $opt(type) == "cbr" } {
create-cbr-connection $i $dst
} else {
create-tcp-connection $i $dst
}
if { $cbr_cnt == $opt(mc) } {
break
}
if {$x < 75} {continue;}
set dst [expr ($i+2) % [expr $opt(nn) + 1] ]
#if { $dst == 0 } {
#set dst [expr $dst + 1]
#}
if { $opt(type) == "cbr" } {
create-cbr-connection $i $dst
} else {
create-tcp-connection $i $dst
}
if { $cbr_cnt == $opt(mc) } {
break
}
}
puts "#\n#Total sources/connections: $src_cnt/$cbr_cnt\n#"
but i am not sure about random fluxs start number i used this inside cbr
puts "\$ns_ at $0 \"\$cbr_($cbr_cnt) start\""
puts "\$ns_ at $10 \"\$cbr_($cbr_cnt) stop\""
Last edited by Eyesfil; 07-06-2014 at 10:32 AM.
|
