fun_Jakes.m
上传用户:hbrsgg3
上传日期:2022-08-01
资源大小:5k
文件大小:1k
源码类别:

通讯/手机编程

开发平台:

Windows_Unix

  1. %--------------------------------------------------------------------
  2. % fun_Jakes.m -------------------------------------------------------
  3. %
  4. % Computation of the error function according to Eq.(5.61) for the
  5. % optimization of the discrete Doppler frequencies (Jakes PSD).
  6. %
  7. % Used m-file: acf_mue.m
  8. %--------------------------------------------------------------------
  9. % F=fun_Jakes(x)
  10. %--------------------------------------------------------------------
  11. % Explanation of the input parameters:
  12. %
  13. % x: parameter vector to be optimized
  14. function F=fun_Jakes(x)
  15. f_i_n=x;
  16. r=acf_mue(f_i_n,c_i_n,tau);
  17. F=norm(abs(Jo-r),p);
  18. if PLOT==1,
  19. subplot(1,2,1)
  20. stem(f_i_n,c_i_n)
  21. xlabel('f_i_n')
  22. ylabel('c_i_n')
  23. title(['N_i = ',num2str(N_i)])
  24. subplot(1,2,2)
  25. plot(tau,Jo,tau,r)
  26. xlabel('tau (s)')
  27. ylabel('ACF')
  28. title(['Error-norm=',num2str(F)])
  29. pause(0)
  30. end