file_c8.rar_cdma_伪随机序列CDMA_自相关

%file_c8:SprDespr.m %本程序仿真采用WALSH的扩频解扩过程 clear clc format compact; %可调变量 N_user=8; SNR=15; %正交扩频吗，这里取8阶Walsh函数，即有8个正交Walsh函数 c=[1 1 1 1 1 1 1 1; 1 1 1 1 -1 -1 -1 -1; 1 1 -1 -1 -1 -1 1 1; 1 1 -1 -1 1 1 -1 -1; 1 -1 -1 1 1 -1 -1 1; 1 -1 -1 1 -1 1 1 -1; 1 -1 1 -1 -1 1 -1 1; 1 -1 1 -1 1 -1 1 -1]; Len_PN=length(c); Len_Data=16; Len_Chip=Len_PN*Len_Data; %信源序列 Signal=randint(N_user,Len_Data); for i=1:N_user SigSp(i,:)=kron(Signal(i,:),c(i,:)); end %发射信号为各用户信号的叠加 TranSig(1:Len_Chip)=0; for i=1:N_user TranSig(1,:)=TranSig(1,:)+SigSp(i,:); end %信号经过高斯白噪声信道，接收端接收到的信号为发射信号叠加噪声 RecSig=awgn(TranSig,SNR,'measured'); %解扩过程 for j=1:N_user for i=1:Len_Data De_Spr(j,Len_PN*(i-1)+1:Len_PN*i)=RecSig(Len_PN*(i-1)+1:Len_PN*i).*c(j,:); end end %解相关过程 SigDeCorr(1:N_user,1:Len_Data)=0; for j=1:N_user for i=1:Len_Data SigDeCorr(j,i)=SigDeCorr(j,i)+sum(De_Spr(j,Len_PN*(i-1)+1:Len_PN*i))/Len_PN; end end %判决过程 for j=1:N_user for i=1:Len_Data if(SigDeCorr(j,i)>0.5) Rec_Data(j,i)=1; else Rec_Data(j,i)=0; end end end subplot(4,1,1) stem(Signal(2,:)); title('第二个用户原始信号') subplot(4,1,2) stairs(TranSig) title('发射端8个用户叠加信号') subplot(4,1,3) stem(SigDeCorr(2,:)); title('第二个用户接收端解相关后的信号') subplot(4,1,4) stem(Rec_Data(2,:)); title('第二个用户接收端判决后的信号') %程序结束