Re: [ns] new 802.11 - CAP proportion too big
On Wed, 2006-09-06 at 01:02 +0100, Pedro Fortuna wrote:
if ((*tmp).second + m_parameters-getMSDULifetime () now) {
It's delay bounded, and its limited with the value returned by
function getMSDULifetime, which by default is 10 seconds, which is a
very large value for delay.
Do you have a better suggestion ?
I've looked at your Yans code and ported the relevant code to your NS2 branch.
If I may ask, why did you use a queue size limit of 400 packets?
Because this is the max queue size of the linux madwifi driver the last
time I worked on it.
What is the delay limit on queued packets you implemented on Yans?
10s
Mathieu
--
[ns] RTP under NS2
Dear Collagues when simulating the simple-rtp.tcl i have get the message bellow any help are welcome Thanks [EMAIL PROTECTED] ~/ns-allinone-2.29/ns-2.29/tcl/ex $ ns simple-rtp.tcl warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead -- AL Al Bayt University Prince Hussein bin Abdullah Information Technology College ( http://www.aabu.edu.jo/it/index.htm ) Jordan - Do you Yahoo!? Get on board. You're invited to try the new Yahoo! Mail.
Re: [ns] RTP under NS2
a) in tcl/lib/ns-delfault.tcl, add Session/RTP::debug_ set 0 then recompile ns2 then, in your script, use Session/RTP::debug_ set 1 ;# can also be ON to enable debugging b) you need to upgrade your script in the part that you define the UDP port in use of the agents pedro estrela -- Mensagem Original -- De: Sofiane [EMAIL PROTECTED] Para: ns-users@ISI.EDU Enviar: 06/09/2006 Assunto: [ns] RTP under NS2 Dear Collagues when simulating the simple-rtp.tcl i have get the message bellow any help are welcome Thanks [EMAIL PROTECTED] ~/ns-allinone-2.29/ns-2.29/tcl/ex $ ns simple-rtp.tcl warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. warning: no class variable Session/RTP::debug_ see tcl-object.tcl in tclcl for info about this warning. Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483648 Use dst_addr_ and dst_port_ instead Warning dst_ is no longer being supported in NS. dst_ -2147483647 Use dst_addr_ and dst_port_ instead -- AL Al Bayt University Prince Hussein bin Abdullah Information Technology College ( http://www.aabu.edu.jo/it/index.htm ) Jordan - Do you Yahoo!? Get on board. You're invited to try the new Yahoo! Mail.
[ns] [MANET] Lucent WaveLAN vs. 802.11 !?
Hello, I have a few questions concerning IEEE 802.11 simulation using NS : First, the 914 Mhz Lucent WaveLAN DSSS radio interface exists in NS. All the examples simulating this technology use the Mac/802_11 Class, but IEEE 802.11 is not implemented in the 914MHz Lucent WaveLAN. Is this a problem ? If I intend to simulate the IEEE 802.11 Lucent WaveLAN, what should I define (new Classes or simply change the values of CPThresh_, CSThresh_, RXThresh_, Rb_ , Pt_ , freq_ , L_ what should the new values be ?) Why is NS not fully appropriate to simulate the real behavior of a 802.11 network ? Probably because of the propagation model itself, but is it the only reason ? Best regards Alex
[ns] Issues debugginf ns-2.29
Hello Every one, I made some modification to the ns-2.29 and was running my new version. But after running for some time it crashes leaving the following information. I was wondering if any one has suggestion about to make use of the following information to debug ns-2.29. *** glibc detected *** ../ns: corrupted double-linked list: 0x00c1d8b8 *** === Backtrace: = /lib/libc.so.6[0xb59b71] /lib/libc.so.6[0xb5ad8d] /lib/libc.so.6(malloc+0x74)[0xb5c492] /usr//lib/libstdc++.so.6(_Znwj+0x26)[0x220f56] /usr//lib/libstdc++.so.6(_Znaj+0x1d)[0x22106d] ../ns[0x8064762] ../ns[0x8064822] ../ns[0x8118778] ../ns[0x811788e] ../ns[0x8141936] ../ns[0x813f54d] ../ns[0x811e937] ../ns[0x811e9d7] ../ns[0x814853f] ../ns[0x8053927] ../ns[0x8053952] ../ns[0x8053b6e] ../ns[0x8274032] ../ns[0x8277cbe] ../ns(TclInvokeStringCommand+0x45)[0x827c155] ../ns[0x827d7d1] ../ns[0x82a23da] ../ns[0x82a8390] ../ns[0x82a24c4] ../ns[0x82a8390] ../ns(TclObjInterpProc+0x222)[0x82cd4a2] ../ns(TclProcInterpProc+0x51)[0x82cd835] ../ns[0x8277de2] ../ns(TclInvokeStringCommand+0x45)[0x827c155] ../ns[0x827d7d1] ../ns[0x82a23da] ../ns[0x82a8390] ../ns(TclObjInterpProc+0x222)[0x82cd4a2] ../ns(TclProcInterpProc+0x51)[0x82cd835] ../ns[0x8277cbe] ../ns(TclInvokeStringCommand+0x45)[0x827c155] ../ns[0x827d7d1] ../ns[0x827ee5d] ../ns[0x82be363] ../ns[0x82c1315] ../ns(__gxx_personality_v0+0x1d3)[0x804d097] /lib/libc.so.6(__libc_start_main+0xdf)[0xb0bd5f] ../ns(sinh+0x71)[0x804cfe5] === Memory map: 0016b000-0024b000 r-xp fd:00 2716753 /usr/lib/libstdc++.so.6.0.5 0024b000-0025 rw-p 000df000 fd:00 2716753 /usr/lib/libstdc++.so.6.0.5 0025-00256000 rw-p 0025 00:00 0 004c1000-004c2000 r-xp 004c1000 00:00 0 [vdso] 00ab2000-00ac4000 r-xp fd:00 2455315/lib/libnsl-2.3.5.so 00ac4000-00ac5000 r--p 00011000 fd:00 2455315/lib/libnsl-2.3.5.so 00ac5000-00ac6000 rw-p 00012000 fd:00 2455315/lib/libnsl-2.3.5.so 00ac6000-00ac8000 rw-p 00ac6000 00:00 0 00ad5000-00aef000 r-xp fd:00 2455217/lib/ld-2.3.5.so 00aef000-00af r--p 00019000 fd:00 2455217/lib/ld-2.3.5.so 00af-00af1000 rw-p 0001a000 fd:00 2455217/lib/ld-2.3.5.so 00af7000-00c1a000 r-xp fd:00 2455226/lib/libc-2.3.5.so 00c1a000-00c1c000 r--p 00123000 fd:00 2455226/lib/libc-2.3.5.so 00c1c000-00c1e000 rw-p 00125000 fd:00 2455226/lib/libc-2.3.5.so 00c1e000-00c2 rw-p 00c1e000 00:00 0 00c22000-00c45000 r-xp fd:00 2455230/lib/libm-2.3.5.so 00c45000-00c46000 r--p 00022000 fd:00 2455230/lib/libm-2.3.5.so 00c46000-00c47000 rw-p 00023000 fd:00 2455230/lib/libm-2.3.5.so 00c49000-00c4b000 r-xp fd:00 2455232/lib/libdl-2.3.5.so 00c4b000-00c4c000 r--p 1000 fd:00 2455232/lib/libdl-2.3.5.so 00c4c000-00c4d000 rw-p 2000 fd:00 2455232/lib/libdl-2.3.5.so 00d9c000-00dc r-xp fd:00 2704035 /usr/lib/libpcap.so.0.8.3 00dc-00dc1000 rw-p 00024000 fd:00 2704035 /usr/lib/libpcap.so.0.8.3 00dd3000-00ddc000 r-xp fd:00 2455236 /lib/libgcc_s-4.0.1-20050727.so.1 00ddc000-00ddd000 rw-p 9000 fd:00 2455236 /lib/libgcc_s-4.0.1-20050727.so.1 08048000-083b1000 r-xp fd:00 4917311 /root/TENS/ns-allinone-2.29/ns-2.29/ns 083b1000-0844c000 rw-p 00368000 fd:00 4917311 /root/TENS/ns-allinone-2.29/ns-2.29/ns 0844c000-08454000 rw-p 0844c000 00:00 0 0928-0a954000 rw-p 0928 00:00 0 [heap] b7c0-b7c21000 rw-p b7c0 00:00 0 b7c21000-b7d0 ---p b7c21000 00:00 0 b7db5000-b7fb5000 r--p Aborted Thanks a lot. Raghu.
[ns] Problem with the queue command
Hi everybody, I have written these two lines of tcl code: -- set link01 [$ns simplex-link $n0 $n1 512Kb 0ms DropTail] set queue01 [$link01 queue] set link12[$ns simplex-link $n1 $n2 512Kb 0ms DropTail] set queue12 [$link12 queue] -- when launching the execution this error message is shown - unknown command _o47 _o57 when executing $link12 queue -- This means that the first command $link01 queue worked well but not the second one. The more funny is that when I delete the first two lines, there isn't any problem. Can anybody help to solve this problem? Ah, this problem appears with both ns-2.27 and ns-2.28 versions Thanks a lot! -- View this message in context: http://www.nabble.com/Problem-with-the-%22queue%22-command-tf2221427.html#a6154133 Sent from the ns-users forum at Nabble.com.
Re: [ns] Problem with the queue command
Prob a space after link12 would help. Santosh. On 9/5/06, fafou [EMAIL PROTECTED] wrote: Hi everybody, I have written these two lines of tcl code: -- set link01 [$ns simplex-link $n0 $n1 512Kb 0ms DropTail] set queue01 [$link01 queue] set link12[$ns simplex-link $n1 $n2 512Kb 0ms DropTail] set queue12 [$link12 queue] -- when launching the execution this error message is shown - unknown command _o47 _o57 when executing $link12 queue -- This means that the first command $link01 queue worked well but not the second one. The more funny is that when I delete the first two lines, there isn't any problem. Can anybody help to solve this problem? Ah, this problem appears with both ns-2.27 and ns-2.28 versions Thanks a lot! -- View this message in context: http://www.nabble.com/Problem-with-the-%22queue%22-command-tf2221427.html#a6154133 Sent from the ns-users forum at Nabble.com.
Re: [ns] Problem with the queue command
Use set link12 [$ns simplex-link $n1 $n2 512Kb 0ms DropTail] (it has a missing space char nect to [) Pedro Vale Estrela -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of fafou Sent: terça-feira, 5 de Setembro de 2006 16:24 To: ns-users@ISI.EDU Subject: [ns] Problem with the queue command Hi everybody, I have written these two lines of tcl code: -- set link01 [$ns simplex-link $n0 $n1 512Kb 0ms DropTail] set queue01 [$link01 queue] set link12[$ns simplex-link $n1 $n2 512Kb 0ms DropTail] set queue12 [$link12 queue] -- when launching the execution this error message is shown -- --- unknown command _o47 _o57 when executing $link12 queue -- This means that the first command $link01 queue worked well but not the second one. The more funny is that when I delete the first two lines, there isn't any problem. Can anybody help to solve this problem? Ah, this problem appears with both ns-2.27 and ns-2.28 versions Thanks a lot! -- View this message in context: http://www.nabble.com/Problem-with-the- %22queue%22-command-tf2221427.html#a6154133 Sent from the ns-users forum at Nabble.com.
[ns] multiple wireless propagation models
All,
Some colleagues and I are trying to simulate two separate ad hoc networks
running simultaneously in the same geographic area in order to determine the
negative effects of their uncoordinated interaction. The two networks have
different wireless propagation models, which seems to be allowed by ns. We
are defining the groups of nodes as follows:
. . .
set val(chan)Channel/WirelessChannel ;# channel type
set val(prop2) Propagation/TwoRayGround ;# radio-propagation model
set val(prop1) Propagation/OtherPropModel ;# new propagation model
set val(netif) Phy/WirelessPhy ;# network interface type
set val(mac) Mac/802_11 ;# MAC type
set val(rp1)AODV ;# AODV
set val(rp2)OLSR ;# OLSR
. . .
$ns_ node-config -adhocRouting $val(rp1) \
-macType $val(mac) \
-propType $val(prop1) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop1) \
-phyType $val(netif) \
-channelType $val(chan) \
-topoInstance $topo \
for {set i $val(nn1)} {$i $val(nn2) } {incr i} {
set node_($i) [$ns_ node]
}
. . .
$ns_ node-config -adhocRouting $val(rp2) \
-macType $val(mac) \
-propType $val(prop2) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop1) \
-phyType $val(netif) \
-channelType $val(chan) \
-topoInstance $topo \
for {set i $val(nn2)} {$i $val(nn) } {incr i} {
set node_($i) [$ns_ node]
}
. . .
When we do this, we get two separate groups of nodes using different ad hoc
routing protocols, but they both use the same radio propagation model, even
when we explicitly define them to have different propagation models (prop1
and prop2). As it turns out, whichever propagation model is defined for the
first set of nodes is the one that gets used by both groups.
I've done some digging in the ns source, but not enough to figure out whey
this is happening. Any advice is appreciated.
Regards,
-Dave
Re: [ns] Issues debugginf ns-2.29
a) It hasn't the function names for the NS proc (as it has for tcl procs) Is ns2 stuff compiled for debugging? (-g gcc option)? b) use DDD and valgrind http://tagus.inesc-id.pt/~pestrela/ns2/ns2_debugging.html#_Toc122255042 Pedro Estrela -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Raghu-kisore Neelisetti Sent: quarta-feira, 6 de Setembro de 2006 18:49 To: ns-users@ISI.EDU Subject: [ns] Issues debugginf ns-2.29 Hello Every one, I made some modification to the ns-2.29 and was running my new version. But after running for some time it crashes leaving the following information. I was wondering if any one has suggestion about to make use of the following information to debug ns-2.29. *** glibc detected *** ../ns: corrupted double-linked list: 0x00c1d8b8 *** === Backtrace: = /lib/libc.so.6[0xb59b71] /lib/libc.so.6[0xb5ad8d] /lib/libc.so.6(malloc+0x74)[0xb5c492] /usr//lib/libstdc++.so.6(_Znwj+0x26)[0x220f56] /usr//lib/libstdc++.so.6(_Znaj+0x1d)[0x22106d] ../ns[0x8064762] ../ns[0x8064822] ../ns[0x8118778] ../ns[0x811788e] ../ns[0x8141936] ../ns[0x813f54d] ../ns[0x811e937] ../ns[0x811e9d7] ../ns[0x814853f] ../ns[0x8053927] ../ns[0x8053952] ../ns[0x8053b6e] ../ns[0x8274032] ../ns[0x8277cbe] ../ns(TclInvokeStringCommand+0x45)[0x827c155] ../ns[0x827d7d1] ../ns[0x82a23da] ../ns[0x82a8390] ../ns[0x82a24c4] ../ns[0x82a8390] ../ns(TclObjInterpProc+0x222)[0x82cd4a2] ../ns(TclProcInterpProc+0x51)[0x82cd835] ../ns[0x8277de2] ../ns(TclInvokeStringCommand+0x45)[0x827c155] ../ns[0x827d7d1] ../ns[0x82a23da] ../ns[0x82a8390] ../ns(TclObjInterpProc+0x222)[0x82cd4a2] ../ns(TclProcInterpProc+0x51)[0x82cd835] ../ns[0x8277cbe] ../ns(TclInvokeStringCommand+0x45)[0x827c155] ../ns[0x827d7d1] ../ns[0x827ee5d] ../ns[0x82be363] ../ns[0x82c1315] ../ns(__gxx_personality_v0+0x1d3)[0x804d097] /lib/libc.so.6(__libc_start_main+0xdf)[0xb0bd5f] ../ns(sinh+0x71)[0x804cfe5] === Memory map: 0016b000-0024b000 r-xp fd:00 2716753 /usr/lib/libstdc++.so.6.0.5 0024b000-0025 rw-p 000df000 fd:00 2716753 /usr/lib/libstdc++.so.6.0.5 0025-00256000 rw-p 0025 00:00 0 004c1000-004c2000 r-xp 004c1000 00:00 0 [vdso] 00ab2000-00ac4000 r-xp fd:00 2455315/lib/libnsl-2.3.5.so 00ac4000-00ac5000 r--p 00011000 fd:00 2455315/lib/libnsl-2.3.5.so 00ac5000-00ac6000 rw-p 00012000 fd:00 2455315/lib/libnsl-2.3.5.so 00ac6000-00ac8000 rw-p 00ac6000 00:00 0 00ad5000-00aef000 r-xp fd:00 2455217/lib/ld-2.3.5.so 00aef000-00af r--p 00019000 fd:00 2455217/lib/ld-2.3.5.so 00af-00af1000 rw-p 0001a000 fd:00 2455217/lib/ld-2.3.5.so 00af7000-00c1a000 r-xp fd:00 2455226/lib/libc-2.3.5.so 00c1a000-00c1c000 r--p 00123000 fd:00 2455226/lib/libc-2.3.5.so 00c1c000-00c1e000 rw-p 00125000 fd:00 2455226/lib/libc-2.3.5.so 00c1e000-00c2 rw-p 00c1e000 00:00 0 00c22000-00c45000 r-xp fd:00 2455230/lib/libm-2.3.5.so 00c45000-00c46000 r--p 00022000 fd:00 2455230/lib/libm-2.3.5.so 00c46000-00c47000 rw-p 00023000 fd:00 2455230/lib/libm-2.3.5.so 00c49000-00c4b000 r-xp fd:00 2455232/lib/libdl-2.3.5.so 00c4b000-00c4c000 r--p 1000 fd:00 2455232/lib/libdl-2.3.5.so 00c4c000-00c4d000 rw-p 2000 fd:00 2455232/lib/libdl-2.3.5.so 00d9c000-00dc r-xp fd:00 2704035 /usr/lib/libpcap.so.0.8.3 00dc-00dc1000 rw-p 00024000 fd:00 2704035 /usr/lib/libpcap.so.0.8.3 00dd3000-00ddc000 r-xp fd:00 2455236 /lib/libgcc_s-4.0.1-20050727.so.1 00ddc000-00ddd000 rw-p 9000 fd:00 2455236 /lib/libgcc_s-4.0.1-20050727.so.1 08048000-083b1000 r-xp fd:00 4917311 /root/TENS/ns-allinone-2.29/ns-2.29/ns 083b1000-0844c000 rw-p 00368000 fd:00 4917311 /root/TENS/ns-allinone-2.29/ns-2.29/ns 0844c000-08454000 rw-p 0844c000 00:00 0 0928-0a954000 rw-p 0928 00:00 0 [heap] b7c0-b7c21000 rw-p b7c0 00:00 0 b7c21000-b7d0 ---p b7c21000 00:00 0 b7db5000-b7fb5000 r--p Aborted Thanks a lot. Raghu.
[ns] Help: persisting problem with the queue command
Hi everybody, I have written these two lines of tcl code: -- set link01 [$ns simplex-link $n0 $n1 512Kb 0ms DropTail] set queue01 [$link01 queue] set link12 [$ns simplex-link $n1 $n2 512Kb 0ms DropTail] set queue12 [$link12 queue] -- when launching the execution this error message is shown - unknown command _o47 _o57 when executing $link12 queue -- This means that the first command $link01 queue worked well but not the second one. The more funny is that when I delete the first two lines, there isn't any problem. Can anybody help to solve this problem? Ah, this problem appears with both ns-2.27 and ns-2.28 versions Some of you replyed and said that the problem was a missing space in the third line (after link12) but this space was only missing in the mail and not in the source file. So, the problem persists! Thanks a lot! -- View this message in context: http://www.nabble.com/Help%3A-persisting-problem-with-the-%22queue%22-command-tf2228980.html#a6177816 Sent from the ns-users forum at Nabble.com.
Re: [ns] Problem with the queue command
Use the mash inspector to check the classes of _o47 etc http://tagus.inesc-id.pt/~pestrela/ns2/ns2_debugging2.html -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of fafou Sent: quarta-feira, 6 de Setembro de 2006 19:57 To: ns-users@ISI.EDU Subject: Re: [ns] Problem with the queue command Thank you for repliying but the space char before [ is only missing in the mail I wrote and not in the source file. So, the problem persists. Thanks Pedro Vale Estrela wrote: Use set link12 [$ns simplex-link $n1 $n2 512Kb 0ms DropTail] (it has a missing space char nect to [) Pedro Vale Estrela -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of fafou Sent: terça-feira, 5 de Setembro de 2006 16:24 To: ns-users@ISI.EDU Subject: [ns] Problem with the queue command Hi everybody, I have written these two lines of tcl code: --- --- set link01 [$ns simplex-link $n0 $n1 512Kb 0ms DropTail] set queue01 [$link01 queue] set link12[$ns simplex-link $n1 $n2 512Kb 0ms DropTail] set queue12 [$link12 queue] --- --- when launching the execution this error message is shown --- --- --- unknown command _o47 _o57 when executing $link12 queue --- --- This means that the first command $link01 queue worked well but not the second one. The more funny is that when I delete the first two lines, there isn't any problem. Can anybody help to solve this problem? Ah, this problem appears with both ns-2.27 and ns-2.28 versions Thanks a lot! -- View this message in context: http://www.nabble.com/Problem-with-the- %22queue%22-command-tf2221427.html#a6154133 Sent from the ns-users forum at Nabble.com. -- View this message in context: http://www.nabble.com/Problem-with-the- %22queue%22-command-tf2221427.html#a6177635 Sent from the ns-users forum at Nabble.com.
[ns] empty file
Hi,
The TCL below is doing empty traces files, and I realy dont kown
why I was trying to use PI controller but with empty files I tried
DropTail just to test.
Can you help me!?
###
set ns [new Simulator]
set numeroNodos 5
set numeroRouters 3
set tipo_fila DropTail
set mbps_link_atolado 155
set tam_fila 600
#delay do link atolado 0.03 = 30ms
set bdelay 0.03
set delay 0.03
set start 0.1
set stop 10.0
# abre arqs de trace para gravacao
set f [open /opt/tcl/feito/out.tr.renata5pi.$numeroNodos w]
$ns trace-all $f
##
## NODOS DA REDE #
##
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
$n0 shape box
$n1 shape box
$n2 shape box
# CRIA OS NODOS, S DE SENDERS E R DE RECEIVER
for {set i 0} {$i $numeroNodos} {incr i} {
set s($i) [$ns node]
# JA VAI SETANDO OS LINKS ENTRE OS ROUTERS DAS PONTOS E OS COMPUTADORES
$ns duplex-link $n0 $s($i) 10Mb 100ms DropTail
set r($i) [$ns node]
# JA VAI SETANDO OS LINKS ENTRE OS ROUTERS DAS PONTOS E OS COMPUTADORES
$ns duplex-link $n1 $r($i) 10Mb 100ms DropTail
}
##
##LINKS #
##
# (0)--(2)--(1)
# (0) DT (2) GREEN (1)
# INFORMA QUAL LINK TEM QUAL TIPO DE GERENCIA DE FILA (ENTRE OS 3
ROUTERS PRINCIPAIS)
$ns duplex-link $n0 $n2 155Mb 30ms DropTail
$ns duplex-link-op $n0 $n2 label DropTail
$ns duplex-link $n2 $n1 155Mb 30ms DropTail
$ns duplex-link-op $n2 $n1 label DropTail
##
##FLUXOS #
##
for {set i 0} {$i $numeroNodos} {incr i} {
set tcp($i) [new Agent/TCP]
$tcp($i) set window_ 3000
$tcp($i) set fid_ ($i)
set SinkTCP($i) [new Agent/TCPSink]
$SinkTCP($i) set flowid_ ($i)
$ns attach-agent $r($i) $SinkTCP($i)
$ns attach-agent $s($i) $tcp($i)
$ns connect $tcp($i) $SinkTCP($i)
set ftp($i) [new Application/FTP]
$ftp($i) attach-agent $tcp($i)
}
##
## Outros #
##
#if {$tipo_fila == PI} {
# set piq [[$ns link $n0 $n2] queue]
# $piq set bytes_ true
# $piq set queue_in_bytes_ true
# $piq set a_ 0,1822
# puts SETTING PI
# $piq set b_ 0,1816
# $piq set w_ 0.353741496598639
# $piq set qref_ 200
#}
#
#set rtt [expr 2*(0.005+$delay + $bdelay)]
#
#for {set i 0} {$i $numeroNodos } {incr i} {
#if {$numeroNodos 1} {
# set delay [expr 0.001 + (($MAX_DELAY - 0.001)*$i)/($numeroNodos-1)]
#} else {
# set delay 0.001
#}
#}
#
for {set i 0} {$i $numeroNodos } {incr i} {
puts startando ftp($i)
$ns at $start $ftp($i) start
}
for {set i 0} {$i $numeroNodos } {incr i} {
puts stopando ftp($i)
$ns at $stop $ftp($i) stop
}
$ns at $[expr 0.2 + $stop] finish
proc finish {} {
global ns f
$ns flush-trace
puts DENTRO DO FINISH
# fecha os FD dos arqs
close $f
exit 0
}
$ns run
--
Renata Vidal
Triste é o destino de quem tenta vencer as batalhas e ter sucesso nos
ataques sem cultivar o espírito da iniciativa (A Arte da Guerra – SUN
TSU – pg 102)
