16qam星形和矩形星座图调制解调matlab代码.doc

%% ------------------------------------------------------------ % 软件无线电课程设计 % % 方形、星形 16QAM 调制解调仿真 % %%------------------------------------------------------------ %%主程序 clc clear %% 定义参数 fd=250*10^6; %码元速率 250M fs=2500*10^6; % 滤波器采样率 fc=2500*10^6; % 载波频率 2.5G f=10000*10^6; %对载波采样 data_len=200000; % 数据长度 sym_len=data_len/4; % 码元序列长度 M_QAM=16;%QAM 数 k=log2(M_QAM); SNR=1:12;%白噪声信噪比, %% ------------------------------------------------------------ bit_tx=randint(1,data_len);%产生随机序列 echo off; rec_qam16=QamMod(bit_tx,16); %方形 16QAM 调制 star_qam16=SrarQamMod(bit_tx); % 星形 16QAM 调制 base_rec=base_shape(fd,fs,f,rec_qam16); % 基带成型滤波 base_star=base_shape(fd,fs,f,star_qam16); % 基带成型滤波 for i=1:length(SNR) % 信噪比从 1dB 到 12dB 计算误码率SNR_=i%方形映射 16QAMrf_rec_qam16=CarrierMod(fc,f,base_rec); %载波调制rf_rec_qam16_n=awgn(rf_rec_qam16,SNR(i), measured ); %加噪声[rec_qam16_rx base_rec_rx]=CarrierDemod(fd,fs,fc,f,rf_rec_qam16_n); % 载波解调 bit_rec_rx=QamDemod(rec_qam16_rx,16); %MQAM 解调 [num_qam16,perr_qam16_rec(i)]=biterr(bit_tx,bit_rec_rx);%误码率qam16_data_rec(i,:)=rec_qam16_rx;%scatterplot(rec_qam16_rx);%星形映射 16QAM rf_star_qam16=CarrierMod(fc,f,base_star); %载波调制rf_star_qam16_n=awgn(rf_star_qam16,SNR(i), measured ); % 加噪声[star_qam16_rx base_star_rx]=CarrierDemod(fd,fs,fc,f,rf_star_qam16_n); %载波解调 bit_star_rx=StarQamDemod(star_qam16_rx); %MQAM 解调 [num_qam16,perr_qam16_star(i)]=biterr(bit_tx,bit_star_rx);%误码率qam16_data_star(i,:)=star_qam16_rx; %scatterplot(star_qam16_rx);end %% 理论误码率计算 SNRtheo=0:0.1:length(SNR); for i=1:length(SNRtheo)SNRdec=10.^(SNRtheo(i)/10);theo_perr_qam16(i)=(3/8)*erfc(sqrt(SNRdec*2/5)); end %% 基带波形 N=200; n=1:N; t=1:N*10; %发送端波形 figure; stem(n,bit_tx(n)); title( 发送序列 ); % 发送序列 figure( Name , 发送端基带信号 ); subplot(411); plot(t,real(base_rec(t))); title( 方形映射-Q 路 ); subplot(412); plot(t,imag(base_rec(t))); title( 方形映射-I 路 ); subplot(413); plot(t,real(base_star(t))); title( 星形映射-Q 路 ); subplot(414); plot(t,imag(base_star(t))); title( 星形映射-I 路 ); %接收端波形 figure; subplot(211); stem(n,bit_rec_rx(n)); title( 方形接收序列 ); subplot(212); stem(n,bit_star_rx(n)); title( 星形接收序列 ); figure( Name , 接收端基带信号 ); subplot(411); plot(t,real(base_rec_rx(t))); title( 方形映射-Q 路 ); subplot(412);plot(t,imag(base_rec_rx(t))); title( 方形映射-I 路 ); subplot(413); plot(t,real(base_star_rx(t))); title( 星形映射-Q 路 ); subplot(414); plot(t,imag(base_star_rx(t))); title( 星形映射-I 路 ); %基带眼图 N1=20000; Tn=f/fd; eye_rex=base_rec(1:N1); eyediagram(eye_rex,Tn*4,Tn); title( 方形基带眼图 ); eye_star=base_star(1:N1); eyediagram(eye_star,Tn*4,Tn); title( 星形基带眼图 ); %% 接收端星座图 %scatterplot(qam16_data_rec(12,:)); figure( Name , 方形 16QAM 接收端星座图 ); for i=3:3:12subplot(2,2,i/3);plot(real(qam16_data_rec(i,:)),imag(qam16_data_rec(i,:)), . );xmax=5;axis([-xmax xmax -xmax xmax])title([ Snr= ,num2str(SNR(i)), dB ])