NS2仿真结果的awk脚本分析.docVIP

NS2仿真结果的awk脚本分析 无线仿真吞吐率统计 #this awk scrip is creaked by liugang 2006.05.02 BEGIN{ step =10; base=0; start=0; bytes=0; total_bytes=0; bw=0; calc=0; printf%.9f %.9f\n,base,bw; } $1~/r/$3~/2/$2~/1/{ if(base==0){ base=$2+step; start=$2; calc=1;} } $1~/r/$3~/2/$2~/1/calc==1 { time=$2; #当前时间 if(timebase){ #10S中统计所有的字节 bytes=bytes+$6;} else { bw=bytes/(step*1000.0); #带宽 total_bytes=total_bytes+bytes; printf%.9f %.9f\n,base-10,bw; bytes=0; bytes=bytes+$6; #继续下一次统计 base+=step;} total_bytes=total_bytes+bytes;} END { if(total_bytes) printf#Avg B/w=%.3fKB/s\n,((total_bytes/1000.0)/(time-start)); else printf#Avg B/w=0.0KB/s\n,max; } 1.统计延时 BEGIN { #程序初始化，设定一变量以记录目前最高处理封包的ID。 highest_packet_id = 0; } { action = $1; time = $2; node_1 = $3; node_2 = $4; type = $5; flow_id = $8; node_1_address = $9; node_2_address = $10; seq_no = $11; packet_id = $12; #记录目前最高的packet ID if ( packet_id highest_packet_id ) highest_packet_id = packet_id; #记录封包的传送时间 if ( start_time[packet_id] == 0 ) start_time[packet_id] = time; #记录CBR (flow_id=2) 的接收时间 if ( flow_id == 2 action != d ) { if ( action == r ) { end_time[packet_id] = time; } } else { #把不是flow_id=2的封包或者是flow_id=2但此封包被drop的时间设为-1 end_time[packet_id] = -1; } } END { #当资料列全部读取完后，开始计算有效封包的端点到端点延迟时间 for ( packet_id = 0; packet_id = highest_packet_id; packet_id++ ) { start = start_time[packet_id]; end = end_time[packet_id]; packet_duration = end - start; #只把接收时间大于传送时间的记录列出来 if ( start end ) printf(%f %f\n, start, packet_duration); } } 2.统计丢包率 BEGIN { #程序初始化,设定一变量记录packet被drop的数目 fsDrops = 0; numFs = 0; } { action = $1; time = $2; node_1 = $3; node_2 = $4; src = $5; flow_id = $8; node_1_address = $9; node_2_address = $10; seq_no = $11; packet_id = $12; #统计从n1送出多少packets if (node_1==1 node_2==2 action == +) numFs++; #统计flow_id为2,且被drop的封包 if (flow_id==2