adf_sim.m

jakes模型

%--------------------------------------------------------------------
% adf_sim.m ---------------------------------------------------------
%
% Program for the computation of the average duration of fades T_(r).
%
% Used m-files: cdf_sim.m, lcr_sim.m
%--------------------------------------------------------------------
% adf=adf_sim(xi_t,r,T_sim,PLOT)
%--------------------------------------------------------------------
% Explanation of the input parameters:
%
% xi_t: deterministic process or time-domain signal to be analysed
% with respect to the average duration of fades T_(r)
% r: equidistant level vector
% T_sim: duration of the simulation
% PLOT: plot of the resulting average duration of fades T_(r),
% if PLOT==1
function adf=adf_sim(xi_t,r,T_sim,PLOT)

cdf=cdf_sim(xi_t,r);
lcr=lcr_sim(xi_t,r,T_sim);

adf=cdf./lcr;

if PLOT==1,
   plot(r,adf,'yx')
   xlabel('r')
   ylabel('T_(r)')
end