[ns] implementation problem
sir, I am not understand how to implement EMKC(EXPONENTIAL MAX-MIN KELLY CONTROL) . so plz help me to implement EMKC. thank you
[ns] error found in source file
sir,
when i am running tcl file it give the below error :
Segmentation fault (core dumped)
now, below .cc,.h and .tcl file is:--
-blue.cc---
#include math.h
#include stdlib.h
#include sys/types.h
#include blue.h
#include random.h
#include delay.h
#include flags.h
static class BlueClass : public TclClass {
public:
BlueClass() : TclClass(Queue/Blue) {}
TclObject* create(int argc, const char*const* argv) {
return (new Blue);
}
} class_blue;
Blue::Blue() {
q_ = new PacketQueue();
pq_ = q_;
bind_bool(drop_front_, drop_front_);
bind_bool(bytes, bytes_ );
bind_bool(setbit, setbit_);
bind(decrement, decrement_);
bind(increment, increment_);
bind_time(dhold-time, dholdtime_);
bind_time(ihold-time, iholdtime_);
bind(dalgorithm, dalgorithm_);
bind(ialgorithm, ialgorithm_);
bind(pmark, pmark_);
bind(pktsize, mean_pktsize_);
bind_bool(queue_in_bytes_, qib_);
bind(blue_l_, blue_l_);
bind(curq_, curq_);
bind(marking_prob_trace_, marking_prob_trace_);
}
Blue::~Blue() {
{
delete q_;
}
}
int Blue::command(int argc, const char*const* argv) {
Tcl tcl = Tcl::instance();
if (argc == 3) {
//attach a file for variable tracing
if (strcmp(argv[1], attach) == 0) {
int mode;
const char* id = argv[2];
tchan_ = Tcl_GetChannel(tcl.interp(), (char*)id, mode);
if (tchan_ == 0) {
tcl.resultf(BLUE: trace: can't attach %s for
writing, id);
return (TCL_ERROR);
}
return (TCL_OK);
}
if (strcmp(argv[1], link) == 0) {
LinkDelay* link_ =
(LinkDelay*)TclObject::lookup(argv[2]);
if (link_ == 0) {
tcl.resultf(Blue : No link delay Object %s\n,
argv[2]);
return(TCL_ERROR);
}
bandwidth_ = link_-bandwidth();
return(TCL_OK);
}
if (!strcmp(argv[1], packetqueue-attach)) {
delete q_;
if (!(q_ = (PacketQueue*) TclObject::lookup(argv[2])))
return (TCL_ERROR);
else {
pq_ = q_;
return (TCL_OK);
}
}
}
return Queue::command(argc, argv);
}
void
Blue::reset()
{
Queue::reset();
ptc_ = (bandwidth_ / (8 * mean_pktsize_));
idle_ = 1;
idletime_ = Scheduler::instance().clock();
pmark_ = 0;
marking_prob_trace_ = pmark_;
ifreezetime_ = 0;
dfreezetime_ = 0;
}
void
Blue::decrement_pmark(int how)
{
double now = Scheduler::instance().clock();
if (now - dfreezetime_ dholdtime_) {
pmark_ -= decrement_;
if (pmark_ 0)
pmark_ = 0.0;
marking_prob_trace_ = pmark_;
}
/*if (now - dfreezetime_ dholdtime_) {
dfreezetime_ = now;
switch (dalgorithm_) {
case 0:
case 2:
switch (how) {
case 0:
pmark_ -= decrement_;
break;
case 1:
default:
break;
}
break;
default:
case 1:
switch (how) {
case 0:
pmark_ -= decrement_;
break;
case 1:
default:
pmark_ -= decrement_/10;
break;
}
}
if (pmark_ 0)
pmark_ = 0.0;
}*/
}
void Blue::increment_pmark(int how)
{
double now = Scheduler::instance().clock();
int qlen = qib_ ? q_-byteLength() : q_-length();
curq_ = qlen;
if ((now - ifreezetime_ iholdtime_) || (curq_ blue_l_))
{
iholdtime_ = now;
pmark_ += increment_;
if (pmark_ 1.0)
pmark_ = 1.00;
marking_prob_trace_ = pmark_;
}
/* if (now - ifreezetime_ iholdtime_) {
ifreezetime_ = now;
switch (ialgorithm_) {
case 0:
switch (how) {
case 0:
[ns] problem in generating xgraph its urgent
sir,
I am using below tcl code to generate xgraph but it give the
following error:
can't read n0: no such variable
while executing
$ns attach-agent $n0 $udp0
(procedure attach-expoo-traffic line 6)
invoked from within
attach-expoo-traffic $n4 $Sink0 200 2s 1s 100k
invoked from within
set udp0 [attach-expoo-traffic $n4 $Sink0 200 2s 1s 100k]
(file blue1.tcl line 145)
-blue.tcl---
#script illustrating the BLUE algorithm
#Senders are TCP-SACK senders, and receivers are TCP-SACK sinks
set ns [new Simulator]
# turn on ns and nam tracing
$ns color 0 red
#set the no of TCP flows here
set f0 [open out0.tr w]
set f1 [open out1.tr w]
set f2 [open out2.nam w]
$ns namtrace-all $f2
# create the nodes
#First create TCP senders and receivers
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
# create the links
#betwwen the senders and n1, receivers and n2
$ns duplex-link $n0 $n2 10Mb 1ms DropTail
$ns duplex-link $n1 $n2 10Mb 1ms DropTail
#Bottle neck link between between n1 and n2
$ns simplex-link $n2 $n3 1Mbps 100ms Blue
$ns simplex-link $n4 $n3 1Mbps 100ms DropTail
$ns simplex-link $n5 $n3 1Mbps 100ms DropTail
proc finish {} {
global ns f0 f1 f2 f3
$ns flush-trace
close $f0
close $f1
close $f2
exec nam out2.nam
exec xgraph out0.tr out1.tr -geometry 800x400
exit 0
}
#Configure BLUE queue parameters here
set blueq [[$ns link $n2 $n3] queue]
$blueq set decrement 0.00025
$blueq set increment 0.0025
$blueq set dhold-time 100ms
$blueq set ihold-time 100ms
#Enable ECN here
$blueq set setbit true
#set the queue-limit between n1 and n2
$ns queue-limit $n2 $n3 50
#set up queue monitor, sample every 0.5 seconds
set qfile [open test-blue-qsize.out w]
set qm [$ns monitor-queue $n2 $n3 $qfile 0.5]
[$ns link $n2 $n3] queue-sample-timeout
proc attach-expoo-traffic { node sink size burst idle rate } {
set ns [Simulator instance]
set udp0 [new Agent/UDP]
$udp0 set fid_ 1
$udp0 set ecn_ 1
$ns attach-agent $n0 $udp0
set udp1 [new Agent/UDP]
$udp1 set fid_ 2
$udp1 set ecn_ 1
$ns attach-agent $n1 $udp1
#set Sink0 [new Agent/TCPSink/Sack1/DeAck]
#$Sink0 set ecn_ 1
#$ns attach-agent $n4 $Sink0
#set Sink1 [new Agent/TCPSink/Sack1/DeAck]
#$Sink1 set ecn_ 1
#$ns attach-agent $n5 $Sink1
set traffic0 [new Application/Traffic/Pareto]
$traffic0 set packetSize_ 1000
$traffic0 set burst_time_ 200ms
$traffic0 set idle_time_ 200ms
$traffic0 set shape_ 1.5
$traffic0 set rate_ 1K
$traffic0 attach-agent $udp0
set traffic1 [new Application/Traffic/Pareto]
$traffic1 set packetSize_ 1000
$traffic1 set burst_time_ 200ms
$traffic1 set idle_time_ 200ms
$traffic1 set shape_ 1.5
$traffic1 set rate_ 1K
$traffic1 attach-agent $udp1
$ns connect $udp0 $Sink0
$ns connect $udp1 $Sink1
return $traffic0
return $traffic1
}
proc record {} {
global Sink0 Sink1 f0 f1
set ns [Simulator instance]
set time 0.5
set bw0 [$Sink0 set bytes_]
set bw1 [$Sink1 set bytes_]
set now [$ns now]
puts $f0 $now [expr $bw0/$time*8/100]
puts $f1 $now [expr $bw1/$time*8/100]
$Sink0 set bytes_ 0
$Sink1 set bytes_ 0
$ns at [expr $now+$time] record
}
set Sink0 [new Agent/LossMonitor]
set Sink1 [new Agent/LossMonitor]
$ns attach-agent $n4 $Sink0
$ns attach-agent $n5 $Sink1
set udp0 [attach-expoo-traffic $n4 $Sink0 200 2s 1s 100k]
set udp1 [attach-expoo-traffic $n5 $Sink1 200 2s 1s 200k]
$ns at 0.0 record
$ns at 10.0 $udp0 start
$ns at 10.0 $udp1 start
$ns at 90.0 $udp0 stop
$ns at 95.0 $udp1 stop
$ns at 100.0 finish
$ns run
plz solve error or tell me how to above error.
thank you
[ns] problem in generating xgraph
sir,
when i am using to generate nam file its properly work in ns2.35
but when I am using to generate xgraph we modify nam file it
gives the following error:
invalid command name Agent/TCPSink/Sack1/DeAck
while executing
Agent/TCPSink/Sack1/DeAck create _o108
invoked from within
catch $className create $o $args msg
invoked from within
if [catch $className create $o $args msg] {
if [string match __FAILED_SHADOW_OBJECT_ $msg] {
delete $o
return
}
global errorInfo
error class $...
(procedure new line 3)
invoked from within
new Agent/TCPSink/Sack1/DeAck
invoked from within
set Sink0 [new Agent/TCPSink/Sack1/DeAck]
(file blue.tcl line 75)
this tcl file for nam:
--blue.tcl
for nam file it properly work--
#script illustrating the BLUE algorithm
#Senders are TCP-SACK senders, and receivers are TCP-SACK sinks
set ns [new Simulator]
# turn on ns and nam tracing
set f [open out.tr w]
$ns trace-all $f
$ns namtrace-all [open out.nam w]
#set the no of TCP flows here
set nodenum 5
set start_time 1.0
set finish_time 100
# create the nodes
#First create TCP senders and receivers
for {set i 0} {$i $nodenum} {incr i} {
set s($i) [$ns node]
set r($i) [$ns node]
}
#Then create the 2 back-bone routers
set n1 [$ns node]
set n2 [$ns node]
# create the links
#betwwen the senders and n1, receivers and n2
for {set i 0} {$i $nodenum} {incr i} {
$ns duplex-link $s($i) $n1 10Mb 1ms DropTail
$ns duplex-link $r($i) $n2 10Mb 1ms DropTail
}
#Bottle neck link between between n1 and n2
$ns simplex-link $n1 $n2 1Mbps 100ms Blue
$ns simplex-link $n2 $n1 1Mbps 100ms DropTail
#Configure BLUE queue parameters here
set blueq [[$ns link $n1 $n2] queue]
$blueq set decrement 0.00025
$blueq set increment 0.0025
$blueq set dhold-time 100ms
$blueq set ihold-time 100ms
#Enable ECN here
$blueq set setbit true
#set the queue-limit between n1 and n2
$ns queue-limit $n1 $n2 50
#set up queue monitor, sample every 0.5 seconds
set qfile [open test-blue-qsize.out w]
set qm [$ns monitor-queue $n1 $n2 $qfile 0.5]
[$ns link $n1 $n2] queue-sample-timeout
#create the random number generator
set rng [new RNG]
# create TCP agents
for {set i 0} {$i $nodenum} {incr i} {
set tcp($i) [new Agent/TCP/Sack1]
$tcp($i) set fid_ [expr ($i + 1)]
$tcp($i) set ecn_ 1
set sink($i) [new Agent/TCPSink/Sack1/DelAck]
$sink($i) set ecn_ 1
$ns attach-agent $s($i) $tcp($i)
$ns attach-agent $r($i) $sink($i)
$ns connect $tcp($i) $sink($i)
set ftp($i) [new Application/FTP]
$ftp($i) attach-agent $tcp($i)
set p($i) [new Application/Traffic/Pareto]
$p($i) set packetSize_ 1000
$p($i) set burst_time_ 200ms
$p($i) set idle_time_ 200ms
$p($i) set shape_ 1.5
$p($i) set rate_ 1K
$p($i) attach-agent $tcp($i)
set start_time [$rng uniform 0 1]
$ns at $start_time $ftp($i) start
$ns at $start_time $p($i) start
}
$ns at $finish_time finish
proc finish {} {
global ns sink nodenum qfile
$ns flush-trace
close $qfile
puts running nam...
exec nam out.nam
#exec xgraph out.tr -geometry 800x400
exit 0
}
$ns run
---blue.tcl---after
modify above blue.tcl for xgraph but it gives above
error
#script illustrating the BLUE algorithm
#Senders are TCP-SACK senders, and receivers are TCP-SACK sinks
set ns [new Simulator]
# turn on ns and nam tracing
$ns color 0 red
#set the no of TCP flows here
set f0 [open out0.tr w]
set f1 [open out1.tr w]
set f2 [open out2.nam w]
$ns namtrace-all $f2
# create the nodes
#First create TCP senders and receivers
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
# create the links
#betwwen the senders and n1, receivers and n2
$ns duplex-link $n0 $n2 10Mb 1ms DropTail
$ns duplex-link $n1 $n2 10Mb 1ms DropTail
#Bottle neck link between between n1 and n2
$ns simplex-link $n2 $n3 1Mbps 100ms Blue
$ns simplex-link $n4 $n3 1Mbps 100ms DropTail
$ns simplex-link $n5 $n3 1Mbps 100ms DropTail
#Configure BLUE queue parameters here
set blueq [[$ns link $n2 $n3] queue]
$blueq set decrement 0.00025
$blueq set increment 0.0025
$blueq set dhold-time 100ms
$blueq set ihold-time 100ms
#Enable ECN here
$blueq set setbit true
#set the queue-limit between n1 and n2
$ns queue-limit $n2 $n3 50
#set up queue monitor, sample every 0.5 seconds
set qfile [open test-blue-qsize.out w]
set qm [$ns monitor-queue $n2 $n3 $qfile 0.5]
[$ns link $n2 $n3] queue-sample-timeout
#create the random number generator
#set rng [new RNG]
# create TCP agents
set tcp0 [new Agent/TCP/Sack1]
$tcp0 set fid_ 1
$tcp0 set ecn_ 1
$ns attach-agent $n0 $tcp0
set tcp1 [new Agent/TCP/Sack1]
$tcp1 set fid_ 2
$tcp1 set ecn_ 1
$ns attach-agent $n1 $tcp1
set Sink0 [new
[ns] problem in .cc file and .h file
sir,
I am working on Max-min kelly control but in which mkc-queue.cc
file and mkc-queue.h
does not work properly .In which something missing but i am not
understand where is the fault in this file.
--mkc-queue.cc
/*
* Author: Yueping Zhang, Internet Research Lab (IRL), Texas AM University
* Email: yuep...@cs.tamu.edu
* File Name: mkc_queue.cc
* Functionality: implementation of mkc router
* Last modified on Nov. 14, 2005
*/
#include math.h
#include sys/types.h
#include config.h
#include template.h
#include random.h
#include flags.h
#include delay.h
#include mkc-queue.h
/*
* Delare the class of the MKC router
*/
static class MKCQueueClass : public TclClass {
public:
MKCQueueClass() : TclClass(Queue/MKCQueue) {}
TclObject* create(int, const char*const*) {
return (new MKCQueue);
}
} class_MKC_queue;
/*
* Constructor of the MKC router class
*/
MKCQueue::MKCQueue()
{
double now = Scheduler::instance().clock();
q_ = new PacketQueue();// underlying queue
bind(bytes, bytes_ );
bind(setbit, setbit_);
bind(C, C_); // capacity
bind(T, delta_); // sampling interval
bind(rid, rid_);// router ID
MKCp_.rcv_rate = 0;
MKCp_.pkt_loss = 2;
MKCp_.volume = 0;
MKCp_.pkt_loss_seqno = -1;
// start the timer
tFinish_ = now + delta_;
tStart_ = now;
duration_ = delta_;
isFirstPkt = 1;
}
/*
* Receive function, called upon each packet arrival
*/
void MKCQueue::recv(Packet* p, Handler* h){
double now = Scheduler::instance().clock();
hdr_cmn* ch = hdr_cmn::access(p);
if(ch-ptype() == PT_MKC) // check if the incoming packet is an
MKC data packet
{
if(isFirstPkt){
// record the starting time of the current sampling
interval
tStart_ = now;
tFinish_=tStart_ + delta_;
isFirstPkt = 0;
}
q_-enque(p);
p = q_-deque();
// if the current sampling interval ends, we proceed to
synthesis the feedback
compute_ack(p);
// write ACK in the packet header
do_on_packet_arrival(p);
if(p != 0){
Queue::recv(p,h);
}
// if the incoming packet is an MKC ACK, forward it immediately
}
else if (ch-ptype()==PT_MKC_ACK)
{
if(p != 0){
Queue::recv(p,h);
}
}
}
/*
* Return the top packet in the queue
*/
Packet* MKCQueue::deque()
{
Packet *p = q_-deque();
return (p);
}
/*
* Place the packet at the tail of the queue
*/
void MKCQueue::enque(Packet* pkt)
{
q_ - enque(pkt);
}
/*
* Write feedback information in the packet header
*/
void MKCQueue::do_on_packet_arrival(Packet *p)
{
hdr_mkc* header_mkc;
header_mkc = hdr_mkc::access(p);
MKCp_.volume += header_mkc-psize;
// if the local packet loss is computed, override the packet header
if the packet loss carried in
// header is less than the local packet loss, or the current router
is the first router for the packet
if ((header_mkc-flost MKCp_.pkt_loss|| header_mkc-is_changed ==
0) MKCp_.pkt_loss != 2)
{
header_mkc-flost = MKCp_.pkt_loss;
header_mkc-rid = rid_;
header_mkc-delta = duration_;
header_mkc-loss_seqno = MKCp_.pkt_loss_seqno;
header_mkc-is_changed = 1;
}
// if the packet loss is not ready, mark the ACK invalid
else if (MKCp_.pkt_loss == 2)
{
header_mkc-flost = 2;
header_mkc-is_changed = 1;
}
}
/*
* Compute the feedback information, called upon each timer expiration
*/
void MKCQueue::compute_ack(Packet *p)
{
hdr_mkc* header_mkc;
header_mkc = hdr_mkc::access(p);
double now = Scheduler::instance().clock();
if(now = tFinish_ now tStart_)
{
duration_ = now - tStart_; // duration of the delta interval
// increment packet loss seqence number by one
MKCp_.pkt_loss_seqno++;
// calculate the incoming rate during the last interval delta_
MKCp_.rcv_rate=(double)MKCp_.volume/duration_;
// calculate the packet loss
if (MKCp_.rcv_rate != 0)
MKCp_.pkt_loss = (double)(MKCp_.rcv_rate - C_) /
MKCp_.rcv_rate;
else
MKCp_.pkt_loss = 2;
[ns] problem in schedule the events in tcl script
sir
I have proble in below tcl script when schedule event part is
running plz tell me how tosolve error.
I have attached related document of mkc to help in generate tcl script
---mkc.tcl-
# create scheduler
set ns [new Simulator]
# turn tracing on
set f [open out11.tr w]
$ns trace-all $f
set nf [open out11.nam w]
$ns namtrace-all $nf
#set stat [open stat.txt w]
#create topology
#set number of flows
set N 2
#set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
#source
for {set i 1} {$i=$N} {incr i} {
set R_($i) [$ns node]
}
#bottleneck
set R_([expr $N + 1]) [$ns node]
#sink
set R_([expr $N + 2]) [$ns node]
#create the link connecting the source and sink
for {set i 1} {$i=$N} {incr i} {
$ns duplex-link $R_($i) $R_([expr $N + 1]) 500Mb [expr 100 +
[expr
$i - 1] * 900]ms MKCQueue
}
$ns duplex-link $R_([expr $N + 1]) $R_([expr $N + 2]) 10Mb 10ms MKCQueue
for {set i 1} {$i=$N} {incr i} {
set mkcq_($i) [[$ns link $R_($i) $R_([expr $N + 1])] queue]
}
set mkcq_([expr $N + 1]) [[$ns link $R_([expr $N + 1]) $R_([expr $N +
2])] queue]
# link capacity
for {set i 1} {$i=$N} {incr i} {
$mkcq_($i) set C 5
# the router sampling interval
#$mkcq_($i) set T 0.1
$mkcq_($i) set T [expr 0.1 * [expr $i - 1]]
$mkcq_($i) set rid $i
}
# the bottleneck link capacity
$mkcq_([expr $N + 1]) set C 1000
# the router sampling interval
$mkcq_([expr $N + 1]) set T 0.1
$mkcq_([expr $N + 1]) set rid [expr $N + 1]
#create and attach MKC agent
for {set i 1} {$i=$N} {incr i} {
# create a new MKC sender
set Src_($i) [new Agent/MKC]
# attach the sender at the source node
$ns attach-agent $R_($i) $Src_($i)
$Src_($i) set alpha_ 100
$Src_($i) set beta_ 0.5
$Src_($i) set fid_ $i
# set the initial rate
$Src_($i) set init_rate_ 10
# set the data packet size
$Src_($i) set packetSize_ 200
}
#create and attach MKCSink agents
for {set i 1} {$i=$N} {incr i} {
set Snk_($i) [new Agent/MKCSink]
# set ACK packet size
$Snk_($i) set packetSize_ 40
# attach the receiver at the sink node
$ns attach-agent $R_([expr $N + 2]) $Snk_($i)
}
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
# schedule the events
$ns at 0 $Src_(1) start
$ns at 5 $Src_(2) start
for {set i 1} {$i=$N} {incr i} {
$ns at 0 record $Src_($i) $out_($i)
}
for {set i 1} {$i=$N} {incr i} {
$ns at 100.0 $Src_($i) stop
}
$ns at 100.0 finish
proc record {mkcsrc file} {
global ns f nf
set step 0.1
set now [$ns now]
set rate_ [$mkcsrc set rate_]
set pkt_loss_ [$mkcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $mkcsrc $file
}
proc finish {} {
global ns f nf
$ns flush-trace
close $f
close $nf
puts running nam
exec nam out11.nam
exit 0
}
$ns run
thank you
[ns] problem in tcl script
sir,
I am running below tcl script it gives the error:
Flow 1 starts at time 0.00
--- Classfier::no-slot{} default handler (tcl/lib/ns-lib.tcl) ---
_o12: no target for slot 4294967295
_o12 type: Classifier/Hash/Dest
content dump:
classifier _o12
0 offset
0 shift
1073741823 mask
1 slots
slot 0: _o109 (Classifier/Port)
-1 default
-- Finished standard no-slot{} default handler --
here tcl script :--
-mkct2.tcl
set ns [new Simulator]
set f [open out.tr w]
$ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf
set r_(1) [$ns node]
set r_(2) [$ns node]
set r_(3) [$ns node]
set r_(4) [$ns node]
$ns duplex-link $r_(1) $r_(2) 20Mb 10ms MKCQueue
set mkcq_(1) [[$ns link $r_(1) $r_(2)] queue]
$mkcq_(1) set C 200
$mkcq_(1) set T 0.1
$mkcq_(1) set rid 1
$ns duplex-link $r_(2) $r_(4) 20Mb 15ms MKCQueue
set mkcq_(2) [[$ns link $r_(2) $r_(4)] queue]
$mkcq_(2) set C 170
$mkcq_(2) set T 0.1
$mkcq_(2) set rid 2
$ns duplex-link $r_(4) $r_(3) 20Mb 10ms MKCQueue
set mkcq_(3) [[$ns link $r_(2) $r_(4)] queue]
$mkcq_(3) set C 200
$mkcq_(3) set T 0.1
$mkcq_(3) set rid 3
$ns duplex-link $r_(3) $r_(1) 20Mb 15ms MKCQueue
set mkcq_(4) [[$ns link $r_(3) $r_(1)] queue]
$mkcq_(4) set C 170
$mkcq_(4) set T 0.1
$mkcq_(4) set rid 4
set Snk_(2) [new Agent/MKCSink]
$Snk_(2) set packetSize_ 40
$ns attach-agent $r_(2) $Snk_(2)
set Snk_(1) [new Agent/MKCSink]
$Snk_(1) set packetSize_ 40
$ns attach-agent $r_(4) $Snk_(2)
set Snk_(4) [new Agent/MKCSink]
$Snk_(4) set packetSize_ 40
$ns attach-agent $r_(3) $Snk_(4)
set Snk_(3) [new Agent/MKCSink]
$Snk_(3) set packetSize_ 40
$ns attach-agent $r_(1) $Snk_(3)
set Src_(2) [new Agent/MKC]
$ns attach-agent $r_(1) $Src_(2)
$Src_(2) set alpha_ 20
$Src_(2) set beta_ 0.5
$Src_(2) set packetSize_ 200
$Src_(2) set init_rate_ 10
$Src_(2) set fid_ 2
set Src_(1) [new Agent/MKC]
$ns attach-agent $r_(1) $Src_(1)
$Src_(1) set alpha_ 20
$Src_(1) set beta_ 0.5
$Src_(1) set packetSize_ 200
$Src_(1) set init_rate_ 10
$Src_(1) set fid_ 1
set Src_(4) [new Agent/MKC]
$ns attach-agent $r_(4) $Src_(4)
$Src_(4) set alpha_ 20
$Src_(4) set beta_ 0.5
$Src_(4) set packetSize_ 200
$Src_(4) set init_rate_ 10
$Src_(4) set fid_ 4
set Src_(3) [new Agent/MKC]
$ns attach-agent $r_(4) $Src_(3)
$Src_(3) set alpha_ 20
$Src_(3) set beta_ 0.5
$Src_(3) set packetSize_ 200
$Src_(3) set init_rate_ 10
$Src_(3) set fid_ 3
$ns connect $Src_(1) $Snk_(1)
$ns connect $Src_(2) $Snk_(2)
$ns connect $Src_(3) $Snk_(3)
$ns connect $Src_(4) $Snk_(4)
$ns cost $r_(4) $r_(3) 1
$ns cost $r_(4) $r_(2) 10
$ns at 0 $Src_(1) start
$ns at 10 $Src_(2) start
$ns at 20 $Src_(3) start
$ns at 30 $Src_(4) start
$ns at 85 $Src_(1) stop
$ns at 90 $Src_(2) stop
$ns at 95 $Src_(3) stop
$ns at 100 $Src_(4) stop
$ns at 100.0 finish
proc finish {} {
global ns nf
$ns flush-trace
close $nf
exec nam out.nam
exit 0
}
$ns run
plz solve this problem give me solution.
thank you
[ns] problem in generating nam file
sir,
I am running below tcl script but it give error:Flow 1 starts at
time 0.00
Segmentation fault (core dumped)
mkc.tcl---
# create scheduler
set ns [new Simulator]
# turn tracing on
set f [open out.tr w]
$ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf
#set stat [open stat.txt w]
#create topology
#set number of flows
set N 2
#set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
#source
for {set i 1} {$i=$N} {incr i} {
set R_($i) [$ns node]
}
#bottleneck
set R_([expr $N + 1]) [$ns node]
#sink
set R_([expr $N + 2]) [$ns node]
#create the link connecting the source and sink
for {set i 1} {$i=$N} {incr i} {
$ns duplex-link $R_($i) $R_([expr $N + 1]) 500Mb [expr 100 +
[expr
$i - 1] * 900]ms MKCQueue
}
$ns duplex-link $R_([expr $N + 1]) $R_([expr $N + 2]) 10Mb 10ms MKCQueue
for {set i 1} {$i=$N} {incr i} {
set mkcq_($i) [[$ns link $R_($i) $R_([expr $N + 1])] queue]
}
set mkcq_([expr $N + 1]) [[$ns link $R_([expr $N + 1]) $R_([expr $N +
2])] queue]
# link capacity
for {set i 1} {$i=$N} {incr i} {
$mkcq_($i) set C 5
# the router sampling interval
#$mkcq_($i) set T 0.1
$mkcq_($i) set T [expr 0.1 * [expr $i - 1]]
$mkcq_($i) set rid $i
}
# the bottleneck link capacity
$mkcq_([expr $N + 1]) set C 1000
# the router sampling interval
$mkcq_([expr $N + 1]) set T 0.1
$mkcq_([expr $N + 1]) set rid [expr $N + 1]
#create and attach MKC agent
for {set i 1} {$i=$N} {incr i} {
# create a new MKC sender
set Src_($i) [new Agent/MKC]
# attach the sender at the source node
$ns attach-agent $R_($i) $Src_($i)
$Src_($i) set alpha_ 100
$Src_($i) set beta_ 0.5
$Src_($i) set fid_ $i
# set the initial rate
$Src_($i) set init_rate_ 10
# set the data packet size
$Src_($i) set packetSize_ 200
}
#create and attach MKCSink agents
for {set i 1} {$i=$N} {incr i} {
set Snk_($i) [new Agent/MKCSink]
# set ACK packet size
$Snk_($i) set packetSize_ 40
# attach the receiver at the sink node
$ns attach-agent $R_([expr $N + 2]) $Snk_($i)
}
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
# schedule the events
$ns at 0 $Src_(1) start
$ns at 5 $Src_(2) start
for {set i 1} {$i=$N} {incr i} {
$ns at 0 record $Src_($i) $out_($i)
}
for {set i 1} {$i=$N} {incr i} {
$ns at 100.0 $Src_($i) stop
}
$ns at 100.0 finish
proc record {mkcsrc file} {
global ns
set step 0.1
set now [$ns now]
set rate_ [$mkcsrc set rate_]
set pkt_loss_ [$mkcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $mkcsrc $file
}
proc finish {} {
global ns f nf
$ns flush-trace
close $f
close $nf
puts running nam
exec nam out.nam
exit 0
}
$ns run
plz solve this problem its urgent
thank you
[ns] error in tcl script
sir,
When i am running below tcl script it gives error:Flow 1
starts at time 0.00
Segmentation fault (core dumped)
but in other tcl script is work better than below tcl
script...
I am not understand what error in below tcl script when nam is
work properly.
---mkc-T2.tcl
# create scheduler
set ns [new Simulator]
set f [open out3.tr w]
$ns trace-all $f
set nf [open out3.nam w]
$ns namtrace-all $nf
# create topology
# set number of flows
set N 4
# set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
# set the physical source and sink
for {set i 1} {$i = $N} {incr i} {
set R_($i) [$ns node]
}
$ns duplex-link $R_(1) $R_(2) 20Mb 10ms MKCQueue
set mkcq_(1) [[$ns link $R_(1) $R_(2)] queue]
$mkcq_(1) set C 2000
$mkcq_(1) set T 0.1
$mkcq_(1) set rid 1
$ns duplex-link $R_(2) $R_(4) 10Mb 1000ms MKCQueue
set mkcq_(2) [[$ns link $R_(2) $R_(4)] queue]
$mkcq_(2) set C 1700
$mkcq_(2) set T 0.1
$mkcq_(2) set rid 2
$ns duplex-link $R_(4) $R_(3) 20Mb 10ms MKCQueue
set mkcq_(4) [[$ns link $R_(4) $R_(3)] queue]
$mkcq_(4) set C 2000
$mkcq_(4) set T 0.1
$mkcq_(4) set rid 3
$ns duplex-link $R_(3) $R_(1) 10Mb 1000ms MKCQueue
set mkcq_(3) [[$ns link $R_(3) $R_(1)] queue]
$mkcq_(3) set C 1700
$mkcq_(3) set T 0.1
$mkcq_(3) set rid 4
#create and attach BWCSink agents
set Snk_(2) [new Agent/MKCSink]
$Snk_(2) set packetSize_ 40
$ns attach-agent $R_(2) $Snk_(2)
set Snk_(1) [new Agent/MKCSink]
$Snk_(1) set packetSize_ 40
$ns attach-agent $R_(4) $Snk_(1)
set Snk_(4) [new Agent/MKCSink]
$Snk_(4) set packetSize_ 40
$ns attach-agent $R_(3) $Snk_(4)
set Snk_(3) [new Agent/MKCSink]
$Snk_(3) set packetSize_ 40
$ns attach-agent $R_(1) $Snk_(3)
set Src_(2) [new Agent/MKC]
$ns attach-agent $R_(1) $Src_(2)
$Src_(2) set alpha_ 20
$Src_(2) set beta_ 0.5
$Src_(2) set packetSize_ 200
$Src_(2) set init_rate_ 10
$Src_(2) set fid_ 2
set Src_(1) [new Agent/MKC]
$ns attach-agent $R_(1) $Src_(1)
$Src_(1) set alpha_ 20
$Src_(1) set beta_ 0.5
$Src_(1) set packetSize_ 200
$Src_(1) set init_rate_ 10
$Src_(1) set fid_ 1
set Src_(4) [new Agent/MKC]
$ns attach-agent $R_(4) $Src_(4)
$Src_(4) set alpha_ 20
$Src_(4) set beta_ 0.5
$Src_(4) set packetSize_ 200
$Src_(4) set init_rate_ 10
$Src_(4) set fid_ 4
set Src_(3) [new Agent/MKC]
$ns attach-agent $R_(4) $Src_(3)
$Src_(3) set alpha_ 20
$Src_(3) set beta_ 0.5
$Src_(3) set packetSize_ 200
$Src_(3) set init_rate_ 10
$Src_(3) set fid_ 3
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
$ns cost $R_(4) $R_(3) 1
$ns cost $R_(4) $R_(2) 10
$ns compute-routes
set routelogic [$ns get-routelogic]
# schedule the events
set starttime_(1) 0
set starttime_(2) 30
set starttime_(3) 60
set starttime_(4) 90
$ns at 0 $Src_(1) start
$ns at 30 $Src_(2) start
$ns at 60 $Src_(3) start
$ns at 90 $Src_(4) start
for {set i 1} {$i=$N} {incr i} {
$ns at $starttime_($i) record $Src_($i) $out_($i)
}
set tfinish 500
for {set i 1} {$i=$N} {incr i} {
$ns at $tfinish $Src_($i) stop
}
$ns at $tfinish finish
proc record {bwcsrc file} {
global ns f nf
set step 0.1
set now [$ns now]
set rate_ [$bwcsrc set rate_]
set pkt_loss_ [$bwcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $bwcsrc $file
}
proc finish {} {
global ns f nf
$ns flush-trace
close $f
close $nf
puts running nam
exec nam out3.nam
exit 0
}
$ns run
plz anybody check above tcl script and find out where is the
error.and how to solve this error.
thank you
[ns] nam problem in ns2 it is urgent
sir, I am getting error when I am entered in root then type nam it gives error: root@HP:/home/alok# nam Segmentation fault (core dumped) plz solve this problem thank you
[ns] tcl script problem in ns2 it is urgent
when I am running below tcl file it gives again error :Flow
1 starts at time 0.00
Segmentation fault (core dumped)
--mkc.tcl---
# create scheduler
set ns [new Simulator]
set f [open out.tr w]
$ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf
# turn tracing on
#set ns_f [open HeteroFlow.tr w]
#$ns trace-all $ns_f
#set stat [open stat.txt w]
#create topology
#set number of flows
set N 2
#set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
#source
for {set i 1} {$i=$N} {incr i} {
set R_($i) [$ns node]
}
#bottleneck
set R_([expr $N + 1]) [$ns node]
#sink
set R_([expr $N + 2]) [$ns node]
#create the link connecting the source and sink
for {set i 1} {$i=$N} {incr i} {
$ns duplex-link $R_($i) $R_([expr $N + 1]) 100Mb [expr
100 + [expr
$i - 1] * 300]ms MKCQueue
}
$ns duplex-link $R_([expr $N + 1]) $R_([expr $N + 2]) 10Mb 10ms MKCQueue
for {set i 1} {$i=$N} {incr i} {
set mkcq_($i) [[$ns link $R_($i) $R_([expr $N + 1])] queue]
}
set mkcq_([expr $N + 1]) [[$ns link $R_([expr $N + 1]) $R_([expr $N +
2])] queue]
# link capacity
for {set i 1} {$i=$N} {incr i} {
$mkcq_($i) set C 5
# the router sampling interval
#$mkcq_($i) set T 0.1
$mkcq_($i) set T [expr 0.1 * [expr $i - 1]]
$mkcq_($i) set rid $i
}
# the bottleneck link capacity
$mkcq_([expr $N + 1]) set C 1
# the router sampling interval
$mkcq_([expr $N + 1]) set T 0.1
$mkcq_([expr $N + 1]) set rid [expr $N + 1]
#create and attach MKC agent
for {set i 1} {$i=$N} {incr i} {
# create a new MKC sender
set Src_($i) [new Agent/MKC]
# attach the sender at the source node
$ns attach-agent $R_($i) $Src_($i)
$Src_($i) set alpha_ 1
$Src_($i) set beta_ 0.5
$Src_($i) set fid_ $i
# set the initial rate
$Src_($i) set init_rate_ 1
# set the data packet size
$Src_($i) set packetSize_ 200
}
#create and attach MKCSink agents
for {set i 1} {$i=$N} {incr i} {
set Snk_($i) [new Agent/MKCSink]
# set ACK packet size
$Snk_($i) set packetSize_ 40
# attach the receiver at the sink node
$ns attach-agent $R_([expr $N + 2]) $Snk_($i)
}
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
# schedule the events
$ns at 0 $Src_(1) start
$ns at 5 $Src_(2) start
for {set i 1} {$i=$N} {incr i} {
$ns at 0 record $Src_($i) $out_($i)
}
for {set i 1} {$i=$N} {incr i} {
$ns at 100.0 $Src_($i) stop
}
$ns at 100.0 finish
proc record {mkcsrc file} {
global ns
set step 0.1
set now [$ns now]
set rate_ [$mkcsrc set rate_]
set pkt_loss_ [$mkcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $mkcsrc $file
}
proc finish {} {
global ns f nf
$ns flush-trace
close $f
close $nf
puts running nam
exec nam out.nam
#exec xgraph out0.tr out1.tr out2.tr -geometry 800x400
exit 0
}
$ns run
thank you
[ns] nam problem in ns2
sir, i am getting nam error : Segmentation fault (core dumped) in ns2 while i am already try nam_1.15-10_i386.deb package.But its give again this above error. thank you
[ns] error in tcl file
when i am trying to generate nam file it
gives error : Flow 1 starts at time 0.00
Segmentation fault (core dumped)
plz give me solution how to solve this problem
mkc.tcl---
# create scheduler
set ns [new Simulator]
set f [open out.tr w]
$ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf
# turn tracing on
#set ns_f [open HeteroFlow.tr w]
#$ns trace-all $ns_f
#set stat [open stat.txt w]
#create topology
#set number of flows
set N 2
#set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
#source
for {set i 1} {$i=$N} {incr i} {
set R_($i) [$ns node]
}
#bottleneck
set R_([expr $N + 1]) [$ns node]
#sink
set R_([expr $N + 2]) [$ns node]
#create the link connecting the source and sink
for {set i 1} {$i=$N} {incr i} {
$ns duplex-link $R_($i) $R_([expr $N + 1]) 500Mb [expr 100 +
[expr
$i - 1] * 900]ms MKCQueue
}
$ns duplex-link $R_([expr $N + 1]) $R_([expr $N + 2]) 10Mb 10ms MKCQueue
for {set i 1} {$i=$N} {incr i} {
set mkcq_($i) [[$ns link $R_($i) $R_([expr $N + 1])] queue]
}
set mkcq_([expr $N + 1]) [[$ns link $R_([expr $N + 1]) $R_([expr $N +
2])] queue]
# link capacity
for {set i 1} {$i=$N} {incr i} {
$mkcq_($i) set C 5
# the router sampling interval
#$mkcq_($i) set T 0.1
$mkcq_($i) set T [expr 0.1 * [expr $i - 1]]
$mkcq_($i) set rid $i
}
# the bottleneck link capacity
$mkcq_([expr $N + 1]) set C 1000
# the router sampling interval
$mkcq_([expr $N + 1]) set T 0.1
$mkcq_([expr $N + 1]) set rid [expr $N + 1]
#create and attach MKC agent
for {set i 1} {$i=$N} {incr i} {
# create a new MKC sender
set Src_($i) [new Agent/MKC]
# attach the sender at the source node
$ns attach-agent $R_($i) $Src_($i)
$Src_($i) set alpha_ 100
$Src_($i) set beta_ 0.5
$Src_($i) set fid_ $i
# set the initial rate
$Src_($i) set init_rate_ 10
# set the data packet size
$Src_($i) set packetSize_ 200
}
#create and attach MKCSink agents
for {set i 1} {$i=$N} {incr i} {
set Snk_($i) [new Agent/MKCSink]
# set ACK packet size
$Snk_($i) set packetSize_ 40
# attach the receiver at the sink node
$ns attach-agent $R_([expr $N + 2]) $Snk_($i)
}
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
# schedule the events
$ns at 0 $Src_(1) start
$ns at 5 $Src_(2) start
for {set i 1} {$i=$N} {incr i} {
$ns at 0 record $Src_($i) $out_($i)
}
for {set i 1} {$i=$N} {incr i} {
$ns at 100.0 $Src_($i) stop
}
$ns at 100.0 finish
proc record {mkcsrc file} {
global ns f nf
set step 0.1
set now [$ns now]
set rate_ [$mkcsrc set rate_]
set pkt_loss_ [$mkcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $mkcsrc $file
}
proc finish {} {
global ns f nf
$ns flush-trace
close $f
close $nf
puts running nam
exec nam out.nam
#exec xgraph out0.tr out1.tr out2.tr -geometry 800x400
exit 0
}
$ns run
thank you
[ns] error in validate
sir, I am getting error on validation time: validate overall report: some tests failed: ./test-all-tcpLinux how to erro thank you
[ns] how to generate nam file and xgraph
sir,
I am not understand how to generate nam file and xgraph for below
.tcl file.Plz send me solution according to below .tcl file.
---mkc-T1-heterogeneous.tcl--
# create scheduler
set ns [new Simulator]
# turn tracing on
set ns_f [open HeteroFlow.tr w]
$ns trace-all $ns_f
$ns namtrace-all [open out.nam w]
#set stat [open stat.txt w]
#create topology
#set number of flows
set N 5
#set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
#source
for {set i 1} {$i=$N} {incr i} {
set R_($i) [$ns node]
}
#bottleneck
set R_([expr $N + 1]) [$ns node]
#sink
set R_([expr $N + 2]) [$ns node]
#create the link connecting the source and sink
for {set i 1} {$i=$N} {incr i} {
$ns duplex-link $R_($i) $R_([expr $N + 1]) 500Mb [expr 100 +
[expr
$i - 1] * 900]ms MKCQueue
}
$ns duplex-link $R_([expr $N + 1]) $R_([expr $N + 2]) 10Mb 10ms MKCQueue
for {set i 1} {$i=$N} {incr i} {
set mkcq_($i) [[$ns link $R_($i) $R_([expr $N + 1])] queue]
}
set mkcq_([expr $N + 1]) [[$ns link $R_([expr $N + 1]) $R_([expr $N +
2])] queue]
# link capacity
for {set i 1} {$i=$N} {incr i} {
$mkcq_($i) set C 5
# the router sampling interval
#$mkcq_($i) set T 0.1
$mkcq_($i) set T [expr 0.1 * [expr $i - 1]]
$mkcq_($i) set rid $i
}
# the bottleneck link capacity
$mkcq_([expr $N + 1]) set C 1000
# the router sampling interval
$mkcq_([expr $N + 1]) set T 0.1
$mkcq_([expr $N + 1]) set rid [expr $N + 1]
#create and attach MKC agent
for {set i 1} {$i=$N} {incr i} {
# create a new MKC sender
set Src_($i) [new Agent/MKC]
# attach the sender at the source node
$ns attach-agent $R_($i) $Src_($i)
$Src_($i) set alpha_ 100
$Src_($i) set beta_ 0.5
$Src_($i) set fid_ $i
# set the initial rate
$Src_($i) set init_rate_ 10
# set the data packet size
$Src_($i) set packetSize_ 200
}
#create and attach MKCSink agents
for {set i 1} {$i=$N} {incr i} {
set Snk_($i) [new Agent/MKCSink]
# set ACK packet size
$Snk_($i) set packetSize_ 40
# attach the receiver at the sink node
$ns attach-agent $R_([expr $N + 2]) $Snk_($i)
}
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
# schedule the events
$ns at 0 $Src_(1) start
$ns at 5 $Src_(2) start
for {set i 1} {$i=$N} {incr i} {
$ns at 0 record $Src_($i) $out_($i)
}
for {set i 1} {$i=$N} {incr i} {
$ns at 100.0 $Src_($i) stop
}
$ns at 100.0 finish
proc record {mkcsrc file} {
global ns
set step 0.1
set now [$ns now]
set rate_ [$mkcsrc set rate_]
set pkt_loss_ [$mkcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $mkcsrc $file
}
proc finish {} {
global ns ns_f mkcq
$ns flush-trace
close $mkcq
puts running nam...
exec nam out.nam
exit 0
}
$ns run
[ns] how to generate nam and xgraph
hello sir,
how to generate ns(nam) and xgraph for below .tcl file
--mkc-T1-heterogeneous.tcl--
# create scheduler
set ns [new Simulator]
# turn tracing on
#set ns_f [open HeteroFlow.tr w]
#$ns trace-all $ns_f
#$ns namtrace-all [open out.nam w]
#set stat [open stat.txt w]
#create topology
#set number of flows
set N 5
#set the output file
for {set i 1} {$i=$N} {incr i} {
set out_($i) [open out$i.txt w]
}
#source
for {set i 1} {$i=$N} {incr i} {
set R_($i) [$ns node]
}
#bottleneck
set R_([expr $N + 1]) [$ns node]
#sink
set R_([expr $N + 2]) [$ns node]
#create the link connecting the source and sink
for {set i 1} {$i=$N} {incr i} {
$ns duplex-link $R_($i) $R_([expr $N + 1]) 500Mb [expr 100 +
[expr
$i - 1] * 900]ms MKCQueue
}
$ns duplex-link $R_([expr $N + 1]) $R_([expr $N + 2]) 10Mb 10ms MKCQueue
for {set i 1} {$i=$N} {incr i} {
set mkcq_($i) [[$ns link $R_($i) $R_([expr $N + 1])] queue]
}
set mkcq_([expr $N + 1]) [[$ns link $R_([expr $N + 1]) $R_([expr $N +
2])] queue]
# link capacity
for {set i 1} {$i=$N} {incr i} {
$mkcq_($i) set C 5
# the router sampling interval
#$mkcq_($i) set T 0.1
$mkcq_($i) set T [expr 0.1 * [expr $i - 1]]
$mkcq_($i) set rid $i
}
# the bottleneck link capacity
$mkcq_([expr $N + 1]) set C 1000
# the router sampling interval
$mkcq_([expr $N + 1]) set T 0.1
$mkcq_([expr $N + 1]) set rid [expr $N + 1]
#create and attach MKC agent
for {set i 1} {$i=$N} {incr i} {
# create a new MKC sender
set Src_($i) [new Agent/MKC]
# attach the sender at the source node
$ns attach-agent $R_($i) $Src_($i)
$Src_($i) set alpha_ 100
$Src_($i) set beta_ 0.5
$Src_($i) set fid_ $i
# set the initial rate
$Src_($i) set init_rate_ 10
# set the data packet size
$Src_($i) set packetSize_ 200
}
#create and attach MKCSink agents
for {set i 1} {$i=$N} {incr i} {
set Snk_($i) [new Agent/MKCSink]
# set ACK packet size
$Snk_($i) set packetSize_ 40
# attach the receiver at the sink node
$ns attach-agent $R_([expr $N + 2]) $Snk_($i)
}
# connect each pair of sender and receiver
for {set i 1} {$i=$N} {incr i} {
$ns connect $Src_($i) $Snk_($i)
}
# schedule the events
$ns at 0 $Src_(1) start
$ns at 5 $Src_(2) start
for {set i 1} {$i=$N} {incr i} {
$ns at 0 record $Src_($i) $out_($i)
}
for {set i 1} {$i=$N} {incr i} {
$ns at 100.0 $Src_($i) stop
}
$ns at 100.0 finish
proc record {mkcsrc file} {
global ns
set step 0.1
set now [$ns now]
set rate_ [$mkcsrc set rate_]
set pkt_loss_ [$mkcsrc set pkt_loss_]
puts $file $now $rate_ $pkt_loss_
$ns at [expr $now+$step] record $mkcsrc $file
}
proc finish {} {
exit 0
}
$ns run
[ns] plz help me to solve this error is urgent
sir,
when i run make command then it give the following error given below:
common/packet.h:387:3: error: stray ‘\’ in program
return ( (type) == PT_MKC || \ //hi
^
common/packet.h:388:5: error: stray ‘\’ in program
(type) == PT_MKC_ACK || \ //hi ack
^
common/packet.h: In static member function ‘static bool
p_info::data_packet(packet_t)’:
common/packet.h:398:24: error: expected primary-expression before ‘)’ token
);
^
common/packet.h: In static member function ‘static void p_info::initName()’:
common/packet.h:439:21: warning: deleting array ‘p_info::name_’
[enabled by default]
delete [] name_;
^
common/packet.h:440:9: error: incompatible types in assignment of
‘char**’ to ‘char* [76]’
name_ = nameNew;
^
common/packet.h: In static member function ‘static packet_t
p_info::getType(const char*)’:
common/packet.h:565:12: error: invalid conversion from ‘unsigned int’
to ‘packet_t’ [-fpermissive]
return i;
^
make: *** [common/scheduler.o] Error 1
this error in packet.h file.Below is packet.h code is:
plz sir don't change code just only error
packet.h
#ifndef ns_packet_h
#define ns_packet_h
#include string.h
#include assert.h
#include config.h
#include scheduler.h
#include object.h
#include lib/bsd-list.h
#include packet-stamp.h
#include ns-process.h
// Used by wireless routing code to attach routing agent
#define RT_PORT 255 /* port that all route msgs are sent to */
#define HDR_CMN(p) (hdr_cmn::access(p))
#define HDR_ARP(p) (hdr_arp::access(p))
#define HDR_MAC(p) (hdr_mac::access(p))
#define HDR_MAC802_11(p) ((hdr_mac802_11 *)hdr_mac::access(p))
#define HDR_MAC_TDMA(p) ((hdr_mac_tdma *)hdr_mac::access(p))
#define HDR_SMAC(p) ((hdr_smac *)hdr_mac::access(p))
#define HDR_LL(p) (hdr_ll::access(p))
#define HDR_HDLC(p) ((hdr_hdlc *)hdr_ll::access(p))
#define HDR_IP(p) (hdr_ip::access(p))
#define HDR_RTP(p) (hdr_rtp::access(p))
#define HDR_TCP(p) (hdr_tcp::access(p))
#define HDR_SCTP(p) (hdr_sctp::access(p))
#define HDR_SR(p) (hdr_sr::access(p))
#define HDR_TFRC(p) (hdr_tfrc::access(p))
#define HDR_TORA(p) (hdr_tora::access(p))
#define HDR_IMEP(p) (hdr_imep::access(p))
#define HDR_CDIFF(p)(hdr_cdiff::access(p)) /* chalermak's diffusion*/
//#define HDR_DIFF(p) (hdr_diff::access(p)) /* SCADD's diffusion
ported into ns */
#define HDR_LMS(p) (hdr_lms::access(p))
/* */
/*
* modified ns-2.33, adding support for dynamic libraries
*
* packet_t is changed from enum to unsigned int in order to allow
* dynamic definition of new packet types within dynamic libraries.
* Pre-defined packet types are implemented as static const.
*
*/
enum packet_t {
PT_MKC,
PT_MKC_ACK,
PT_TCP,
PT_UDP,
PT_CBR,
PT_AUDIO,
PT_VIDEO,
PT_ACK,
PT_START,
PT_STOP,
PT_PRUNE,
PT_GRAFT,
PT_GRAFTACK,
PT_JOIN,
PT_ASSERT,
PT_MESSAGE,
PT_RTCP,
PT_RTP,
PT_RTPROTO_DV,
PT_CtrMcast_Encap,
PT_CtrMcast_Decap,
PT_SRM,
/* simple signalling messages */
PT_REQUEST,
PT_ACCEPT,
PT_CONFIRM,
PT_TEARDOWN,
PT_LIVE,// packet from live network
PT_REJECT,
PT_TELNET, // not needed: telnet use TCP
PT_FTP,
PT_PARETO,
PT_EXP,
PT_INVAL,
PT_HTTP,
/* new encapsulator */
PT_ENCAPSULATED,
PT_MFTP,
/* CMU/Monarch's extnsions */
PT_ARP,
PT_MAC,
PT_TORA,
PT_DSR,
PT_AODV,
PT_IMEP,
// RAP packets
PT_RAP_DATA,
PT_RAP_ACK,
PT_TFRC,
PT_TFRC_ACK,
PT_PING,
// Diffusion packets - Chalermek
PT_DIFF,
// LinkState routing update packets
PT_RTPROTO_LS,
// MPLS LDP header
PT_LDP,
// GAF packet
PT_GAF,
// ReadAudio traffic
PT_REALAUDIO,
// Pushback Messages
PT_PUSHBACK,
#ifdef HAVE_STL
// Pragmatic General Multicast
PT_PGM,
#endif //STL
// LMS packets
PT_LMS,
PT_LMS_SETUP,
PT_SCTP,
PT_SCTP_APP1,
// SMAC packet
PT_SMAC,
// DCCP packets
PT_DCCP,
PT_DCCP_REQ,
PT_DCCP_RESP,
PT_DCCP_ACK,
PT_DCCP_DATA,
PT_DCCP_DATAACK,
PT_DCCP_CLOSE,
PT_DCCP_CLOSEREQ,
PT_DCCP_RESET,
// HDLC packet
PT_HDLC,
// XCP packet
PT_XCP,
//
[ns] plz help me to solve this error is urgent
sir,
when i run make command then it give the following error given below:
common/packet.h:387:3: error: stray ‘\’ in program
return ( (type) == PT_MKC || \ //hi
^
common/packet.h:388:5: error: stray ‘\’ in program
(type) == PT_MKC_ACK || \ //hi ack
^
common/packet.h: In static member function ‘static bool
p_info::data_packet(packet_t)’:
common/packet.h:398:24: error: expected primary-expression before ‘)’ token
);
^
common/packet.h: In static member function ‘static void p_info::initName()’:
common/packet.h:439:21: warning: deleting array ‘p_info::name_’
[enabled by default]
delete [] name_;
^
common/packet.h:440:9: error: incompatible types in assignment of
‘char**’ to ‘char* [76]’
name_ = nameNew;
^
common/packet.h: In static member function ‘static packet_t
p_info::getType(const char*)’:
common/packet.h:565:12: error: invalid conversion from ‘unsigned int’
to ‘packet_t’ [-fpermissive]
return i;
^
make: *** [common/scheduler.o] Error 1
this error in packet.h file.Below is packet.h code is:
plz sir don't change code just only error
packet.h
#ifndef ns_packet_h
#define ns_packet_h
#include string.h
#include assert.h
#include config.h
#include scheduler.h
#include object.h
#include lib/bsd-list.h
#include packet-stamp.h
#include ns-process.h
// Used by wireless routing code to attach routing agent
#define RT_PORT 255 /* port that all route msgs are sent to */
#define HDR_CMN(p) (hdr_cmn::access(p))
#define HDR_ARP(p) (hdr_arp::access(p))
#define HDR_MAC(p) (hdr_mac::access(p))
#define HDR_MAC802_11(p) ((hdr_mac802_11 *)hdr_mac::access(p))
#define HDR_MAC_TDMA(p) ((hdr_mac_tdma *)hdr_mac::access(p))
#define HDR_SMAC(p) ((hdr_smac *)hdr_mac::access(p))
#define HDR_LL(p) (hdr_ll::access(p))
#define HDR_HDLC(p) ((hdr_hdlc *)hdr_ll::access(p))
#define HDR_IP(p) (hdr_ip::access(p))
#define HDR_RTP(p) (hdr_rtp::access(p))
#define HDR_TCP(p) (hdr_tcp::access(p))
#define HDR_SCTP(p) (hdr_sctp::access(p))
#define HDR_SR(p) (hdr_sr::access(p))
#define HDR_TFRC(p) (hdr_tfrc::access(p))
#define HDR_TORA(p) (hdr_tora::access(p))
#define HDR_IMEP(p) (hdr_imep::access(p))
#define HDR_CDIFF(p)(hdr_cdiff::access(p)) /* chalermak's diffusion*/
//#define HDR_DIFF(p) (hdr_diff::access(p)) /* SCADD's diffusion
ported into ns */
#define HDR_LMS(p) (hdr_lms::access(p))
/* */
/*
* modified ns-2.33, adding support for dynamic libraries
*
* packet_t is changed from enum to unsigned int in order to allow
* dynamic definition of new packet types within dynamic libraries.
* Pre-defined packet types are implemented as static const.
*
*/
enum packet_t {
PT_MKC,
PT_MKC_ACK,
PT_TCP,
PT_UDP,
PT_CBR,
PT_AUDIO,
PT_VIDEO,
PT_ACK,
PT_START,
PT_STOP,
PT_PRUNE,
PT_GRAFT,
PT_GRAFTACK,
PT_JOIN,
PT_ASSERT,
PT_MESSAGE,
PT_RTCP,
PT_RTP,
PT_RTPROTO_DV,
PT_CtrMcast_Encap,
PT_CtrMcast_Decap,
PT_SRM,
/* simple signalling messages */
PT_REQUEST,
PT_ACCEPT,
PT_CONFIRM,
PT_TEARDOWN,
PT_LIVE,// packet from live network
PT_REJECT,
PT_TELNET, // not needed: telnet use TCP
PT_FTP,
PT_PARETO,
PT_EXP,
PT_INVAL,
PT_HTTP,
/* new encapsulator */
PT_ENCAPSULATED,
PT_MFTP,
/* CMU/Monarch's extnsions */
PT_ARP,
PT_MAC,
PT_TORA,
PT_DSR,
PT_AODV,
PT_IMEP,
// RAP packets
PT_RAP_DATA,
PT_RAP_ACK,
PT_TFRC,
PT_TFRC_ACK,
PT_PING,
// Diffusion packets - Chalermek
PT_DIFF,
// LinkState routing update packets
PT_RTPROTO_LS,
// MPLS LDP header
PT_LDP,
// GAF packet
PT_GAF,
// ReadAudio traffic
PT_REALAUDIO,
// Pushback Messages
PT_PUSHBACK,
#ifdef HAVE_STL
// Pragmatic General Multicast
PT_PGM,
#endif //STL
// LMS packets
PT_LMS,
PT_LMS_SETUP,
PT_SCTP,
PT_SCTP_APP1,
// SMAC packet
PT_SMAC,
// DCCP packets
PT_DCCP,
PT_DCCP_REQ,
PT_DCCP_RESP,
PT_DCCP_ACK,
PT_DCCP_DATA,
PT_DCCP_DATAACK,
PT_DCCP_CLOSE,
PT_DCCP_CLOSEREQ,
PT_DCCP_RESET,
// HDLC packet
PT_HDLC,
// XCP packet
PT_XCP,
//
