radar_eq.m
上传用户:szahd2008
上传日期:2020-09-25
资源大小:1275k
文件大小:1k
源码类别:

传真(Fax)编程

开发平台:

Matlab

  1. function [snr] = radar_eq(pt, freq, g, sigma, b, nf, loss, range)
  2. % This program implements Eq. (1.63)
  3. c = 3.0e+8; % speed of light
  4. lambda = c / freq; % wavelength
  5. p_peak = 10*log10(pt); % convert peak power to dB
  6. lambda_sqdb = 10*log10(lambda^2); % compute wavelength square in dB
  7. sigmadb = 10*log10(sigma); % convert sigma to dB
  8. four_pi_cub = 10*log10((4.0 * pi)^3); % (4pi)^3 in dB
  9. k_db = 10*log10(1.38e-23); % Boltzman's constant in dB
  10. to_db = 10*log10(290); % noise temp. in dB
  11. b_db = 10*log10(b); % bandwidth in dB
  12. range_pwr4_db = 10*log10(range.^4); % vector of target range^4 in dB
  13. % Implement Equation (1.63)
  14. num = p_peak + g + g + lambda_sqdb + sigmadb;
  15. den = four_pi_cub + k_db + to_db + b_db + nf + loss + range_pwr4_db;
  16. snr = num - den;
  17. return