[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[ns] Reg: Error in running a program

To: [email protected]
Subject: [ns] Reg: Error in running a program
From: "preethi sam" <[email protected]>
Date: Sun, 12 Nov 2000 05:00:03 IST
Sender: [email protected]
Hi,
  I am getting the foll error for this pgm...there are 2 nodes connected to 
a sink via  cbq links. Can someone let me know how to correct the error as 
the line number is not provided ..

ns: _o17 unknown-flow 0 2 55:
    (_o17 cmd line 1)
    invoked from within
"_o17 cmd unknown-flow 0 2 55"
    invoked from within
"catch "$self cmd $args" ret"
    (procedure "_o17" line 2)
    (SplitObject unknown line 2)
    invoked from within
"_o17 unknown-flow 0 2 55"


The code for the same is below:
Simulator instproc get-link { node1 node2 } {
    $self instvar link_
    set id1 [$node1 id]
    set id2 [$node2 id]
    return $link_($id1:$id2)
}
#Procedure for naming the link as an object (taken from Stoica)


Simulator instproc get-queue {node1 node2 } {
    global ns
    set l [$ns get-link $node1 $node2]
    set q [$l queue]
    return $q
}
#Procedure for naming the queue as an object (taken from Stoica)


set cbqalgorithm 1
#Type of CBQ algorithm
#0 - Ancestor-only
#1 - Top link-sharing
#2 - Formal link-sharing

set cbq_type CBQ/WRR
#set cbq_type CBQ
set stopTime 5
#Duration of the simulation

set Mbps 1500
#set queue_audio 38
#100ms za 1500Kbit/s
#set queue_data 38


set queue_audio 26
#100ms za 1050Kbit/s
set queue_data 12
#100ms za 450Kbit/s

#set queue_audio 30
##100ms za 1200Kbit/s
#set queue_data 8
##100ms za 300Kbit/s


#############################################
set ns [new Simulator]
ns-random 8
#############################################
set f [open sale4.tr w]
$ns trace-all $f
#Trace all in sale1.tr file


proc make_queue { dim classe_cbq } {
set q [new Queue/DropTail]
$q set limit_ $dim
$classe_cbq install-queue $q
}
#Makes FIFO queue for each CBQ class


proc build-cbr { src dest pktSize interval random id startTime } {
    global ns
    set cbr [new Agent/CBR]
    $ns attach-agent $src $cbr

    #connect cbr sink to cbr null
    $ns connect $cbr $dest

    # init. cbr parameters
    if {$pktSize > 0} {
        $cbr set packetSize_ $pktSize
    }
    $cbr set fid_      $id
    $cbr set interval_ $interval
    $cbr set random_   $random
    $ns at $startTime "$cbr start"

    return $cbr
}

proc build-on-off-pareto { src dest pktSize burstTime idleTime rate id
startTime shp} {
    global ns

    set cbr [new Agent/CBR/UDP]
    $ns attach-agent $src $cbr

    $ns connect $cbr $dest

    set exp1 [new Traffic/Pareto]
    $exp1 set packet-size $pktSize
    $exp1 set burst-time  $burstTime
    $exp1 set idle-time   $idleTime
    $exp1 set rate        $rate
    $exp1 set shape       $shp
    $cbr  attach-traffic $exp1

    $ns at $startTime "$cbr start"
    $cbr set fid_      $id
    return $cbr
}

#proc attach-expoo-traffic { node sink pktSize burst idle id start rate }{
proc attach-expoo-traffic { node id } {
    set ns [Simulator instance]
    set source [new Agent/UDP]
    $source set fid_ $id
    $ns attach-agent $node $source

#    set traffic [new Traffic/Expoo]

#    $traffic set packet-size $pktSize
#    $traffic set burst-time $burst
#    $traffic set idle-time $idle
#    $traffic set rate $rate
#    $traffic attach-agent $source
#    $ns connect $source $sink
#    $ns at $start "$traffic start"

    return $source
}

proc attach-traffic-sale {source traffic sink pktSize burst idle start
rate } {
#    set traffic [new Traffic/Expoo]

    set ns [Simulator instance]

    $traffic set packet-size $pktSize
    $traffic set burst-time $burst
    $traffic set idle-time $idle
    $traffic set rate $rate
    $traffic attach-agent $source
    $ns connect $source $sink
    $ns at $start "$traffic start"
}


proc create_graph { stopTime cbqType} {

	global s0 r0 s1 ns Mbps cbqalgorithm

	set s0 [$ns node]
	set s1 [$ns node]
        set r0 [$ns node]
	$ns simplex-link $s0 $r0 4.5Mb 10ms $cbqType
        $ns simplex-link $s1 $r0 4.5Mb 10ms $cbqType

	set cbqLink [$ns get-link $s0 $r0]
        set cbqLink [$ns get-link $s1 $r0]
   #	[$cbqLink classifier] resize 2000
      [$cbqLink queue] algorithm $cbqalgorithm
}

proc finish {} {
	global ns f
	$ns flush-trace
	close $f
	exit 0
}


	create_graph $stopTime $cbq_type

	set link [$ns get-link $s0 $r0]
        set link [$ns get-link $s1 $r0]

	set topClass [new CBQClass]
	set audioClass [new CBQClass]
	set dataClass [new CBQClass]

	$topClass set maxpkt_ 100
      $audioClass set maxpkt_ 100
      $dataClass set maxpkt_ 100



#set topClass [ns_create_class none    none      1.0   auto     -1.0 8
#1      0]
#		# set $cbqclass  [parent_ okborrow_ allot_ maxidle_
#?   Prior level_ extradelay_]
#      set audioClass [ns_create_class1 $topClass $topClass 1.0 auto -1.0
#1 0 0 $Mbps]
#	set dataClass [ns_create_class1 $topClass $topClass 0.0 auto -1.0
#2 \
#		0 0 $Mbps]
# This is configuration for SP scheduling (audClass = prior1, DataClass =
#prior2)


##SP
##parent, okborrow, allot, maxidle, priority, level, extradelay
#	$topClass setparams none 0 1.0 0 8 2 0
#      $audioClass setparams $topClass 1 1.0 1.0 0 1 0
#      $dataClass setparams $topClass 1 0.0 1.0 1 1 0

#WFQ
#parent, okborrow, allot, maxidle, priority, level, extradelay
	$topClass setparams none 0 1.0 0 8 2 0

      $audioClass setparams $topClass 1 0.7 1.0 2 1 0.0
      $dataClass setparams $topClass 1 0.3 1.0 2 1  0.0

	make_queue $queue_audio $audioClass
	make_queue $queue_data $dataClass

	$link insert $topClass
	$link insert $audioClass
	$link insert $dataClass


set null(0) [new Agent/Null]
$ns attach-agent $r0 $null(0)

set null(1) [new Agent/Null]
$ns attach-agent $r0 $null(1)
#######################################################################
#C1 68
#C2 128 RADI za EDF (0.02; 0.06) i WFQ !!!!!!!!!!
#		    (0.02; 0.05)
#		    (0.02; 0.04)
#		    (0.02; 0.07)
#		    (0.02; 0.08)
#		    (0.02; 0.03) NO_INFO
#		    (0.05; 0.09) SUPER
#######################################################################

#######################################################################
#class1
#32 za 0.7
for {set i 1} {$i < 68} {incr i} {
set source($i) [attach-expoo-traffic $s0 $i]
set exp($i) [new Traffic/Expoo]
#attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.36 0.36 0.0 32k
attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.18 0.54 0.0 64k
}


#class2
#115 za 0.3
for {set i 101} {$i < 124} {incr i} {
set source($i) [attach-expoo-traffic $s0 $i]
set exp($i) [new Traffic/Expoo]
#attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.36 0.36 0.0 32k
attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.18 0.54 0.0 64k
}

for {set i 1} {$i < 68} {incr i} {
set source($i) [attach-expoo-traffic $s1 $i]
set exp($i) [new Traffic/Expoo]
#attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.36 0.36 0.0 32k
attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.18 0.54 0.0 64k
}

#class2
#115 za 0.3
for {set i 101} {$i < 124} {incr i} {
set source($i) [attach-expoo-traffic $s1 $i]
set exp($i) [new Traffic/Expoo]
#attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.36 0.36 0.0 32k
attach-traffic-sale $source($i) $exp($i) $null(0) 500 0.18 0.54 0.0 64k
}
#######################################################################


$link bind $audioClass 1 100
$link bind $dataClass 101 200

$ns at $stopTime "finish"
$ns run

Thanks,
Preethi.





_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

Share information about yourself, create your own public profile at 
http://profiles.msn.com.
Prev by Date: Re: [ns] CSMA/CD
Next by Date: [ns] Questions about Traffic/Trace objects.
Prev by thread: [ns] Questions about Traffic/Trace objects.
Next by thread: [ns] How to loop a tcl program
Index(es):
- Date
- Thread