qpsk_made.m

QPSK调制解调

%*********************************************
% QPSK调制
Rb=2400;   %信息速率
fc=19200;  %载波速率
fs=8*19200;%采样率
T=0.005;   %时间
s=randsrc(1,T*Rb,[0,1,2,3]);%信源序列
for k=1:length(s)
  st(((k-1)*fs/Rb+1):(k*fs/Rb))=sin(2*pi*(0.0125*(0:(fs/Rb-1))*fc/Rb+0.25*s(k)));
end
%figure(1);
%plot(st);ylim([-2,2]);
%title('未加噪声QPSK信号');
%***********************************************
sout=AWGN(st,9);      %加9db的噪声
%figure(2);
%plot(sout);ylim([-2,2]);
%title('加噪声后的QPSK信号');