Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 0 views

    Ri NG

    Uploaded by

    Innovation SRI
    cn experiments

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd

    Ri NG

    Uploaded by

    Innovation SRI
    0 views1 page
    cn experiments

    Original Title

    RiNG

    Copyright

    © © All Rights Reserved

    Available Formats

    PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    cn experiments

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    0 views1 page

    Ri NG

    Uploaded by

    Innovation SRI
    cn experiments

    Copyright:

    © All Rights Reserved
    Download as PDF, TXT or read online from Scribd
    Download as pdf or txt
    You are on page 1of 1

    RiNG: $ns duplex-link $n0 $n4 1Mb 10ms set null3 [new Agent/Null]

    set ns [new Simulator DropTail $ns attach-agent $n6 $null3


    $ns color 1 Red $ns duplex-link $n0 $n5 1Mb 10ms $ns connect $udp2 $null3 $udp2
    DropTail
    $ns color 2 Green set tcp0 [new Agent/TCP] $tcp0 set set packetSize_ 1500
    set nf [open out.nam w] class_ 1 set ftp0 [new Application/FTP]
    $ns namtrace-all $nf $ns attach-agent $n1 $tcp0 $ftp0 attach-agent $tcp0
    proc finish {} { set sink0 [new Agent/TCPSink] $ns at 1.0 "$ftp0 start"
    global ns nf tf $ns attach-agent $n3 $sink0 $ns at 2.0 "$ftp0 stop"
    $ns flush-trace $ns connect $tcp0 $sink0 proc finish {} {
    close $nf set cbr0 [new global ns tracefile namfile
    exec nam out.nam Application/Traffic/CBR] $ns flush-trace
    & exit 0 } $cbr0 set packetSize_ 500 close $tracefile
    set n0 [$ns node] $cbr0 set interval_ 0.01 close $namfile exec nam ex3.nam &
    set n1 [$ns node] $cbr0 attach-agent $tcp0 exit 0}
    set n2 [$ns node] $ns at 0.5 "$cbr0 start"
    set n3 [$ns node] $ns at 4.5 "$cbr0 stop"
    set n4 [$ns node] $ns at 5.0 "finish"
    $ns duplex-link $n0 $n1 1Mb 50ms $ns run
    DropTail WirElEss NW
    $ns duplex-link $n1 $n2 1Mb 50ms set ns [new Simulator]
    DropTail set tracefile [open ex3.tr w]
    $ns duplex-link $n2 $n3 1Mb 50ms $ns trace-all $tracefile
    DropTail
    $ns duplex-link $n3 $n4 1Mb 50ms set namfile [open ex3.nam w]
    DropTail $ns namtrace-all $namfile
    $ns duplex-link $n4 $n1 1Mb 50ms set n0 [$ns node]
    DropTail set n1 [$ns node]
    set tcp0 [new Agent/TCP] set n2 [$ns node]
    $tcp0 set class_ 1 set n3 [$ns node]
    $ns attach-agent $n1 $tcp0 set n4 [$ns node]
    set sink0 [new Agent/TCPSink] set n5 [$ns node]
    $ns attach-agent $n3 $sink0 set n6 [$ns node]
    $ns connect $tcp0 $sink0 $ns duplex-link $n0 $n2 100.0Mb
    set cbr0 [new 10ms DropTail
    Application/Traffic/CBR] $ns queue-limit $n0 $n2 50
    $cbr0 set packetSize_ 500 $ns duplex-link $n2 $n1 100.0Mb
    $cbr0 set interval_ 0.01 10ms DropTail
    $cbr0 attach-agent $tcp0 $ns queue-limit $n2 $n1 50
    $ns at 0.5 "$cbr0 start" $ns duplex-link $n2 $n3 100.0Mb
    $ns at 4.5 "$cbr0 stop" 10ms DropTail
    $ns at 5.0 "finish" $ns queue-limit $n2 $n3 50
    STAR $ns duplex-link $n4 $n3 100.0Mb
    10ms DropTail
    set ns [new Simulator] $ns queue-limit $n4 $n3 50
    set nf [open out.nam w] $ns duplex-link $n3 $n6 100.0Mb
    $ns namtrace-all $nf 10ms DropTail
    proc finish {} { $ns queue-limit $n3 $n6 50
    global ns nf $ns duplex-link-op $n0 $n2 orient
    $ns flush-trace right-down
    close $nf exec nam out.nam $ns duplex-link-op $n2 $n1 orient
    left-down
    & exit 0 }
    $ns duplex-link-op $n2 $n3 orient
    set n0 [$ns node] right
    set n1 [$ns node] $ns duplex-link-op $n4 $n3 orient
    set n2 [$ns node] left-down
    set n3 [$ns node] $ns duplex-link-op $n3 $n6 orient
    set n4 [$ns node] right-down
    set n5 [$ns node] set tcp0 [new Agent/TCP]
    $n0 shape square $ $ns attach-agent $n0 $tcp0
    ns duplex-link $n0 $n1 1Mb 10ms set sink1 [new Agent/TCPSink]
    DropTail $ns attach-agent $n4 $sink1
    $ns duplex-link $n0 $n2 1Mb 10ms $ns connect $tcp0 $sink1
    DropTail $tcp0 set packetSize_ 1500
    $ns duplex-link $n0 $n3 1Mb 10ms set udp2 [new Agent/UDP]
    DropTail
    $ns attach-agent $n1 $udp2

    You might also like