bmod3.m

交全面的给出了好几种调制解调方案的matlab代码,又ASK,BPSK,FSK,QAM等的源代码 对通信领域的研究人员很有帮助

function Kerror=bmod3(xn,x,Kmod,fs,fb,msg,nb);
%
%Usage:bmod2(xn,x,Kmod,fs,fb,msg,);BBI 2000;绘制图形
m=fs/fb;n=length(x(1,:));t=(0:n-1)/fs;[mm,nn]=size(x);
xm=max(x);xm=max(xm(:));x=.51*x/xm;
subplot('position',[0.05 0.11 0.74 0.3439]);
if mm==1;
    plot(t,x,t,sign(x)*.5);
elseif mm==2;
    xm=max(abs(x(1:2,1:fix(nn*.95))));x=.6*x/max(xm);plot(t,x);
end;
v=axis;axis([v(1:2) -1 1]);set(gca,'ygrid','on');
if Kmod==7;
    set(gca,'ytick',[-1 -.6 -.2 0 .2 .6 1]);
end;
c='bbbbbbbbrrrrrrrr';dt=t(2);
for i=1:length(xn);
    ci=rem(i,16);ci=ci+(ci==0)*16;ci=c(ci);
    text((2*i-1)*m*dt/2,.8,int2str(xn(i)),'color',ci);
end;
title('Detection Output');
N=length(str2cod(msg));
if nb(1)>0;
    bstr=['BER:','num2str(nb(1))','/','num2str(nb(2))'];
    text(v(2),1.15,bstr,'color','r','fonts',10,'hor','right');
end;
mstr=cod2str(xn(1:N));K=strcmp(mstr,mdg)+1;c='rb';
text(0,-1.4,'Demod Message:');
text(v(2)*3/16,-1.4,mstr,'color',c(K),'fontsize',10);
Kerror=rem(K,2);