difractionlossgraphlee.m

fortran 解复方程的代码

function saida = difractionlossgraphlee( vinicial, vfinal, pontos)
%
% FUN敲O PARA O CALCULO E DESENHO DO GR罠ICO COM O VALOR DAS
% DAS PERDAS POR DIFRAC敲O, PARA UM A GAMA DO PARAMETRO 'v'
% UTILIZANDO O METODO DE LEE
%
% Fonte bibliogr醘ica: The Mobile Radio Propagatio Channel
%                      J. D. Parsons
%                      Pentech Press,1992.                  
%
% sa韉a = difractionlossgraphlee( vinicial, vfinal, pontos)
%
% sa韉a      : '0' se sucesso, '1' se ocorreu erro.
% vinicial   : Valor inicial para o parametro 'v'
% vfinal     : Valor final para o parametro 'v'
% pontos     : Nr. de pontos que comp鮡 a espiral
%

saida = 1;
auxiliar1 = 0;
auxiliar2 = 0;
incremento =(vfinal - vinicial)/(pontos);
x = vinicial:incremento:vfinal;
y = vinicial:incremento:vfinal;
z = vinicial:incremento:vfinal;
for n = 1 : length(x),
  v = vinicial + (n-1) * incremento;
  z(n) = 20 * log10(knifeedgefresnelv(v));
end
x = vinicial:incremento:vfinal;
plot(x,z);
saida = 0;