%生成哈達(dá)碼矩陣（擴(kuò)頻碼）
H=[1];
for?i=1:3???
????H=[HH;H-H];%8行8列
end
d=[1-11-1];%對序列d進(jìn)行擴(kuò)頻
figure（1）;
stem（d）;
axis（[05-22]）;
title（‘原序列‘）;
?
?
%擴(kuò)頻
s=[];
for?i=1:length（d）
????s=[sd（i）*H（7:）];%s為擴(kuò)頻后信號，32個元素的序列H（7:）=[11-1-1，-1，-1-111]
end
s;
figure（2）;
stem（s）;
axis（[040-22]）;
title（‘?dāng)U頻后信號‘）;
?
?
%調(diào)制
c=2000;%碼片速率
fc=8000;%載波頻率
fs=128000;
t=0.0005/64:0.0005/64:0.0005;
m=sin（2*pi*fc*t）;%載波
b=[];
for?j=1:length（s）
b=[bs（j）*m];
end
figure（3）;
plot（b）;
title（‘調(diào)制信號‘）;
axis（[02100-22]）;
b;
?

%加噪聲
noise=[];
noise=awgn（b20）;
noise;
figure（4）;
plot（noise）;
title（‘加噪聲的信號‘）;
axis（[02100-44]）;
?
?
?
%解擴(kuò)
?bnoise=[];
?help=[];
?for?i=1:length（H（7:））
?????for?j=1:64
?????if?H（7i）==1
?????????help=[help1];
?????else?
?????????help=[help-1];
?????end
?????end
?end
?help=[helphelphelphelp];
?bnoise=help.*noise;
bnoise;
figure（5）;
plot（bnoise）;
axis（[02100-44]）;
title（‘解擴(kuò)后的信號‘）;
?
?
?
?
?
%?%帶通濾波器
%?load?bandpass?oo
%?signal1=[];
%?signal1=filter（oo1bnoise）;
%?figure（6）;
%?plot（signal1）;
%?axis（[02100-44]）;
%?title（‘帶通濾波后的信號‘）;
?
?
?
?
?
%解調(diào)
p=[];
for?k=1:32
???p=[pbnoise（（（k-1）*64+1）:（k*64））.*m];
end
p;
figure（7）;
plot（p）;
title（‘解調(diào)信號‘）;
?
?
?
?
%低通濾波器
load?lowpass?oo1
signal2=[];
signal2=filter（oo11p）;
figure（8）;
stairs（1:length（signal2）signal2）;
title（‘低通濾波后的信號‘）;
signal2;
%抽樣判決
IN=fix（length（oo1）/2）;%時延
a=4*8*16/2+IN;
getsignal=[];
for?i1=1:4
????if?signal2（a）>0
????????getsignal=[getsignal1];
????else
????????getsignal=[getsignal-1];
????end
??????a=a+4*8*16;
end
figure（9）;
stem（getsignal）;
axis（[05-22]）;
title（‘接受到的信號‘）;
getsignal

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1834??2017-05-24?15:18??新建文件夾?（4）\kuopin.m

?????目錄??????????0??2018-05-06?10:31??新建文件夾?（4）

-----------?---------??----------?-----??----

?????????????????1834????????????????????2