Re #40.
I have installed lte-ns-2.33-ubuntu10_i386 and when I a; trying to run eyana.tcl mNam works ans the result is just
warning: no class variable Session/RTP::debug_
see tcl-object.tcl in tclcl for info about this warning.
But I have a problem with my own project
Code:
set val(chan) Channel/WirelessChannel
set val(prop) Propagation/TwoRayGround
set val(netif) Phy/WirelessPhy
set val(mac) Mac/802_11
set val(ifq) Queue/DropTail/PriQueue
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(ifqlen) 50
set val(nn) 5 ;
set val(nU) 1 ;
set val(nb) 6 ;
set val(rp) DSDV
set val(x) 500
set val(y) 500
set ns_ [new Simulator]
set tracefd [open scenario.tr w]
$ns_ trace-all $tracefd
set namtrace [open scenario.nam w]
$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
create-god [expr $val(nb)]
set chan_1_ [new $val(chan)]
$ns_ node-config -adhocRouting $val(rp) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop) \
-phyType $val(netif) \
-topoInstance $topo \
-channelType $val(chan) \
-agentTrace ON \
-routerTrace ON \
-macTrace OFF \
-movementTrace OFF
Queue/LTEQueue set qos_ true
Queue/LTEQueue set flow_control_ false
$ns_ node-config -wiredRouting OFF
for {set i 1} {$i <= $val(nU) } {incr i} {
set UE($i) [$ns_ node] ;#UE
$UE($i) random-motion 0
$UE($i) label "UE $i"
}
$ns_ node-config -wiredRouting ON
set node_(4) [$ns_ node] ; #MME
$node_(4) random-motion 0
$node_(4) label "MME"
set node_(3) [$ns_ node] ; #aGW
$node_(3) random-motion 0
set node_(2) [$ns_ node] ; #aGW
$node_(2) random-motion 0
Phy/WirelessPhy set CSThresh_ 7.69113e-08 ;
Phy/WirelessPhy set RXThresh_ 2.13643e-07 ;
set node_(0) [$ns_ node];
$node_(0) random-motion 0
$node_(0) label "eNB1"
set node_(1) [$ns_ node] ;
$node_(1) random-motion 0
$node_(1) label "eNb2"
for {set i 1} {$i <= $val(nU)} {incr i} {
$ns_ initial_node_pos $UE($i) 10 }
$node_(4) set X_ 250.00
$node_(4) set Y_ 400.00
$node_(4) set Z_ 0.00
$node_(3) set X_ 350.00
$node_(3) set Y_ 300.00
$node_(3) set Z_ 0.00
$node_(2) set X_ 150.00
$node_(2) set Y_ 300.00
$node_(2) set Z_ 0.00
$node_(1) set X_ 450.00
$node_(1) set Y_ 200.00
$node_(1) set Z_ 0.00
$node_(0) set X_ 50.00
$node_(0) set Y_ 200.00
$node_(0) set Z_ 0.00
for {set i 1} {$i <= $val(nU) } {incr i} {
$UE($i) set X_ 220.00
$UE($i) set Y_ 350.00
$UE($i) set Z_ 0.00 }
$ns_ simplex-link $node_(3) $node_(4) 5Mb 2ms DropTail
$ns_ simplex-link-op $node_(3) $node_(4) orient left-up
$ns_ simplex-link $node_(4) $node_(3) 2Mb 2ms LTEQueue/DLS1Queue
$ns_ simplex-link-op $node_(4) $node_(3) orient right-down
$ns_ simplex-link $node_(2) $node_(4) 5Mb 2ms DropTail
$ns_ simplex-link-op $node_(2) $node_(4) orient right-up
$ns_ simplex-link $node_(4) $node_(2) 2Mb 2ms LTEQueue/DLS1Queue
$ns_ simplex-link-op $node_(4) $node_(2) orient left-down
$ns_ simplex-link $node_(0) $node_(2) 5Mb 2ms LTEQueue/ULS1Queue
$ns_ simplex-link-op $node_(0) $node_(2) orient right-up
$ns_ simplex-link $node_(2) $node_(0) 2Mb 2ms LTEQueue/DLS1Queue
$ns_ simplex-link-op $node_(2) $node_(0) orient left-down
$ns_ simplex-link $node_(1) $node_(3) 5Mb 2ms LTEQueue/ULS1Queue
$ns_ simplex-link-op $node_(1) $node_(3) orient left-up
$ns_ simplex-link $node_(3) $node_(1) 2Mb 2ms LTEQueue/DLS1Queue
$ns_ simplex-link-op $node_(3) $node_(1) orient right-down
$ns_ at 15.0 "$UE(1) setdest 290.0 450.0 100.0"
$ns_ at 30.0 "$UE(1) setdest 220.0 350.0 100.0"
for {set i 1} {$i <= $val(nU)} {incr i} {
set null($i) [new Agent/Null]
$ns_ attach-agent $UE($i) $null($i)
set udp($i) [new Agent/UDP]
$ns_ attach-agent $node_(4) $udp($i)
$ns_ connect $null($i) $udp($i)
$udp($i) set class_ 1
set cbr($i) [new Application/Traffic/CBR]
$cbr($i) attach-agent $udp($i)
}
for {set i 1} {$i < $val(nU) } {incr i} {
#$ns_ at 3.0 "$ftp($i) start"
#$ns_ at 99.0 "$ftp($i) stop"
$ns_ at 3.0 "$cbr($i) start"
$ns_ at 99.0 "$cbr($i) stop" }
for {set i 1} {$i < $val(nU) } {incr i} {
$ns_ at 100.0 "$UE($i) reset";
}
for {set i 0} {$i < $val(nn) } {incr i} {
$ns_ at 100.0 "$node_($i) reset";
}
$ns_ at 100.0 "stop"
$ns_ at 100.01 "puts \"NS EXITING...\" ; $ns_ halt"
proc stop {} {
global ns_ tracefd namtrace
$ns_ flush-trace
#exec nam scenario2 &
close $tracefd
close $namtrace
}
puts "Starting Simulation..."
#puts "$nb"
$ns_ run
I have a result
num_nodes is set 6
warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl
INITIALIZE THE LIST xListHead
Starting Simulation...
All the UEs are empty in DLS1Queue!
All the UEs are empty in DLS1Queue!
All the UEs are empty in DLS1Queue!
All the UEs are empty in DLS1Queue!
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 550.0
SORTING LISTS ...DONE!
NS EXITING...
Please my friend help me my project is about evaluation of Qos of video streaming in mobile cloud computing I have to implement LTE module and I have to generate graphs that describe the Qos of video streaming
Scenario 1
At first, we will generate the streaming traffic and evaluate the performance.
Increase the number of UEs having services between 1 to 25 UEs
Make the UEs move in the served zone with a constant speed fixed at 1m/s which is equivalent to 3.6 km/h.
A handover will be executed.
Testing the Delay, the Throughput and the packet loss ratio.
Sceario 2
At first, we will generate the streaming traffic and evaluate the performance.
Only one UE is using the network and it moves with a speed from 3.6 km/h to 180 km/h.
A handover will be executed at 23s of the simulation and the UE will be attached to eNB2 instead of eNB1.
Thanks a lot for your help