1: #NS2_有线部分\homework02.tcl
  2:
  3: #Create a simulator object
  4: set ns [new Simulator]
  5:
  6: #Define different colors for data flows
  7: $ns color 1 Blue
  8: $ns color 2 Red
  9:
 10: #Open the nam trace file
 11: set nf [open szsh.nam w]
 12: $ns namtrace-all $nf
 13:
 14: #Open the trace record file
 15: set nd [open szsh.tr w]
 16: $ns trace-all $nd
 17:
 18: #Define a 'finish' procedure
 19: proc finish {} {
 20:     global ns nf nd
 21:     $ns flush-trace
 22:     #Close the trace file
 23:     close $nf
 24:     #Close the record file
 25:     close $nd
 26:     #Execute nam on the trace file
 27:     exec nam szsh.nam &
 28:     exit 0
 29: }
 30:
 31: #Create two nodes
 32: set NODE_ShenZhen [$ns node]
 33: $NODE_ShenZhen color red
 34: $NODE_ShenZhen shape circle
 35: $NODE_ShenZhen label "ShenZhen"
 36: $NODE_ShenZhen label-color red
 37: $NODE_ShenZhen label-at up
 38:
 39: set NODE_ShangHai [$ns node]
 40: $NODE_ShangHai color blue
 41: $NODE_ShangHai shape circle
 42: $NODE_ShangHai label "ShangHai"
 43: $NODE_ShangHai label-color blue
 44: $NODE_ShangHai label-at down
 45:
 46:
 47: #Create a duplex link between the nodes
 48: $ns duplex-link $NODE_ShenZhen $NODE_ShangHai 1Mb 100ms DropTail
 49:
 50: #Monitor the queue for the link between node 2 and node 3
 51: $ns duplex-link-op $NODE_ShenZhen $NODE_ShangHai queuePos 0.5
 52: $ns duplex-link-op $NODE_ShenZhen $NODE_ShangHai color green
 53: $ns duplex-link-op $NODE_ShenZhen $NODE_ShangHai orient right
 54:
 55: #Create a UDP agent and attach it to node NODE_ShenZhen
 56: set Agent_Sender [new Agent/UDP]
 57: $Agent_Sender set agent_addr_   1000
 58: $Agent_Sender set agent_port_   100
 59: $ns attach-agent $NODE_ShenZhen $Agent_Sender
 60:
 61: ## Create a Exponential traffic source and attach it to Agent_Sender
 62: #set APP_EXP [new Application/Traffic/Exponential]
 63: #$APP_EXP set packetSize_    400
 64: #$APP_EXP set burst_time_    400ms
 65: #$APP_EXP set idle_time_     100ms
 66: #$APP_EXP set rate_          150kb
 67: #$APP_EXP attach-agent $Agent_Sender
 68:
 69: set APP_PARETO [new Application/Traffic/Pareto]
 70: $APP_PARETO set packetSize_     400
 71: $APP_PARETO set burst_time_     400ms
 72: $APP_PARETO set idle_time_      100ms
 73: $APP_PARETO set rate_           100kb
 74: $APP_PARETO set shape_          1.2
 75: $APP_PARETO attach-agent $Agent_Sender
 76:
 77: #Create a Null agent (a traffic sink) and attach it to node NODE_ShangHai
 78: set Agent_Receiver [new Agent/Null]
 79: $Agent_Receiver set dst_addr_   2000
 80: $Agent_Receiver set dst_port_   200
 81: $ns attach-agent $NODE_ShangHai $Agent_Receiver
 82:
 83: #Connect the traffic source with the traffic sink
 84: $ns connect $Agent_Sender $Agent_Receiver
 85:
 86: #Schedule events for the CBR agent
 87: $ns at 0.2 "$APP_PARETO start"
 88: $ns at 0.8 "$APP_PARETO stop"
 89:
 90: #Call the finish procedure after 5 seconds of simulation time
 91: $ns at 1.0 "finish"
 92:
 93: #Run the simulation
 94: $ns run
 95: 

NS2网络模拟(6)-homework02.tcl的更多相关文章

  1. NS2网络模拟(7)-homework03.tcl

    1: #NS2_有线部分\homework03.tcl 2: 3: #Create a simulator object 4: set ns [new Simulator] 5: 6: #Define ...

  2. NS2网络模拟(5)-homework01.tcl

    1: #NS2_有线部分\homework01.tcl 2: 3: #创建两个结点,深圳到北京的TCP连接,图形将数据显示出来,计算吞吐率,画图分析 4: #tcp上层用ftp 5: #udp上层用c ...

  3. NS2网络模拟(4)-吞吐率图

    1: #NS2_有线部分\ForGnuplot.plot 2: 3: #gnuplot> 4: #set xtics 0, 1, 10 5: set grid 6: set xrange [0: ...

  4. NS2网络模拟(3)-吞吐率

    1: #NS2_有线部分\Throughput.awk 2: 3: BEGIN { 4: #Initialize the variable 5: init = 0; 6: i = 0; 7: } 8: ...

  5. NS2网络模拟(2)-丢包率

    1: #NS2_有线部分\LossRate.awk 2: 3: BEGIN { 4: #Initialize the variable 5: Lost = 0; #the Sum of Lost pa ...

  6. NS2网络模拟(1)-延迟

    1: #NS2_有线部分\EndDelay.awk 2: 3: BEGIN { 4: #Initialize the variable 5: MaxID = 0; 6: i = 0; 7: } 8: ...

  7. ns2的第一个tcl脚本

    set ns [new Simulator] set tracef [open example1.tr w]$ns trace-all $tracefset namtf [open example1. ...

  8. 【NS2】WiMAX_NS2说明文档(转载)

    关于目前NS2中WiMAX模块的说明 (1)美国NIST(National Institute of Standards and Technology)版, 可以从NIST主页获得,2007.04 r ...

  9. 【NS2】ubuntu安装和同时使用不同版本的ns2(转载)

    有时候我们可能会遇到要同时安装两个ns版本的问题,比如我研究wimax/802.16,因为协议太复杂,用的是长庚大学和nist的wimax补丁.长庚大学的wimax补丁是在ns2.29下开发的,nis ...

随机推荐

  1. 关于stm32的串口电压问题

    在同一块板子的另一个 2号串口,因为没有使用所以就没有配置,,,所以导致这三个引脚都为0; 上面的串口接口封装是围墙座: 注意:倘若要连线,那时候要记得交叉,当然这也要看各自的设计才行

  2. thinkphp3.2二维码扩展

    //简易二维码 public function qrcode(){ Vendor('phpqrcode.phpqrcode'); //生成二维码图片 $object = new \QRcode(); ...

  3. thinkphp5 tp5 七牛云 上传图片

    七牛sdk地址https://files.cnblogs.com/files/zonglonglong/qiniu-php-sdk-7.2.2.rar 首先下载php的sdk将文件夹放到vendor ...

  4. Java 字符转Unicode

    static String unicode2String(String unicodeStr) { StringBuffer sb = new StringBuffer(); String str[] ...

  5. 手把手生成决策树(dicision tree)

    手把手生成决策树(dicision tree) 标签: Python 机器学习 主要參考资料: Peter HARRINGTON.机器学习实战[M].李锐,李鹏,曲亚东,王斌译.北京:人民邮电出版社, ...

  6. [Node.js] Use nodejs-dashboard event loop delay with hrtime()

    In this lesson, you will learn how to use the Formidable nodejs-dashboard event loop delay to identi ...

  7. 立足“快时尚”,联想笋尖S90怎样诠释“比美更美”?

        现现在."快时尚"已经成为广受年轻人追捧的消费观,从服装界的H&M.ZARA到餐饮界的绿茶.外婆家等等,我们都不难看出,快时尚已成为激发年轻人消费欲望的核心元素,并 ...

  8. golang 操作 Redis & Mysql & RabbitMQ

    golang 操作 Redis & Mysql & RabbitMQ Reids 安装导入 go get github.com/garyburd/redigo/redis import ...

  9. [TypeScript] Increase TypeScript's type safety with noImplicitAny

    TypeScript tries to infer as much about your code as it can. But sometimes there really is not enoug ...

  10. 怎样在log4j.xml配置文件中引入变量:小公司经验较多的我和阿里UC等大公司经验较多的Boss,一些技术交流和探讨

    从最初学习使用log4j的时候,网上和书本上主要都是使用"log4j.properties"这种属性格式,配置日志.多年以来,一直使用这种格式,总的来说,简单.够用.    而有十 ...