[ns] ns-random
Mandeep Baines
mbaines@nortelnetworks.com
Tue, 5 Dec 2000 13:12:01 -0500
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
------_=_NextPart_001_01C05EE6.DD0F2460
Content-Type: text/plain
Just a thought. But I think your simulation may be deterministic.
I don't see anything random happening. You have CBR traffic over DropTail
queues.
> -----Original Message-----
> From: Peter Rabinovitch [SMTP:PeterR@sedonanetworks.com]
> Sent: Tuesday, December 05, 2000 9:48 AM
> To: ns-users@ISI.EDU
> Subject: [ns] ns-random
>
> Ok, I've checked the archives, but nothng that applies _directly_ to this.
> I
> run the following script, and the output is identical regardless of the
> random seed used.
>
> What am I doing wrong?
>
> ###################################
> ns-random 23
>
> set ns [new Simulator] ;
> set f [open out.tr w]
> $ns trace-all $f
> Trace set show_tcphdr_ 1
> set n0 [$ns node]
> set n1 [$ns node]
> set n2 [$ns node]
> set n3 [$ns node]
>
> $ns duplex-link $n0 $n2 5M 2ms DropTail
> $ns duplex-link $n1 $n2 5M 2ms DropTail
> $ns duplex-link $n2 $n3 1.5M 10ms DropTail
>
> set udp0 [new Agent/UDP] ;
> $ns attach-agent $n0 $udp0 ;
> set cbr0 [new Application/Traffic/CBR] ;
> $cbr0 attach-agent $udp0 ;
> $udp0 set class_ 0 ;
>
> set null0 [new Agent/Null] ;
> $ns attach-agent $n3 $null0 ;
> $ns connect $udp0 $null0
> $ns at 1.0 "$cbr0 start"
> puts [$cbr0 set packetSize_]
> puts [$cbr0 set interval_]
>
> set tcp [new Agent/TCP/FullTcp]
> $ns attach-agent $n1 $tcp
> set sink [new Agent/TCP/FullTcp]
> $ns attach-agent $n3 $sink
> set ftp [new Application/FTP] ;
> $ftp attach-agent $tcp
>
> $ns at 1.2 "$ftp start"
> $ns connect $tcp $sink
> $ns at 1.35 "$ns detach-agent $n0 $tcp ; $ns detach-agent $n3 $sink"
> $tcp set fid_ 0
> $sink set fid_ 0
> $sink listen ;
> $tcp set window_ 100;
> $tcp set segsize_ 1500
>
> $ns at 3.0 "finish"
> proc finish {} {
> global ns f
> $ns flush-trace
> close $f
>
>
> exit 0
> }
>
> $ns run
------_=_NextPart_001_01C05EE6.DD0F2460
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2652.35">
<TITLE>RE: [ns] ns-random</TITLE>
</HEAD>
<BODY>
<P><FONT COLOR=3D"#0000FF" SIZE=3D2 FACE=3D"Arial">Just a thought. But =
I think your simulation may be deterministic.</FONT>
<BR><FONT COLOR=3D"#0000FF" SIZE=3D2 FACE=3D"Arial">I don't see =
anything random happening. You have CBR traffic over DropTail =
queues.</FONT>
</P>
<UL>
<P><FONT SIZE=3D1 FACE=3D"Arial">-----Original Message-----</FONT>
<BR><B><FONT SIZE=3D1 FACE=3D"Arial">From: </FONT></B> <FONT =
SIZE=3D1 FACE=3D"Arial">Peter Rabinovitch =
[SMTP:PeterR@sedonanetworks.com]</FONT>
<BR><B><FONT SIZE=3D1 FACE=3D"Arial">Sent: </FONT></B> <FONT =
SIZE=3D1 FACE=3D"Arial">Tuesday, December 05, 2000 9:48 AM</FONT>
<BR><B><FONT SIZE=3D1 =
FACE=3D"Arial">To: </FONT></B> <FONT SIZE=3D1 =
FACE=3D"Arial">ns-users@ISI.EDU</FONT>
<BR><B><FONT SIZE=3D1 =
FACE=3D"Arial">Subject: </FONT>=
</B> <FONT SIZE=3D1 FACE=3D"Arial">[ns] ns-random</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Ok, I've checked the archives, but =
nothng that applies _directly_ to this. I</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">run the following script, and the =
output is identical regardless of the</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">random seed used.</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">What am I doing wrong?</FONT>
</P>
<P><FONT SIZE=3D2 =
FACE=3D"Arial">###################################</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ns-random 23</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">set ns [new Simulator] ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set f [open out.tr w]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns trace-all $f</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">Trace set show_tcphdr_ 1</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set n0 [$ns node]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set n1 [$ns node]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set n2 [$ns node]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set n3 [$ns node]</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">$ns duplex-link $n0 $n2 5M 2ms =
DropTail</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns duplex-link $n1 $n2 5M 2ms =
DropTail</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns duplex-link $n2 $n3 1.5M 10ms =
DropTail</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">set udp0 [new Agent/UDP] ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns attach-agent $n0 $udp0 ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set cbr0 [new =
Application/Traffic/CBR] ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$cbr0 attach-agent $udp0 ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$udp0 set class_ 0 ;</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">set null0 [new Agent/Null] ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns attach-agent $n3 $null0 ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns connect $udp0 $null0</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns at 1.0 "$cbr0 =
start"</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">puts [$cbr0 set packetSize_]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">puts [$cbr0 set interval_]</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">set tcp [new Agent/TCP/FullTcp]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns attach-agent $n1 $tcp</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set sink [new =
Agent/TCP/FullTcp]</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns attach-agent $n3 $sink</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">set ftp [new Application/FTP] =
;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ftp attach-agent $tcp</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">$ns at 1.2 "$ftp =
start"</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns connect $tcp $sink</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns at 1.35 "$ns detach-agent =
$n0 $tcp ; $ns detach-agent $n3 $sink"</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$tcp set fid_ 0</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$sink set fid_ 0</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$sink listen ;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$tcp set window_ 100;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$tcp set segsize_ 1500</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">$ns at 3.0 "finish"</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">proc finish {} {</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">global ns f </FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">$ns flush-trace</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">close $f</FONT>
</P>
<BR>
<P><FONT SIZE=3D2 FACE=3D"Arial">exit 0</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">}</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">$ns run</FONT>
</P>
</UL>
</BODY>
</HTML>
------_=_NextPart_001_01C05EE6.DD0F2460--