发布时间 : 星期二 文章MATLAB环境下16QAM调制及解调仿真程序说明更新完毕开始阅读c7511f76a01614791711cc7931b765ce05087a82
v1.0 可编辑可修改 end; figure;
semilogy(SNR_in_dB,Pe,'red*-'); grid on;
xlabel('SNR in dB'); ylabel('Pe');
title('16QAM调制在不同信道噪声强度下的误码率');
%产生二进制信源随机序列
function [info]=random_binary(N)
if nargin == 0, %如果没有输入参数，则指定信息序列为10000个码元 N=10000; end; for i=1:N,
temp=rand; if (temp<,
info(i)=0; % 1/2的概率输出为0 else
info(i)=1; % 1/2的概率输出为1 end end;
function [y,I,Q]=qam(x,Kbase,fs,fb,fc); %
T=length(x)/fb; dt=1/fs; 5
m=fs/fb;
nn=length(x);
t=0:dt:T-dt;
v1.0 可编辑可修改 %串/并变换分离出I分量、Q分量，然后再分别进行电平映射 I=x(1:2:nn-1); Q=x(2:2:nn);
[I,In]=two2four(I,4*m); [Q,Qn]=two2four(Q,4*m);
if Kbase==2; %基带成形滤波 I=bshape(I,fs,fb/4); end;
y=I.*cos(2*pi*fc*t)-Q.*sin(2*pi*fc*t); %调制
Q=bshape(Q,fs,fb/4);
%QAM信号解调
function [xn,x]=qamdet(y,fs,fb,fc); dt=1/fs; t=0:dt:(length(y)-1)*dt; I=y.*cos(2*pi*fc*t); Q=-y.*sin(2*pi*fc*t);
[b,a]=butter(2,2*fb/fs); %设计巴特沃斯滤波器 I=filtfilt(b,a,I); Q=filtfilt(b,a,Q);
m=4*fs/fb; N=length(y)/m; n=(.6:1:N)*m; n=fix(n); In=I(n); Qn=Q(n); xn=four2two([In Qn]); %I分量Q分量并/串转换，最终恢复成码元序列xn nn=length(xn); xn=xn(:); xn=xn';
xn=[xn(1:nn/2);xn(nn/2+1:nn)];
%基带升余弦成形滤波器
function y=bshape(x,fs,fb,N,alfa,delay); %设置默认参数
if nargin<6; delay=8; end; 6
v1.0 可编辑可修改 if nargin<5; alfa=; if nargin<4; N=16;
end; end;
b=firrcos(N,fb,2*alfa*fb,fs); y=filter(b,1,x);
%二进制转换成四进制
function [y,yn]=two2four(x,m); T=[0 1;3 2]; n=length(x); ii=1; for i=1:2:n-1; xi=x(i:i+1)+1; yn(ii)=T(xi(1),xi(2)); ii=ii+1; end;
yn=; y=yn; for i=1:m-1; y=[y;yn]; end;
y=y(:)'; %映射电平分别为；；；
%四进制转换成二进制 function xn=four2two(yn);
y=yn; ymin=min(y); ymax=max(y); ymax=max([ymax abs(ymin)]); ymin=-abs(ymax); yn=(y-ymin)*3/(ymax-ymin); %设置门限电平，判决 I0=find(yn< ;
yn(I0)=zeros(size(I0)); yn(I1)=ones(size(I1));
I1=find(yn>= & yn<; 7
v1.0 可编辑可修改 I2=find(yn>= & yn<; I3=find(yn>=;
yn(I2)=ones(size(I2))*2; yn(I3)=ones(size(I3))*3;
%一位四进制码元转换为两位二进制码元 T=[0 0;0 1;1 1;1 0]; for i=1:n;
xn(i,:)=T(yn(i)+1,:); end; xn=xn';
xn=xn(:); xn=xn';
n=length(yn);
%画出星座图
function c=constel(x,fs,fb,fc); N=length(x); m=2*fs/fb; i1=m-n;
n=fs/fc;
i=1; ph0=(i1-1)*2*pi/n;
while i <= N/m; xi=x(i1:i1+n-1);
y=2*fft(xi)/n; c(i)=y(2); i=i+1; i1=i1+m; end;
%如果无输出，则作图 if nargout<1; cmax=max(abs(c)); ph=(0:5:360)*pi/180; plot*cos(ph),*sin(ph),'c'); hold on;
for i=1:length(c);
ph=ph0-angle(c(i));
8
v1.0 可编辑可修改 a=abs(c(i))/cmax*;
plot(a*cos(ph),a*sin(ph),'r*'); end;
plot([ ],[0 0],'k:',[0 0],[ ],'k:'); hold off; axis equal; axis([ ]); end;
9