婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 基于Tcl語言配置簡單網絡環境過程解析

基于Tcl語言配置簡單網絡環境過程解析

熱門標簽:電銷機器人對公司貢獻 蘭州語音電銷機器人軟件 智能外呼系統如何部署 ai電銷機器人 如何開發 濟源電話外呼系統怎么樣 電話機器人服務差 山東400電話如何辦理 高德地圖標注在建線路 宿州防封外呼系統廠家

1. Tcl腳本文件circle.tcl代碼注釋

#設定模擬需要的一些屬性
set val(chan) Channel/WirelessChannel
set val(prop) Propagation/TwoRayGround
set val(netif) Phy/WirelessPhy
set val(mac) Mac/802_11
#將協議設置為 DSR 后,同時將隊列設置為 CMUPriQueue
set val(ifq) CMUPriQueue
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(ifqlen) 50
#將節點個數預設為 0,待用戶輸入。此項要求用戶一定輸入,否則不執行模擬。
set val(nn) 0
set val(rp) DSR
#場景大小默認值為 1000*1000
set val(x) 1000
set val(y) 1000
#圓的半徑缺省值為 400
set val(r) 400
#該過程用于在屏幕上打印在終端輸入 ns circle.tcl 后添加參數的格式
proc usage {} {
  global argv0
  puts "\nusage: $argv0 \[-nn nodes\] \[-r r\] \[-x x\] \[-y y\]\n"
  puts "note: \[-nn nodes\] is essential, and the others are optional.\n"
}
#該過程用來根據用戶的輸入更改一些預設參數的值
proc getval {argc argv} {
  global val
  lappend vallist nn r x y z
  #argc 為參數的個數,argv 為整條參數構成的字符串
  for {set i 0} {$i < $argc} {incr i} {
    #變量 arg 為 argv 的第 i 部分,以空格為分界
    set arg [lindex $argv $i]
    #略過無字符“-”的字符串,一般是用戶鍵入的數字
    #string range $arg m n 表示取字符串$arg 的第 m 個字符到第 n 個字符
    	if {[string range $arg 0 0] != "-"} continue
    set name [string range $arg 1 end]
    #更改預設變量(節點個數,半徑,場景大小)
    set val($name) [lindex $argv [expr $i+1]]
  }
}
#調用 getval 過程
getval $argc $argv
#用戶沒有輸入參數,只鍵入了 ns circle.Tcl,則節點個數認為0
if { $val(nn) == 0 } {
  #打印用法
  usage
  exit
}

#創建模擬實例
set ns [new Simulator]

#設置記錄文件
set tracefd [open circle.tr w]
$ns trace-all $tracefd
set namtracefd [open circle.nam w]
$ns namtrace-all-wireless $namtracefd $val(x) $val(y)

#關閉trace文件并調用nam程序演示動畫
proc finish { } {
	global ns tracefd namtracefd
	$ns flush-trace
	close $tracefd
	close $namtracefd
	exec nam circle.nam &
	exit 0
}

set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)

create-god $val(nn)
#節點配置。由于版本原因,addressType設為def
$ns node-config -addressType def\

-adhocRouting $val(rp) \

    -llType $val(ll) \

    -macType $val(mac)\

    -ifqType $val(ifq) \

    -ifqLen $val(ifqlen) \

    -antType $val(ant) \

    -propType $val(prop) \

    -phyType $val(netif) \

    -channelType $val(chan) \

    -topoInstance $topo \

    -agenttrace ON \

    -routertrace ON \

    -mactrace OFF \

    -movementtrace OFF

#初始化節點
for {set i 0} {$i < $val(nn)} {incr i} {
#創建節點
set node_($i) [$ns node]
$node_($i) random-motion 0
#計算節點位置并設置,使用三角函數進行計算
	$node_($i) set X_ [expr $val(r) * cos($i * 2 * 3.14159 / $val(nn))]
  $node_($i) set Y_ [expr $val(r) * sin($i * 2 * 3.14159 / $val(nn))]
$node_($i) set Z_ 0
#設置在nam中移動節點顯示大小,否則,nam中無法顯示節點
	$ns initial_node_pos $node_($i) [expr $val(x) / 10]
}

#在node_(0)節點上建立一個UDP代理
set tcp [new Agent/UDP]
$ns attach-agent $node_(0) $tcp
#在node(0)節點沿直徑對面的節點上建立一個數據接收器
set null [new Agent/Null]
$ns attach-agent $node_([expr $val(nn)/2]) $null
#新建CBR流量發生器,分組大小500B,間隔0.05s
set cbr [new Application/Traffic/CBR]
$cbr set packetSize_ 5000
$cbr set interval_ 0.05
#連接UDP和Null
$cbr attach-agent $tcp
$ns connect $tcp $null
#在0.1s時發送數據,3.0s時停止發送數據,5.0s時調用finish過程
$ns at 0.1 "$cbr start"
$ns at 3.0 "$cbr stop"
$ns at 5.0 "finish"
$ns run

2. gawk腳本代碼analysis.awk注釋

BEGIN {
#設置初始變量
num_D = 0;	#丟包數
num_s = 0;	#發送包數
num_r = 0	;	#收到包數

rate_drop = 0;	#丟包率
sum_delay = 0;	#總延遲時間
average_delay = 0;	#平均延遲時間

}
{
	#讀取trace文件記錄
	event = $1;	#第一列為包的操作(s為發送包,r為接收包)
	time = $2;	#第二列為操作時間
	node = $3;	#第三列為節點號
	trace_type = $4;	#第四列為操作層
	flag = $5;	#第五列為標志位
	uid = $6;	#第六列為節點標識
	pkt_type = $7;	#第七列為包類型
	pkt_size = $8;	#第八列為包的大小

#操作
	if (event == "s" && trace_type == "AGT" && pkt_type == "cbr")
	{	send_time[uid] = time;	#創建數組記錄發包時間
		num_s++;		#記錄發送包總數
	}
	if (event == "r" && trace_type == "AGT" && pkt_type =="cbr")
	{	delay[uid] = time - send_time[uid];	#創建數組記錄延遲時間
		num_r++;		#記錄收到包總數
	}
	if (event == "D" && pkt_type == "cbr")
		delay[uid] = -1;	#-1表示包丟失,該包不會記入延遲時間
}

END {
	#計算丟包數和丟包率
	num_D =num_s-num_r;	#丟包總數
	rate_drop = num_D / num_s * 100.0;	#計算丟包率
	
	#計算延遲
	for ( i = 0; i < num_s; i++)
		{if (delay[i] >= 0)
			sum_delay += delay[i];
		}#總延遲時間
	average_delay = sum_delay / num_r;	#平均延遲時間

	#打印結果
	printf("number of packets droped: %d \n",num_D);
	printf("number of packets sent: %d \n",num_s);
	printf("drop rate: %.3f%% \n",rate_drop);
	printf("average delay time: %.9f \n",average_delay);
}

3. 實驗結果

(1)

  將網絡節點數設置為12,運行結果如下,生成了兩個記錄文件nam文件和trace文件。


此時的trace文件大小為91.8kb,nam文件大小為76.0kb。



接下來通過gawk工具對生成的trace文件進行分析。如果沒有安裝gawk工具,使用命令sudo apt-get install gawk進行安裝。
  結果得到網絡模擬過程的丟包數、發包數、丟包率和平均延時。


(2)重新修改節點數為8,運行結果如下,但此時文件夾中并沒有新增額外的circle.nam和circle.tr文件。


查看兩文件的屬性,發現大小發生了改變,說明應該是新建的網絡模擬環境的記錄文件發生了覆蓋。



同樣適用gawk對生成的trace文件進行分析。發現隨著網絡節點數的增加,導致丟包率和平均延時都增加了。

以上就是本文的全部內容,希望對大家的學習有所幫助,也希望大家多多支持腳本之家。

標簽:云南 巴中 佛山 畢節 晉中 安陽 衡水 南寧

巨人網絡通訊聲明:本文標題《基于Tcl語言配置簡單網絡環境過程解析》,本文關鍵詞  基于,Tcl,語言,配置,簡單,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《基于Tcl語言配置簡單網絡環境過程解析》相關的同類信息!
  • 本頁收集關于基于Tcl語言配置簡單網絡環境過程解析的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 通江县| 昭苏县| 石城县| 衡山县| 七台河市| 田阳县| 仁怀市| 钟山县| 上高县| 项城市| 霍山县| 清原| 灵寿县| 饶阳县| 横山县| 英超| 株洲市| 津市市| 伊川县| 玉屏| 永善县| 郧西县| 东平县| 奉化市| 宁强县| 甘孜| 且末县| 衡东县| 新闻| 靖宇县| 澄迈县| 水城县| 阿城市| 甘泉县| 申扎县| 沙雅县| 垦利县| 邓州市| 定边县| 永修县| 乐都县|