UnderwaterCommunicationModel.zip_acoustic_acoustic channel_under

clear all; %%% The most extreme cases with optimal frequency % depth = 10000; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % [dump xx] = getTxPower(depth,BER,distance/hops); % Pt_hops_d_10000_ber_9_10000m_per_node(hops) = xx; % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_optimalKHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % [dump xx] = getTxPower(depth,BER,distance/hops); % Pt_hops_d_10000_ber_9_10000m_per_network(hops) = xx*hops; % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_optimalKHz'); % % limit the plot to 50 for more readable figure % % % % % depth = 100; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % [demp xx] = getTxPower(depth,BER,distance/hops); % Pt_hops_d_100_ber_9_10000m_per_node(hops) = xx; % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_optimalKHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % [dump xx] = getTxPower(depth,BER,distance/hops); % Pt_hops_d_100_ber_9_10000m_per_network(hops) = xx*hops; % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_optimalKHz'); % % % depth = 10000; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % pt =getTxPower(depth,BER,distance/hops); % Pt_hops_d_10000_ber_9_10000m_per_node(hops) = pt(1); % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_1KHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % pt =getTxPower(depth,BER,distance/hops); % Pt_hops_d_10000_ber_9_10000m_per_network(hops) = pt(1)*hops; % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_1KHz'); % % limit the plot to 50 for more readable figure % % % % % depth = 100; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % Pt_hops_d_100_ber_9_10000m_per_node(hops) = pt(1); % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_1KHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % Pt_hops_d_100_ber_9_10000m_per_network(hops) = pt(1)*hops; % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_1KHz'); % % % % % depth = 10000; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % Pt_hops_d_10000_ber_9_10000m_per_node(hops) = pt(10); % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_10KHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % Pt_hops_d_10000_ber_9_10000m_per_network(hops) = pt(10)*hops; % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_10KHz'); % % limit the plot to 50 for more readable figure % % % % % depth = 100; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % Pt_hops_d_100_ber_9_10000m_per_node(hops) = pt(10); % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_10KHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % Pt_hops_d_100_ber_9_10000m_per_network(hops) = pt(10)*hops; % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_10KHz'); % % % % % % depth = 10000; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % % Pt_hops_d_10000_ber_9_10000m_per_node(hops) = pt(100); % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_100KHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % % Pt_hops_d_10000_ber_9_10000m_per_network(hops) = pt(100)*hops; % end % figure; % plot(Pt_hops_d_10000_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)','FontSize',16); % title('Transmission power with different hops at Depth 10000m, BER 10^-9, distance of 10000m_100KHz'); % % limit the plot to 50 for more readable figure % % % % % depth = 100; % BER = 1e-9; % distance = 10000; % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % % Pt_hops_d_100_ber_9_10000m_per_node(hops) = pt(100); % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_node,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Number of Hops','FontSize',16); % ylabel('Transmission Power (Watt)' ,'FontSize',16); % title('Transmission power with different hops at Depth 100m, BER 10^-9, distance of 10000m_100KHz'); % % limit the plot to 50 for more readable figure % % % % % for hops=1:1:5 % pt = getTxPower(depth,BER,distance/hops); % % Pt_hops_d_100_ber_9_10000m_per_network(hops) = pt(100)*hops; % end % figure; % plot(Pt_hops_d_100_ber_9_10000m_per_network,'-s'); hold on; % set(gca,'XTick',-1:1:5); % xlabel('Nu