开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
chanInterference.pl
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：16k
源码类别：

通讯编程

开发平台：

Visual C++

chanInterference.pl：源码内容
  1. sub usage {
  2. print STDERR "usage: $0 <Base Trace file> <Base nam trace file> <output nam trace file>n";
  3. exit;
  4. }
  6. #@ARGV[0] - source trace file
  7. #@ARGV[1] - source nam trace file
  8. #@ARGV[2] - output nam trace file
  10. open (Source, $ARGV[0]) or die "Cannot open $ARGV[0] : $!n";
  11. open (NamSource, $ARGV[1]) or die "Cannot open $ARGV[1] : $!n";
  12. open (Destination, ">$ARGV[2]") or die "Cannot open $ARGV[2]: $!n";
  14. $namline = <NamSource>;
  15. while ($namline) { 
  16. if ($namline =~ /-i 3 -n green/) {
  17. print Destination $namline;
  18. print Destination 'v -t 0.000 -e sim_annotation 0.0 1 COLOR LEGEND : ', "n";
  19. print Destination 'v -t 0.003 -e sim_annotation 0.003 2 Nodes turn red when there is a collision ', "n";
  20. print Destination 'v -t 0.10000000 -e set_rate_ext 0.200ms 1', "n";
  21. last;
  22. }
  23. else
  24. {
  25. print Destination $namline;
  26. $namline = <NamSource>;
  27. }
  28. }
  30. $num_mov = 0;
  32. $i =3;
  33. $one = 0;
  34. $two = 0;
  35. $three = 0;
  37. $last_time = 0.1500;
  38. $line = <Source>;
  39. while ($line) {
  40. if ($line =~ /^M/) {
  41. @fields = split ' ', $line;
  42. @fields[3] =~ m/(d+.d+)/;
  43. @fields[3] = $1;
  44. @fields[4] =~ m/(d+.d+)/;
  45. @fields[4] = $1;
  46. @fields[6] =~ m/(d+.d+)/;
  47. @fields[6] = $1;
  48. $t = (@fields[6] - @fields[3])/@fields[8];
  49. if ($t < 0)
  50. {
  51. $t = -$t;
  52. }
  53. if(@fields[3] > @fields[6])
  54. {
  55. print Destination 'n -t ', @fields[1], ' -s ', @fields[2], ' -x ', @fields[3], ' -y ', @fields[4], ' -U -',@fields[8], ' -V 0.00 -T ', $t,"n";
  56. }
  57. else
  58. {
  59. print Destination 'n -t ', @fields[1], ' -s ', @fields[2],' -x ',@fields[3],' -y ',@fields[4],' -U ',@fields[8],' -V 0.00 -T ',$t,"n";
  60. }
  61. print Destination 'v -t ', @fields[1], ' -e sim_annotation ', @fields[1],' ', $i,' NODE 2 MOVES ',"n";
  62. $last_time = @fields[1]+0.00005;
  63. $i++;
  64. if ($num_mov == 0)
  65. {
  66. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 is out of range of Node 1',"n";
  67. }
  68. if ($num_mov == 1)
  69. {
  70. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 is at the border range of Node 1',"n";
  71. }
  72. if ($num_mov == 2)
  73. {
  74. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 is in range of Node 1, close enough to',"n";
  75. $last_time = $last_time + 0.00005;
  76. $i++;
  77. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' interfere with Node 0 but not the same distance as Node 0 from Node 1',"n";
  78. }
  79. $i++;
  81. $num_mov ++;
  82. $last_time = $last_time + 0.08;
  83. $line = <Source>;
  84. }
  85. elsif ($num_mov < 1) { # Node 0 and Node 2 are equidistant from Node 1
  86. if ($line =~ /SENSING_CARRIER/) {
  87. @fields = split ' ', $line;
  88. $next_line = <Source>;
  89. if ($next_line =~ /BACKING_OFF/) {
  90. $other_node = 2;
  91. if (@fields[4] == 2)
  92. {
  93. $other_node = 0;
  94. }
  95. $t = $last_time +0.005;
  96. print Destination 'v -t ', $t, ' -e sim_annotation ', $t,' ', $i,' CASE 1a : EQUIDISTANT : SEPARATE TIMES : SUCCESSFUL RECEPTION',"n";
  97. $last_time = $t+0.00005;
  98. $i++;
  99. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 and Node 2 are in range of each other,',"n"; 
  100. $last_time = $last_time + 0.00005;
  101. $i++;
  102. print Destination 'v -t ', $last_time, ' -e sim_annotation ', $last_time, ' ', $i,' and are equidistant from Node 1, so when they both send packets at different times, the signal of these', "n";
  103. $last_time = $last_time + 0.00005;
  104. $i++;
  105. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,'packets, at the receiver ,is the same, and hence packets from both senders are received',"n";
  106. $i++;
  107. $next_duration = $last_time + 0.01;
  109. print Destination '+ -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  110. print Destination '- -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  111. print Destination 'h -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  112. print Destination 'r -t ', $next_duration, ' -s ', @fields[4], ' -d 1 -p message -e 2500 -a 1 ', "n";
  114. $next_duration = $next_duration + 0.01;
  115. print Destination '+ -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  116. print Destination '- -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  117. print Destination 'h -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  118. print Destination 'r -t ', $next_duration, ' -s ', $other_node, ' -d 1 -p message -e 2500 -a 1 ', "n";
  120. $last_time = $next_duration;
  121. $line = <Source>;
  122. }
  123. elsif ($next_line =~ /SENSING_CARRIER/) {
  124. @new_fields = split ' ', $next_line;
  125. $last_time = $last_time + 0.01;
  126. print Destination 'v -t ', $last_time, ' -e sim_annotation ', $last_time,' ', $i,' CASE 1b : EQUIDISTANT - SAME TIME : COLLISION ',"n";
  127. $last_time = $last_time+0.00005;
  128. $i++;
  129. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 and Node 2 want to send packets at the same time, since they are',"n";
  130. $last_time = $last_time + 0.00005;
  131. $i++;
  132. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' the same distance from the receiver, the packets received are the same strength',"n";
  133. $last_time = $last_time + 0.00005;
  134. $i++;
  135. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' and hence they interfere with each other resulting in collision',"n";
  136. $i++;
  138. $duration = $last_time + 0.01;
  139. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  140. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  141. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  142. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  143. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  144. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  145. $red_duration = $duration + 0.01;
  146. $red_end_duration = $red_duration + 0.01;
  147. print Destination 'n -t ', $red_duration, ' -s 1 -S COLOR -c red -o black -i red -I black ', "n";
  148. print Destination 'n -t ', $red_duration, ' -s 1 -S DLABEL -l "Collision " -L ""', "n";
  149. print Destination 'd -t ', $red_duration, ' -s 1 -d 2 -p message -e 5000 -a 8 ', "n";
  150. print Destination 'n -t ', $red_end_duration, ' -s 1 -S COLOR -c black -o red -i black -I red ', "n";
  151. print Destination 'n -t ', $red_end_duration, ' -s 1 -S DLABEL -l "" -L ""', "n";
  152. $last_time = $red_end_duration;
  153. $line = <Source>;
  154. }
  155. else {
  156. $line = <Source>;
  157. }
  159. }
  160. else {
  161. $line = <Source>;
  162. }
  163. }
  164. elsif (($num_mov == 1) && ($one == 0)) { # Node 2 is out of range of Node 1
  165. $duration = $last_time + 0.01;
  166. print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 2a : NODE 2 OUT OF RANGE , NODES SENDING PACKETS SEPARATELY ',"n";
  167. $last_time = $duration+0.00005;
  168. $i++;
  169. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1, which are successfully received by Node 1',"n";
  170. $i++;
  171. $duration = $last_time + 0.00005;
  172. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  173. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  174. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  175. $duration = $duration + 0.01;
  176. $last_time = $duration + 0.00005;
  177. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 sends data packets to Node 1',"n";
  178. $last_time = $last_time + 0.00005;
  179. $i++;
  180. print Destination 'v -t ', $last_time,' -e sim_annotation ',$last_time,' ',$i,' but they are not recd. by Node 1, since Node 2 is out of range of Node 1  ',"n";
  181. $i++;
  182. $duration = $last_time + 0.00005;
  183. print Destination '+ -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  184. print Destination '- -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  185. print Destination 'h -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  186. $duration = $duration + 0.01;
  188. print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 2b : NODE 2 OUT OF RANGE , NODES SENDING PACKETS AT THE SAME TIME ',"n";
  189. $last_time = $duration+0.00005;
  190. $i++;
  191. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1 which',"n";
  192. $last_time = $last_time + 0.00005;
  193. $i++;
  194. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' are successfully received by Node 1  and Node 2 sends packets to Node 1',"n";
  195. $last_time = $last_time + 0.00005;
  196. $i++;
  197. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' which are not received, because Node 2 is out of range of Node 1',"n";
  198. $i++;
  199. $duration = $last_time + 0.00005;
  200. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  201. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  202. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  203. print Destination '+ -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  204. print Destination '- -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  205. print Destination 'h -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  206. $duration = $duration + 0.01;
  208. $line = <Source>;
  209. $last_time = $duration;
  210. $one = 1;
  211. }
  212. elsif (($num_mov == 2) && ($two == 0)) # Node 2 is barely within range of Node 1
  213. {
  214. $duration = $last_time + 0.01;
  215. print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 3a : NODE 2 BARELY IN RANGE OF NODE 1 , NODES SENDING PACKETS SEPARATELY ',"n";
  216. $last_time = $duration+0.00005;
  217. $i++;
  218. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1, which are successfully received by Node 1',"n";
  219. $i++;
  220. $duration = $last_time + 0.00005;
  221. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  222. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  223. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  224. $duration = $duration + 0.01;
  225. $last_time = $duration + 0.00005;
  226. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 sends data packets to Node 1 which are received successfully by Node 1 ',"n";
  227. $i++;
  228. $duration = $last_time + 0.00005;
  229. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  230. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  231. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  232. $duration = $duration + 0.01;
  234. print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 3b : CHANNEL CAPTURE : NODE 2 BARELY IN RANGE OF NODE 1, NODES SENDING PACKETS AT THE SAME TIME ',"n";
  235. $last_time = $duration+0.00005;
  236. $i++;
  237. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1, which',"n"; $last_time = $last_time + 0.00005;
  238. $i++;
  239. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' are successfully received by Node 1  and Node 2 sends packets to Node 1 which are not received, because',"n";
  240. $last_time = $last_time + 0.00005;
  241. $i++;
  242. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' Node 0 being closer to Node 1, the signal strength of its packets is higher than that of Node 2 packets',"n";
  243. $i++;
  244. $duration = $last_time + 0.00005;
  245. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  246. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  247. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  248. print Destination '+ -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  249. print Destination '- -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  250. print Destination 'h -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "n";
  251. $last_time = $duration;
  252. $line = <Source>;
  254. $two = 1;
  255. }
  256. elsif(($num_mov == 3) && ($three == 0))# Node 2 is close enough to interfere with Node 0
  257. {
  258. $duration = $last_time + 0.01;
  259. print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 4a : NODE 2 IN RANGE OF NODE 1 , NODES SENDING PACKETS SEPARATELY ',"n";
  260. $last_time = $duration+0.00005;
  261. $i++;
  262. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1, which are successfully received by Node 1',"n";
  263. $i++;
  264. $duration = $last_time + 0.00005;
  265. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  266. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  267. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  268. $duration = $duration + 0.01;
  269. $last_time = $duration + 0.00005;
  270. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 sends data packets to Node 1 and they are received successfully by Node 1',"n";
  271. $i++;
  272. $duration = $last_time + 0.00005;
  273. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  274. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  275. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  276. $duration = $duration + 0.01;
  278. print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 4b : NODE 2 IN RANGE OF NODE 1 , NODES SENDING PACKETS AT THE SAME TIME ',"n";
  279. $last_time = $duration+0.00005;
  280. $i++;
  281. print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1 the same',"n";
  282. $last_time = $last_time + 0.00005;
  283. $i++;
  284. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,' time that Node 2 sends packets to Node 1, and hence they collide at the reciever since',"n";
  285. $last_time = $last_time + 0.00005;
  286. $i++; 
  287. print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,'their packets interfere with each other',"n";
  288. $i++;
  289. $duration = $last_time + 0.00005;
  290. print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  291. print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  292. print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "n";
  293. print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  294. print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  295. print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "n";
  296. $duration = $duration + 0.01;
  297. $red_duration = $duration + 0.01;
  298. $red_end_duration = $red_duration + 0.01;
  299. print Destination 'n -t ', $red_duration, ' -s 1 -S COLOR -c red -o black -i red -I black ', "n";
  300. print Destination 'n -t ', $red_duration, ' -s 1 -S DLABEL -l "Collision " -L ""', "n";
  301. print Destination 'd -t ', $red_duration, ' -s 1 -d 2 -p message -e 5000 -a 8 ', "n";
  302. print Destination 'n -t ', $red_end_duration, ' -s 1 -S COLOR -c black -o red -i black -I red ', "n";
  303. print Destination 'n -t ', $red_end_duration, ' -s 1 -S DLABEL -l "" -L ""', "n";
  304. $last_time = $red_end_duration;
  306. $line = <Source>;
  308. $three = 1;
  309. }
  310. else {
  311. $line = <Source>;
  312. }
  313. }