demo-nam.tcl
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:1k
源码类别:

通讯编程

开发平台:

Visual C++

  1. proc makelinks { net bw delay pairs } {
  2. global ns node
  3. foreach p $pairs {
  4. set src [lindex $p 0]
  5. set dst [lindex $p 1]
  6. set angle [lindex $p 2]
  7.         mklink $net $src $dst $bw $delay $angle
  8. }
  9. }
  10. proc nam_config {net} {
  11. foreach k {0 1 2 4 5 6} {
  12.         $net node $k circle
  13. }
  14. foreach k {3 7} {
  15.         $net node $k square
  16. }
  17. makelinks $net 1.5Mb 10ms {
  18. { 0 3 right-down }
  19. { 1 3 right }
  20. { 2 3 right-up }
  21. { 7 4 right-up }
  22. { 7 5 right }
  23. { 7 6 right-down }
  24. }
  25. makelinks $net 400kb 50ms {
  26. { 3 7 right }
  27. }
  28.         $net queue 3 7 0.5
  29.         $net queue 7 3 0.5
  30. # rtcp reports
  31.         $net color 32 red
  32. # scuba reports
  33.         $net color 33 white
  34. $net color 1 gold
  35. $net color 2 blue
  36. $net color 3 green
  37. $net color 4 magenta
  38. }