fun_jakes.m

来自「无线移动信道的matlab源码 用于对无线通信信道的编程实现」· M 代码 · 共 43 行

%--------------------------------------------------------------------
% fun_Jakes.m -------------------------------------------------------
%
% Computation of the error function according to Eq.(5.61) for the  
% optimization of the discrete Doppler frequencies (Jakes PSD).
%
% Used m-file: acf_mue.m
%--------------------------------------------------------------------
% F=fun_Jakes(x)
%--------------------------------------------------------------------
% Explanation of the input parameters:
%
% x: parameter vector to be optimized 

function F=fun_Jakes(x)

load data
% N=100;f_max=91;
% tau=linspace(0,N_i/(2*f_max),N);
% N_i=15;sigma_0_2=1;
% c_i_n=sqrt(sigma_0_2)*sqrt(2/N_i)*ones(N_i,1);
f_i_n=x;
r=acf_mue(f_i_n,c_i_n,tau);
F=norm(abs(Jo-r),-inf);


if PLOT==1,
%    subplot(1,2,1)
%    stem(f_i_n,c_i_n)
%    xlabel('f_i_n')
%    ylabel('c_i_n')
%    title(['N_i = ',num2str(N_i)])
%    subplot(1,2,2)
   plot(tau,Jo,'-',tau,r,'o')
   xlabel('tau (s)')
   ylabel('ACF')
   legend('r','r~')
%    title(['Error=',num2str(F)])
   pause(0)
end

save x x