charac.m

无线移动信道的matlab源码 用于对无线通信信道的编程实现

clear all;
METHOD='es_j';
N_i1=15;
f_max=100;
PHASE='rand';
PLOT=1;
sigma_0_2=1/2;
T_s=0.5e-4;
T_sim=3;
% rho=0.9856;
rho=0;
% f_rho=0.7326*f_max;
f_rho=0;
% theta_rho=rand(1,1)*2*pi;
theta_rho=0;
figure(1)
[f_i_n,c_i_n,theta_i_n]=parameter_Jakes(METHOD,N_i1,sigma_0_2,f_max,PHASE,0);
% theta_i_n=rand(N_i,1)*2*pi;


figure(2)
clf
mu_i_t1=Mu_i_t(c_i_n,f_i_n,theta_i_n,T_s,T_sim,PLOT);
% Au=xcorr(mu_i_t);
% 
% Power=fftshift(Au)
% plot(Power);
% % psd(mu_i_t)
% 
figure(3)

N_i2=16;
[f_i_n1,c_i_n1,theta_i_n1]=parameter_Jakes(METHOD,N_i2,sigma_0_2,f_max,PHASE,0);
mu_i_t2=Mu_i_t(c_i_n1,f_i_n1,theta_i_n1,T_s,T_sim,0);
N_i3=9;
[f_i_n2,c_i_n2,theta_i_n2]=parameter_Jakes(METHOD,N_i3,sigma_0_2,f_max,PHASE,0);
mu_i_t3=Mu_i_t(c_i_n2,f_i_n2,theta_i_n2,T_s,T_sim,0);
N_i4=10;
[f_i_n3,c_i_n3,theta_i_n3]=parameter_Jakes(METHOD,N_i4,sigma_0_2,f_max,PHASE,0);
mu_i_t4=Mu_i_t(c_i_n3,f_i_n3,theta_i_n3,T_s,T_sim,0);



% R=xcorr(mu_i_t(1:5),mu_i_t1(1:5));
% R1=xcorr(mu_i_t(1:5));
% P=fftshift(R1);
% plot(P);
% theta_i_n1=rand(N_i,1)*2*pi;
% xi_t=Rice_proc(c_i_n,f_i_n,theta_i_n,f_i_n1,c_i_n1,theta_i_n1,rho,f_rho,theta_rho,T_s,T_sim,0);
xi_t1=mu_i_t1+j*(mu_i_t2) ;
xi_t2=mu_i_t3+j*(mu_i_t4) ;
R2=xcorr(abs(xi_t1(1:5)),abs(xi_t2(1:5)));
plot(R2);
% P1=fftshift(R2);
% plot(P1);

% 
% % figure(4)
% 
% sigma_0_2=0.2774;
% kappa_0=0.506;
% theta_0=30;
% sigma_3=0.0905;
% m_3=0.0439;
% f_c=1e6;
% T_s=0.5e-4;
% T_sim=0.3;
% f_max=100;
% rho=0.1118;
% f_rho=0.6366*f_max;
% theta_rho=rand(1,1)*2*pi;
% figure(1)
% eta_t=Suzuki_Type_II(25,15,sigma_0_2,kappa_0,theta_0,f_max,...
%                    sigma_3,m_3,rho,theta_rho,f_c,T_s,T_sim,1);
% figure(2)               
% p=lcr_sim(eta_t,0:10,T_sim,1);
% figure(3)
% adf=adf_sim(eta_t,0:9,T_sim,1);