Advertisement
Guest User

Untitled

a guest
Sep 24th, 2017
63
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.42 KB | None | 0 0
  1. set ns [new Simulator]
  2.  
  3. $ns color 1 Yellow
  4. $ns color 2 Red
  5.  
  6. set nf [open out.nam w]
  7. $ns namtrace-all $nf
  8.  
  9. proc fim {} {
  10. global ns nf
  11. $ns flush-trace
  12. close $nf
  13. exec nam out.nam
  14. exit 0
  15. }
  16.  
  17. set n1 [$ns node]
  18. set n2 [$ns node]
  19. set n3 [$ns node]
  20. set n4 [$ns node]
  21. set n5 [$ns node]
  22. set n6 [$ns node]
  23.  
  24. $ns duplex-link $n1 $n2 1Mb 10ms DropTail
  25. $ns duplex-link $n5 $n2 1Mb 10ms DropTail
  26. $ns duplex-link $n2 $n3 1Mb 10ms DropTail
  27. $ns duplex-link $n6 $n3 1Mb 10ms DropTail
  28. $ns duplex-link $n3 $n4 1Mb 10ms DropTail
  29.  
  30. $ns duplex-link-op $n1 $n2 orient right
  31. $ns duplex-link-op $n5 $n2 orient up
  32. $ns duplex-link-op $n2 $n3 orient right
  33. $ns duplex-link-op $n6 $n3 orient up
  34. $ns duplex-link-op $n3 $n4 orient right
  35.  
  36. set udp0 [new Agent/UDP]
  37. $ns attach-agent $n1 $udp0
  38.  
  39. set cbr0 [new Application/Traffic/CBR]
  40. $cbr0 set packetSize_ 500
  41. $cbr0 set interval_ 0.005
  42. $cbr0 attach-agent $udp0
  43.  
  44. set udp1 [new Agent/UDP]
  45. $ns attach-agent $n5 $udp1
  46.  
  47. set cbr1 [new Application/Traffic/CBR]
  48. $cbr1 set packetSize_ 500
  49. $cbr1 set interval_ 0.005
  50. $cbr1 attach-agent $udp1
  51.  
  52. set null0 [new Agent/Null]
  53. $ns attach-agent $n4 $null0
  54.  
  55. set null1 [new Agent/Null]
  56. $ns attach-agent $n6 $null1
  57.  
  58. $ns connect $udp0 $null0
  59. $ns connect $udp1 $null1
  60.  
  61.  
  62.  
  63. $ns at 0.5 "$cbr0 start"
  64. $ns at 1.0 "$cbr1 start"
  65. $ns at 4.0 "$cbr1 stop"
  66. $ns at 4.5 "$cbr0 stop"
  67.  
  68. $udp0 set class_ 1
  69. $udp1 set class_ 2
  70.  
  71. $ns at 5.0 "fim"
  72.  
  73. $ns run
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement