bmod1.m

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

function []=bmod1(x,y,Kmod,Kbase,fs,fb,fc,rd);
%
% BBI 2000 主要是绘制图形
global eta
mstr=str2mat('BPSK','DPSK','FSK','ASK(OOK)',...
    'QPSK','QDPSK','16QAM');
tstr=mstr(Kmod,:);
if Kmod==2;
    x=dcode(x,rd);
    tstr=[tstr '(reference digit:'int2str(rd)')'];
end;
eta=round(eta*1000)*.001;
set(gcf,'name',['tstr','Spectral Efficiency:',...
        'num2str(eta)','(bit/s)/Hz','blanks(10)','BBI 2000']);
n=length(y);t=(0:n-1)/fs;
x=pulse(x,fs/fb,2);
if Kbase==2;x=bshape(x);end;
subplot('position',[.05 .5811 .74 .3439]);
plot(t,y,t,x*.5);tstr='Signal';
if Kbase==2;tstr=[tstr '(alfa=0.5)'];end;
title(tstr);xlabel('t(us)');zoom xon;