sir,
When i am using below .tcl file to generate nam and xgraph file.It
gives the below error:
error---- "Problems found with input data."
--------------------------------------------------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
set f0 [open out0.tr w]
set f1 [open out1.tr w]
set f2 [open out2.tr w]
set f3 [open out3.nam w]
#$ns trace-all $f
$ns namtrace-all $f3
#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_ 10000K
#$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 f0 f1 f2 f3
#$ns flush-trace
#close $qfile
puts "running nam..."
close $f0
close $f1
close $f2
exec nam out3.nam &
exec xgraph out0.tr out1.tr out2.tr -geometry 800x400 &
exit 0
}
$ns run
thank you
--
View this message in context:
http://network-simulator-ns-2.7690.n7.nabble.com/how-to-generate-nam-file-and-xgraph-tp29986p29989.html
Sent from the ns-users mailing list archive at Nabble.com.
