% soj_eff
%
% Stand-off Jamming effects
%

slx = GRDB_radar - GRDB_sl_radar;

sl = db_ratio(slx);

% Jammer height's and ranges are converted to meters
%
jam_height = 0.3048 .* jam_height;
jxr = jam_range .* 1854;

%
%
xrx = jxr ./ 1.7E+07;
xsx = jam_height ./ jxr;
elx = (xsx - xrx) + ((xsx - xrx) .^ 3) ./ 6;
effj = elx + .00025 ./ (elx + .028);

rej = 3 ./ sin(effj);
leaj = sx * rej * (1 - exp(-jxr / rej));
lerj = wx * jxr ./ 1000;
jlj = db_ratio(SOJ_loss_dB);
jlj = jlj + leaj + lerj;
jpjj = SOJ_pwr_jam ./ SOJ_bw;

jg = db_ratio(SOJ_gain_dB);

rng_soj_only = 0.0048116 * sqrt(trans_pwr_radar * GT_radar * RCS * pulse_width ./ (jpjj .* jg .* ( loss_radar./jlj)));

rs0 = sqrt(rng_soj_only .* jam_range) * (sl) ^ .25;

s = 1./((rs0).^4);

rs00 = 1 / (sum(s))^.25;