实现2ask.4ask.2fsk.4fsk.qam16.qam8调制的matlab程序

ask2.m ask4.m fsk2.m fsk4.m qam16.m qam8.m

clear
%产生基带符号流
N=40;       %信源比特流长度为保证对齐选择是log2（M）的整倍数
bitstream=zeros（1N）;
for n1=1:N
    bitstream（n1）=binornd（10.511）;%%二项分布
end
%产生载波
fc=5;           %载波频率
fs=50;          %采样频率
ts=1/fs;
df=0.3;
T=1;             %每符号持续时间
N_samples=T*fs;  %每符号内的采样点数
t=0:T/N_samples:（T-T/N_samples）;
carrier=cos（2*pi*fc.*t）;
%产生信号脉冲g（t）:升余弦脉冲g（t）
%gt=1-cos（2*pi*（1/T）*t）;

%生成调制信号S（t）
r=zeros（1length（carrier）*length（bitstream））;
for n1=1:length（bitstream）
    r（（N_samples*（n1-1）+1）:（N_samples*（n1-1）+N_samples））=bitstream（n1）*carrier;
end
result=r*2^15;
plot（r）  
title（‘2ASK仿真波形图‘）;
axis（[0 500 -4 4]）
xlabel（‘采样点‘）
ylabel（‘幅度‘）
%求频谱
[Rrdf1]=fftseq（rtsdf）;
R=R/fs;
f=[0:df1:df1*（length（r）-1）]-fs/2;
figure（2）
plot（fabs（fftshift（R）/N））%%????

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2444  2009-09-02 09:30  matlab程序\qam16.m

     文件        864  2009-09-02 09:31  matlab程序\ask2.m

     文件       1232  2009-09-02 09:31  matlab程序\ask4.m

     文件        956  2009-09-02 09:32  matlab程序\fsk2.m

     文件       1271  2009-09-02 09:32  matlab程序\fsk4.m

     文件       1853  2009-09-02 09:37  matlab程序\qam8.m

     目录          0  2009-09-10 20:47  matlab程序

----------- ---------  ---------- -----  ----

                 8620                    7