NS2网络模拟(6)-homework02.tcl
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的更多相关文章
- NS2网络模拟(7)-homework03.tcl
1: #NS2_有线部分\homework03.tcl 2: 3: #Create a simulator object 4: set ns [new Simulator] 5: 6: #Define ...
- NS2网络模拟(5)-homework01.tcl
1: #NS2_有线部分\homework01.tcl 2: 3: #创建两个结点,深圳到北京的TCP连接,图形将数据显示出来,计算吞吐率,画图分析 4: #tcp上层用ftp 5: #udp上层用c ...
- NS2网络模拟(4)-吞吐率图
1: #NS2_有线部分\ForGnuplot.plot 2: 3: #gnuplot> 4: #set xtics 0, 1, 10 5: set grid 6: set xrange [0: ...
- NS2网络模拟(3)-吞吐率
1: #NS2_有线部分\Throughput.awk 2: 3: BEGIN { 4: #Initialize the variable 5: init = 0; 6: i = 0; 7: } 8: ...
- NS2网络模拟(2)-丢包率
1: #NS2_有线部分\LossRate.awk 2: 3: BEGIN { 4: #Initialize the variable 5: Lost = 0; #the Sum of Lost pa ...
- NS2网络模拟(1)-延迟
1: #NS2_有线部分\EndDelay.awk 2: 3: BEGIN { 4: #Initialize the variable 5: MaxID = 0; 6: i = 0; 7: } 8: ...
- ns2的第一个tcl脚本
set ns [new Simulator] set tracef [open example1.tr w]$ns trace-all $tracefset namtf [open example1. ...
- 【NS2】WiMAX_NS2说明文档(转载)
关于目前NS2中WiMAX模块的说明 (1)美国NIST(National Institute of Standards and Technology)版, 可以从NIST主页获得,2007.04 r ...
- 【NS2】ubuntu安装和同时使用不同版本的ns2(转载)
有时候我们可能会遇到要同时安装两个ns版本的问题,比如我研究wimax/802.16,因为协议太复杂,用的是长庚大学和nist的wimax补丁.长庚大学的wimax补丁是在ns2.29下开发的,nis ...
随机推荐
- 关于stm32的串口电压问题
在同一块板子的另一个 2号串口,因为没有使用所以就没有配置,,,所以导致这三个引脚都为0; 上面的串口接口封装是围墙座: 注意:倘若要连线,那时候要记得交叉,当然这也要看各自的设计才行
- thinkphp3.2二维码扩展
//简易二维码 public function qrcode(){ Vendor('phpqrcode.phpqrcode'); //生成二维码图片 $object = new \QRcode(); ...
- thinkphp5 tp5 七牛云 上传图片
七牛sdk地址https://files.cnblogs.com/files/zonglonglong/qiniu-php-sdk-7.2.2.rar 首先下载php的sdk将文件夹放到vendor ...
- Java 字符转Unicode
static String unicode2String(String unicodeStr) { StringBuffer sb = new StringBuffer(); String str[] ...
- 手把手生成决策树(dicision tree)
手把手生成决策树(dicision tree) 标签: Python 机器学习 主要參考资料: Peter HARRINGTON.机器学习实战[M].李锐,李鹏,曲亚东,王斌译.北京:人民邮电出版社, ...
- [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 ...
- 立足“快时尚”,联想笋尖S90怎样诠释“比美更美”?
现现在."快时尚"已经成为广受年轻人追捧的消费观,从服装界的H&M.ZARA到餐饮界的绿茶.外婆家等等,我们都不难看出,快时尚已成为激发年轻人消费欲望的核心元素,并 ...
- golang 操作 Redis & Mysql & RabbitMQ
golang 操作 Redis & Mysql & RabbitMQ Reids 安装导入 go get github.com/garyburd/redigo/redis import ...
- [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 ...
- 怎样在log4j.xml配置文件中引入变量:小公司经验较多的我和阿里UC等大公司经验较多的Boss,一些技术交流和探讨
从最初学习使用log4j的时候,网上和书本上主要都是使用"log4j.properties"这种属性格式,配置日志.多年以来,一直使用这种格式,总的来说,简单.够用. 而有十 ...