%GROUND HEIGHT (KM)
G=0;

%ELEVATION ANGLE (DEG)'
THETA=10;

%A*R^B COEFFICIENTS A,B
A=1;
B=1;

%RAIN-RATE R (mm/hr)
R=10;

% RAIN HEIGHT H (km)
H=4;

L=(H-G)/sin(THETA*pi/180);
D=L*cos(THETA*pi/180);

ALPHA=A*R^B;
D1=3.8-.6*log(R);

X=2.3*R^(-.17);
Y=.026-.03*log(R);
U=(1/D1)*(log(X)+Y*D1);
TERM1=(exp(U*B*D1)-1)/(U*B);
TERM2=(X^B*exp(Y*B*D1))/(Y*B);
TERM3=(X^B*exp(Y*B*D))/(Y*B);
if (D <= D1)
  TERM1=(exp(U*B*D)-1)/(U*B);
  TERM2=0;
  TERM3=0;
end
LEFF=(TERM1-TERM2+TERM3)/cos(THETA*pi/180);
ATT=ALPHA*LEFF;
KE=LEFF/L;

ATTENUTATION=ATT