matlab计算GTD-UTD绕射源代码.zip

【项目代码】matlab计算GTD-UTD绕射源代码.zip 大家下载看看

function [coefdif1 coefdif2] = cdecranabsorvente（ x y frequencia）
%
% Gera玢o dos coeficientes de difrac珲a D（teta） e Dt（teta）
% para ecran‘s absorventes tal que:
% Dt（teta）=D（teta）*F（S） ?cont韓ua e tata = teta（xy）.
%
% function [coefdif1 coefdif2] = cdecranabsorvente（ x y frequencia）
%
% coefdif1    : Coeficiente de difra玢o D（teta）;
% coefdif2    : Coeficiente de difra玢o Dt（teta）;
% x	        : Dist鈔cia horizontal da descontinuidade espacial;
% y	        : Vector com as eleva珲es em rela玢o ao plano horizontal
%		          que cont閙 a descontinuidade espacial （edge）;
% frequencia  : Valor da frequencia de trabalho （MHz）.
%

coefdif1 = y*0;
coefdif2 = y*0;
s = 0;
tgteta2 = 0;
ro = 0;
k = 0;
fs = 0;
lambda = 300/frequencia;
beta = 2*pi/lambda;
csi = 0;
k1 = 0;
k2 = 0;
k3 = -1/sqrt（2*pi*beta）;
f = 0;
g = 0;
num1 = 0;
den1 = 0;
num2 = 0;
den2 = 0;
cdaux = 0;
num3 = 0;
den3 = 0;
costeta = 0;
senteta = 0;
for k = 1 : length（y）
  ro = power（ （x*x + y（k）*y（k）） 0.5）;
  tgteta2 = power（ （y（k）/x） 2）;   
  s = beta*ro*tgteta2/2;
  k1 = power（ （2*pi*s） 0.5）;
  csi = power（ （2*s/pi） 0.5）;
  num1 = 1 + 0.926*csi;
  den1 = 2 + 1.792*csi + 3.104*power（ csi 2）;
  f = num1/den1;
  num2 = 1;
  den2 = 2 + 4.142*csi + 3.492*power（ csi 2） + 6.670*power（ csi 3）;
  g = num2/den2;
  k2 = f + j*g;
  fs = k1*k2;
  costeta = x/ro;
  senteta = y（k）/ro;
  num3 = 1 + costeta;
  den3 = 2*senteta;
  if den3 ~= 0
    coefdif1（k） = k3*num3/den3;
    coefdif2（k） = coefdif1（k）*fs; 
  else
    coefdif1（k） = k3*num3/den3;
    coefdif2（k） = 0;      
  end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        1636  2000-08-28 11:19  cdecranabsorvente.m
     文件        1212  2000-09-25 16:09  cunharecta.m
     文件        1043  2000-09-25 15:26  ecranabsorventefelsen.m
     文件        1147  2002-05-04 00:24  ecranabsorventegtd.m
     文件        1392  2000-09-24 22:24  ecranabsorventeutd.m
     文件        1103  2000-09-25 15:58  ecrancondutor.m
     文件        1424  2000-08-28 11:20  funcaotransicao.m
     文件       10151  2002-05-04 00:26  GTD-UTD-Difraction.jpg
     文件       16418  2002-05-04 00:36  JCarmo\Contribui珲es para a Mathworks\SeveralMathFunctions.zip
     文件         819  2002-05-04 00:22  transictionfunction_fs.m