www.pudn.com > 16QAM.rar > 16QAM.txt, change:2011-05-15,size:1819b


main_plot.m 
clear;clc;echo off;close all; 
N=10000;               %设定码元数量 
fb=1; 	               %基带信号频率 
fs=32;                 %抽样频率 
fc=4;  	               %载波频率,为便于观察已调信号,我们把载波频率设的较低 
Kbase=2;               % Kbase=1,不经基带成形滤波,直接调制;  
                       % Kbase=2,基带经成形滤波器滤波后,再进行调制 
info=random_binary(N);               %产生二进制信号序列 
[y,I,Q]=qam(info,Kbase,fs,fb,fc);    %对基带信号进行16QAM调制 
y1=y;  y2=y;                         %备份信号,供后续仿真用 
T=length(info)/fb;   m=fs/fb;	nn=length(info); 
dt=1/fs;             t=0:dt:T-dt;    
subplot(211);  
%便于观察,这里显示的已调信号及其频谱均为无噪声干扰的理想情况 
%由于测试信号码元数量为10000个,在这里我们只显示其总数的1/10 
plot(t(1:1000),y(1:1000),t(1:1000),I(1:1000),t(1:1000),Q(1:1000),[0 35],[0 0],'b:'); 
title('已调信号(In:red,Qn:green)'); 
%傅里叶变换,求出已调信号的频谱 
n=length(y);     y=fft(y)/n;    y=abs(y(1:fix(n/2)))*2; 
q=find(y<1e-04); y(q)=1e-04;    y=20*log10(y); 
f1=m/n;          f=0:f1:(length(y)-1)*f1; 
subplot(223);	 
plot(f,y,'r');	 
grid on;   
title('已调信号频谱'); 	xlabel('f/fb');  
%画出16QAM调制方式对应的星座图 
subplot(224);  
constel(y1,fs,fb,fc);    title('星座图'); 
 
SNR_in_dB=8:2:24;                     %AWGN信道信噪比 
for j=1:length(SNR_in_dB) 
    y_add_noise=awgn(y2,SNR_in_dB(j)); %加入不同强度的高斯白噪声 
    y_output=qamdet(y_add_noise,fs,fb,fc);      %对已调信号进行解调 
    numoferr=0;  
    for i=1:N              
        if (y_output(i)~=info(i)),      
            numoferr=numoferr+1; 
        end; 
    end; 
    Pe(j)=numoferr/N;                 %统计误码率 
end; 
figure; 
semilogy(SNR_in_dB,Pe,'red*-');      
grid on; 
xlabel('SNR in dB');  
ylabel('Pe'); 
title('16QAM调制在不同信道噪声强度下的误码率');