fork download
copy 
  1. set ns [new Simulator] 
  2. set nf [open lab1.nam w] 
  3. $ns namtrace-all $nf 
  4. set tf [open lab1.tr w] 
  5. $ns trace-all $tf 
  6. proc finish { } { 
  7. global ns nf tf 
  8. $ns flush-trace 
  9. close $nf 
  10. close $tf 
  11. exec nam lab1.nam & 
  12. exit 0 
  13. } 
  14. set n0 [$ns node] 
  15. set n2 [$ns node] 
  16. set n3 [$ns node] 
  17. # Letter S is capital 
  18. # open a nam trace file in write mode 
  19. # nf  nam filename 
  20. # tf  trace filename 
  21. # clears trace file contents 
  22. $ns duplex-link $n0 $n2 200Mb 10ms DropTail # establishing links 
  23. $ns duplex-link $n2 $n3 1Mb 1000ms DropTail 
  24. $ns queue-limit $n0 $n2 10 
  25. set udp0 [new Agent/UDP] 
  26. $ns attach-agent $n0 $udp0 
  27. set cbr0 [new Application/Traffic/CBR] 
  28. $cbr0 set packetSize_ 500 
  29. $cbr0 set interval_ 0.005 
  30. $cbr0 attach-agent $udp0 
  31. set null0 [new Agent/Null] 
  32. $ns attach-agent $n3 $null0 
  33. $ns connect $udp0 $null0 
  34. $ns at 0.1 "$cbr0 start" 
  35. $ns at 1.0 "finish" 
  36. $ns run set ns [new Simulator] 
  37. set nf [open lab1.nam w] 
  38. $ns namtrace-all $nf 
  39. set tf [open lab1.tr w] 
  40. $ns trace-all $tf 
  41. proc finish { } { 
  42. global ns nf tf 
  43. $ns flush-trace 
  44. close $nf 
  45. close $tf 
  46. exec nam lab1.nam & 
  47. exit 0 
  48. } 
  49. set n0 [$ns node] 
  50. set n2 [$ns node] 
  51. set n3 [$ns node] 
  52. # Letter S is capital 
  53. # open a nam trace file in write mode 
  54. # nf  nam filename 
  55. # tf  trace filename 
  56. # clears trace file contents 
  57. $ns duplex-link $n0 $n2 200Mb 10ms DropTail # establishing links 
  58. $ns duplex-link $n2 $n3 1Mb 1000ms DropTail 
  59. $ns queue-limit $n0 $n2 10 
  60. set udp0 [new Agent/UDP] 
  61. $ns attach-agent $n0 $udp0 
  62. set cbr0 [new Application/Traffic/CBR] 
  63. $cbr0 set packetSize_ 500 
  64. $cbr0 set interval_ 0.005 
  65. $cbr0 attach-agent $udp0 
  66. set null0 [new Agent/Null] 
  67. $ns attach-agent $n3 $null0 
  68. $ns connect $udp0 $null0 
  69. $ns at 0.1 "$cbr0 start" 
  70. $ns at 1.0 "finish" 
  71. $ns run
Success #stdin #stdout #stderr 0.01s 5316KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
./prog.sh: line 3: namtrace-all: command not found
./prog.sh: line 5: trace-all: command not found
./prog.sh: line 6: proc: command not found
./prog.sh: line 7: global: command not found
./prog.sh: line 8: flush-trace: command not found
./prog.sh: line 9: close: command not found
./prog.sh: line 10: close: command not found
./prog.sh: line 11: exec: nam: not found
https://ideone.com/zetqnd
language:
Bash (bash 5.0.3)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!