chaninterference.pl

跑leach需要的

			}
			else {
			$line = <Source>;
			}
		}
		elsif (($num_mov == 1) && ($one == 0)) { # Node 2 is out of range of Node 1
				$duration = $last_time + 0.01;
				print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 2a : NODE 2 OUT OF RANGE , NODES SENDING PACKETS SEPARATELY ',"\n";
				$last_time = $duration+0.00005;
				$i++;
				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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				$duration = $duration + 0.01;
				$last_time = $duration + 0.00005;
				print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 2 sends data packets to Node 1',"\n";
				$last_time = $last_time + 0.00005;
				$i++;
			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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				print Destination '- -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				print Destination 'h -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				$duration = $duration + 0.01;

				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";
				$last_time = $duration+0.00005;
				$i++;
				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;
				$i++;
			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";
			$last_time = $last_time + 0.00005;
			$i++;
			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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '+ -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				print Destination '- -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				print Destination 'h -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				$duration = $duration + 0.01;

				$line = <Source>;
				$last_time = $duration;
				$one = 1;
		}
		elsif (($num_mov == 2) && ($two == 0)) # Node 2 is barely within range of Node 1
		{
				$duration = $last_time + 0.01;
				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";
				$last_time = $duration+0.00005;
				$i++;
				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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				$duration = $duration + 0.01;
				$last_time = $duration + 0.00005;
				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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				$duration = $duration + 0.01;

				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";
				$last_time = $duration+0.00005;
				$i++;
				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;
				$i++;	
			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";
				$last_time = $last_time + 0.00005;
				$i++;
			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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '+ -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				print Destination '- -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				print Destination 'h -t ', $duration, ' -s 2 -d -1 -p message -e 2500 -a 8 ', "\n";
				$last_time = $duration;
				$line = <Source>;

				$two = 1;
		}
		elsif(($num_mov == 3) && ($three == 0))# Node 2 is close enough to interfere with Node 0
		{
				$duration = $last_time + 0.01;
				print Destination 'v -t ', $duration, ' -e sim_annotation ', $duration,' ', $i,' CASE 4a : NODE 2 IN RANGE OF NODE 1 , NODES SENDING PACKETS SEPARATELY ',"\n";
				$last_time = $duration+0.00005;
				$i++;
				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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				$duration = $duration + 0.01;
				$last_time = $duration + 0.00005;
				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";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				$duration = $duration + 0.01;

				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";
				$last_time = $duration+0.00005;
				$i++;
				print Destination 'v -t ', $last_time,' -e sim_annotation ', $last_time,' ',$i,' Node 0 sends data packets to Node 1 the same',"\n";
				$last_time = $last_time + 0.00005;
				$i++;
			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";
				$last_time = $last_time + 0.00005;
				$i++; 
			print Destination 'v -t ',$last_time,' -e sim_annotation ',$last_time,' ',$i,'their packets interfere with each other',"\n";
				$i++;
				$duration = $last_time + 0.00005;
				print Destination '+ -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 0 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '+ -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination '- -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				print Destination 'h -t ', $duration, ' -s 2 -d 1 -p message -e 2500 -a 1 ', "\n";
				$duration = $duration + 0.01;
				$red_duration = $duration + 0.01;
				$red_end_duration = $red_duration + 0.01;
				print Destination 'n -t ', $red_duration, ' -s 1 -S COLOR -c red -o black -i red -I black ', "\n";
				print Destination 'n -t ', $red_duration, ' -s 1 -S DLABEL -l "Collision " -L ""', "\n";
				print Destination 'd -t ', $red_duration, ' -s 1 -d 2 -p message -e 5000 -a 8 ', "\n";
				print Destination 'n -t ', $red_end_duration, ' -s 1 -S COLOR -c black -o red -i black -I red ', "\n";
				print Destination 'n -t ', $red_end_duration, ' -s 1 -S DLABEL -l "" -L ""', "\n";
				$last_time = $red_end_duration;

				$line = <Source>;

				$three = 1;
		}
		else {
			$line = <Source>;
		}
}