计算机网路实验.ppt

計算機網路實驗-使用NS2模擬多媒體通訊與無線網路(實驗四) 指導教授：許子衡老師 學生：羅英辰 2010/3/5 * 網路模擬 結束模擬後，通常我們會要用到過程中產生的記錄來分析以得到吞吐量(Throughput)、封包延遲(Packet delay)、抖動率(Jitter)和封包遺失率(Packet loss rate)。 以下就是有線網路記錄的格式： Event Time From node To node Pkt type Pkt size Flags Fid Src addr Dst addr Seq num Pkt id 2010/3/5 * tcp sink sink udp r d s1 s2 ftp cbr 2Mbps, 10ms 2Mbps, 10ms 1.7Mbps, 20ms ftp cbr 0.1 1.0 4.0 4.5 sec 2010/3/5 * 封包第一和第四欄 2010/3/5 * 2010/3/5 * #使用方法: perl measure-throughput.pl trace file granlarity #記錄檔檔名 $infile=$ARGV[0]; #多少時間計算一次(單位為秒) $granularity=$ARGV[1]; $sum=0; $sum_total=0; $clock=0; $maxrate=0; $init=0; #打開記錄檔 open (DATA,$infile) || die Cant open $infile $!; UDP的吞吐量計算 2010/3/5 * #讀取記錄檔中的每行資料,資料是以空白分成眾多欄位 while (DATA) { @x = split( ); if($init==0){ $start=$x[2]; $init=1; } #讀取的第零個欄位是pkt_id #讀取的第一個欄位是封包傳送時間 #讀取的第二個欄位是封包接收時間 #讀取的第三個欄位是封包end to end delay #讀取的第四個欄位是封包大小 #判斷所讀到的時間,是否已經達到要統計吞吐量的時候 if ($x[2]-$clock = $granularity) { #計算單位時間內累積的封包大小 $sum=$sum+$x[4]; #計算累積的總封包大小 $sum_total=$sum_total+$x[4]; } 2010/3/5 * else { #計算吞吐量 $throughput=$sum*8.0/$granularity; if ($throughput $maxrate){ $maxrate=$throughput; } #輸出結果: 時間 吞吐量(bps) print STDOUT $x[2]: $throughput bps\n; #設定下次要計算吞吐量的時間 $clock=$clock+$granularity; $sum_total=$sum_total+$x[4]; $sum=$x[4]; } } 2010/3/5 * $endtime=$x[2]; #計算最後一次的吞吐量大小 $throughput=$sum*8.0/$granularity; print STDOUT $x[2]: $throughput bps\n; $clock=$clock+$granularity; $sum=0; #print STDOUT $sum_total $start $endtime\n; $avgrate=$sum_total*8.0/($endtime-$start); print STDOUT Average rate: $avgrate bps\n; print STDOUT Peak rate: $maxrate bps\n; #關閉檔案 close DATA; exit(0); 2010/3/5 * 2010/3/5 * TCP的吞吐量計算 2010/3/5 * 無線網路 以下是無線網路模擬後所產生的值： s -t 0.267662078 -Hs 0 -Hd -1 -Ni 0 -Nx 5.00 -Ny 2.00 -Nz 0.00 -Ne -1.000000 -Nl RTR -Nw --- -Ma 0 -Md 0 -Ms 0 -Mt 0 -Is 0.