[text] Small

Viewer

  1. set ns [new Simulator]
  2. $ns rtproto LS
  3. set node1 [$ns node]
  4. set node2 [$ns node]
  5. set node3 [$ns node]
  6. set node4 [$ns node]
  7. set node5 [$ns node]
  8. set node6 [$ns node]
  9. set node7 [$ns node]
  10. set tf [open out.tr w]
  11. $ns trace-all $tf
  12. set nf [open out.nam w]
  13. $ns namtrace-all $nf
  14. $node1 label "node 1"
  15. $node1 label "node 2"
  16. $node1 label "node 3"
  17. $nodel label "node 4"
  18. $node1 label "node S"
  19. $nodel label "node 6"
  20. $nodel label "node 7"
  21. $nodel label-color blue
  22. $node2 label-color red
  23. $node3 label-color red
  24. $node4 label-color blue
  25. $node5 label-color blue
  26. $node6 label-color blue
  27. $node7 label-color blue
  28. $ns duplex-link $node1 $node2 1.5Mb 10ms DropTail
  29. $ns duplex-link $node2 $node3 1.5Mb 10ms DropTail
  30. $ns duplex-link $node3 $node4 1.5Mb 10ms DropTail
  31. $ns duplex-link $node4 $node5 1.5Mb 10ms DropTail
  32. $ns duplex-link $node5 $node6 1.5Mb 10ms DropTail
  33. $ns duplex-link $node6 $node7 1.5Mb 10ms DropTail
  34. $ns duplex-link $node7 $node1 1.5Mb 10ms DropTail
  35. $ns duplex-link-op $node1 $node2 orient left-down
  36. $ns duplex-link-op $node2 $node3 orient left-down
  37. $ns duplex-link-op $node3 $node4 orient right-down
  38. $ns duplex-link-op $node4 $node5 orient right
  39. $ns duplex-link-op $node5 $node6 orient right-up
  40. $ns duplex-link-op $node6 $node7 orient left-up
  41. $ns duplex-link-op $node7 $node1 orient left-up
  42. set tcp2 [new Agent/TCP]
  43. $ns attach-agent $node1 $tcp2
  44. set sink2 [new Agent/TCPSink]
  45. $ns attach-agent $node4 $sink2
  46. $ns connect $tcp2 $sink2
  47. set traffic_ftp2 [new Application/FTP]
  48. $traffic_ftp2 attach-agent $tcp2
  49. proc finish (H

Editor

You can edit this paste and save as new:


File Description
  • Small
  • Paste Code
  • 22 Apr-2024
  • 1.52 Kb
You can Share it: