任意发送天线,任意接收天线的STBC-MIMO-OFDM的MATLAB程序

if imag(O(con_r,con_c))==0
XX((con_r-1)*carrier_count+1:con_r*carrier_count,con_c)=data((abs(real(O(con_r,con_c)))-1)*carrier_count+1:abs(real(O(con_r,con_c)))...
co_x(abs(real(O(con_ro,con_co))),1)=co_x(abs(real(O(con_ro,con_co))),1)+1;
eta(abs(real(O(con_ro,con_co))),co_x(abs(real(O(con_ro,con_co))),1))=con_ro;
re_met_sym_buf=zeros(carrier_count,symbols_per_carrier,Nr);
re_met_bit=zeros(baseband_out_length,bits_per_symbol,Nr);
baseband_out=round(rand(baseband_out_length,bits_per_symbol)); %生成随机数用于仿真
*carrier_count,1)*sign(real(O(con_r,con_c)));
else
XX((con_r-1)*carrier_count+1:con_r*carrier_count,con_c)=conj(data((abs(real(O(con_r,con_c)))-1)*carrier_count+1:abs(real(O(con_r,con_c)))...
for con_co=1:Nt %用于确定矩阵“O”中元素的位置，符号以及共轭情况
if abs(real(O(con_ro,con_co)))~=0
co_time=size(O,1);
Nt=size(O,2); %发射天线数目
end
end
co_x=zeros(num_X,1);
for con_ro=1:co_time %计算delta,epsilon,eta and conj matrices
data=[];
for ii=1:Nt
tx_buf_buf=carrier_matrix(:,tt+ii-1);
data=[data;tx_buf_buf];
end
XX=zeros(co_time*carrier_count,Nt);
addprefix_length=IFFT_bin_length+cp_length;
M_psk=4;
bits_per_symbol=log2(M_psk); %位数/符号
Nr=2; %接收天线数目
num_X=1;
for cc_ro=1:co_time
for cc_co=1:Nt
num_X=max(num_X,abs(real(O(cc_ro,cc_co))));
de_data=bi2de(baseband_out); %二进制向十进制转换
data_buf=pskmod(de_data,M_psk,0); %PSK调制
coj_mt(con_ro,abs(real(O(con_ro,con_co))))=imag(O(con_ro,con_co));
end
end
end
eta=eta.';
eta=sort(eta);
eta=eta.';
carriers = (1: carrier_count) + (floor(IFFT_bin_length/4) - floor(carrier_count/2)); % 坐标： (1 to 100) + 14=(15:114)
conjugate_carriers=IFFT_bin_length-carriers+2; % 坐标 ：256 - (15:114) + 1= 257 - (15:114) = (242:143)
disp('Wait until SNR=');disp(snr_max);
SNR
n_err_sym=zeros(1,Nr);
n_err_bit=zeros(1,Nr);
Perr_sym=zeros(1,Nr);
Perr_bit=zeros(1,Nr);
delta(con_ro,abs(real(O(con_ro,con_co))))=sign(real(O(con_ro,con_co)));
epsilon(con_ro,abs(real(O(con_ro,con_co))))=con_co;
symbols_per_carrier=66; %符号数/载波
cp_length=10; %循环前缀长度
%%STBC-MIMO-OFDM.m
clear all;
i=sqrt(-1);
IFFT_bin_length=512; %傅立叶变换抽样点数目
carrier_count=100; %子载波数目
XX=[tx_training_symbols;XX]; %添加训练序列
rx_buf=zeros(1,addprefix_length*(co_time+1),Nr);
graph_inf_sym=zeros(snr_max-snr_min+1,2,Nr);
for SNR=snr_min:snr_max %开始仿真
clc
for rev=1:Nr
for ii=1:Nt
tx_buf=reshape(XX(:,ii),carrier_count,co_time+1);
*carrier_count,1))*sign(real(O(con_r,con_c)));
end
end
end
end %空时编码结束
%O=[1 2;-2+j 1+j]; %Alamouti Scheme [x1 x2;-x2* x1*] 二天线发送矩阵
O=[1 -2 -3;2+j 1+j 0;3+j 0 1+j;0 -3+j 2+j]; %for [x1 -x2 -x3;x2* x1* 0;x3* 0 x1*;0 -x3* x2*] 三天线发送矩阵
carrier_matrix=reshape(data_buf,carrier_count,symbols_per_carrier);
for tt=1:Nt:symbols_per_carrier %取数为空时编码做准备，此处每次取每个子载波上连续的两个数
for con_r=1:co_time %进行空时编码
for con_c=1:Nt
if abs(real(O(con_r,con_c)))~=0
tx_training_symbols=training_symbol(Nt,carrier_count);
baseband_out_length = carrier_count * symbols_per_carrier;
snr_min=3; %最小信噪比
snr_max=15; பைடு நூலகம் %最大信噪比
graph_inf_bit=zeros(snr_max-snr_min+1,2,Nr); %绘图信息存储矩阵