clc; clear; close all; tic; N=128; M=[4 16 32 64]; D=5; c=0.15; nt=0.1289; nr=0.9500; N_ofdm=1000; snr_dB=1:18; SNR=10.^(snr_dB./10); for kk=1:length(snr_dB) N_fft=N*2+2; for jj=1:length(M) base_data=randi([0 1],1,N*N_ofdm*log2(M(jj))); data_temp1= reshape(base_data,log2(M(jj)),[])'; data_temp2= bi2de(data_temp1); mod_data = qammod(data_temp2,M(jj)); data=reshape(mod_data,N,[])'; H_data=zeros(N_ofdm,N_fft); H_data(:,2:N_fft/2)= data; H_data(:,N_fft/2+2:N_fft)= conj(fliplr(data)); ifft_data=ifft(H_data,[],2); ifft_data=ifft_data+0.02*ones(size(ifft_data)); Noise=awgn(ifft_data,SNR(kk),'measured')-ifft_data; Rx_data=ifft_data*nt*nr*exp(-c*D)+Noise; Rx_data=Rx_data/(nt*nr*exp(-c*D)) fft_data=fft(Rx_data,[],2); Rx_psk_data=fft_data(:,2:N_fft/2); demodulation_data = qamdemod(Rx_psk_data',M(jj)); demodulation_data= reshape(demodulation_data,[],1); temp1=de2bi(demodulation_data); err(kk,jj)=sum(sum((temp1~=data_temp1))); end BER(kk,:)=err(kk,:)./(N*N_ofdm*log2(M(jj))); end figure(); for a=1:length(M) semilogy(snr_dB,BER(:,a),'*-','LineWidth',1.5);hold on; end代码翻译

clc; clear; close all; tic; % 清空变量和图形窗口，记录程序开始时间
N=128; % 子载波数
M=[4 16 32 64]; % 调制阶数
D=5; % 距离
c=0.15; % 衰落系数
nt=0.1289; % 发射天线数
nr=0.9500; % 接收天线数
N_ofdm=1000; % OFDM符号数
snr_dB=1:18; % 信噪比范围（单位：dB）
SNR=10.^(snr_dB./10); % 信噪比（单位：线性）
for kk=1:length(snr_dB) % 循环信噪比
N_fft=N*2+2; % FFT点数
for jj=1:length(M) % 循环调制阶数
base_data=randi([0 1],1,N*N_ofdm*log2(M(jj))); % 生成随机二进制数据
data_temp1= reshape(base_data,log2(M(jj)),[])'; % 二进制数据转换成M进制数据
data_temp2= bi2de(data_temp1); % 将M进制数据转换为十进制数据
mod_data = qammod(data_temp2,M(jj)); % QAM调制
data=reshape(mod_data,N,[])'; % 按子载波进行分组
H_data=zeros(N_ofdm,N_fft); % 初始化频域数据
H_data(:,2:N_fft/2)= data; % 将调制后的数据存放在频域数据中
H_data(:,N_fft/2+2:N_fft)= conj(fliplr(data)); % 利用对称性将数据存放在频域数据中
ifft_data=ifft(H_data,[],2); % IFFT变换
ifft_data=ifft_data+0.02*ones(size(ifft_data)); % 加上直流偏置
Noise=awgn(ifft_data,SNR(kk),'measured')-ifft_data; % 加入高斯白噪声
Rx_data=ifft_data*nt*nr*exp(-c*D)+Noise; % 接收信号经过信道影响和加性高斯白噪声干扰，得到接收信号
Rx_data=Rx_data/(nt*nr*exp(-c*D)); % 接收信号归一化
fft_data=fft(Rx_data,[],2); % FFT变换
Rx_psk_data=fft_data(:,2:N_fft/2); % 从频域数据中提取QAM调制后的数据
demodulation_data = qamdemod(Rx_psk_data',M(jj)); % QAM解调
demodulation_data= reshape(demodulation_data,[],1); % 将解调后的十进制数据转换为一维向量
temp1=de2bi(demodulation_data); % 将十进制数据转换为二进制数据
err(kk,jj)=sum(sum((temp1~=data_temp1))); % 统计误码数
end
BER(kk,:)=err(kk,:)./(N*N_ofdm*log2(M(jj))); % 计算误码率
end
figure(); % 新建图形窗口
for a=1:length(M) % 循环调制阶数
semilogy(snr_dB,BER(:,a),'*-','LineWidth',1.5);hold on; % 绘制误码率曲线
end