clear all;
clc;

% ****************************initialize the parametres*********************************

Bit_Num=4;  %每個(gè)符號(hào)比特?cái)?shù)
IFFT_Num=256; %采樣點(diǎn)數(shù)
Carrier_Num=150; %子載波數(shù)
OFDM_per_Symbol=30; %每幀OFDM信號(hào)含有的OFDM信號(hào)的個(gè)數(shù)
SNR_N=20; %信噪比間隔
SNR_Bit=50; %每比特信噪比
GI=20; %保護(hù)間隔長度
LI=5 ; %導(dǎo)頻間隔
Np=ceil(Carrier_Num/LI)+1; %導(dǎo)頻數(shù)    加1保證最后一行子載波中也有導(dǎo)頻
Carriers=1:Carrier_Num+Np;
N_Num=Bit_Num*Carrier_Num*OFDM_per_Symbol;

% ***********************Generate the random binary stream for transmit test******
 
BitTx=randint(1,N_Num);

% ********************Modulate (generates 16QAM symbols)*****************

SymQAM=tx_16QAM_mod(BitTx);

figure(1)
plot(SymQAM,'b*');
axis([-5 5 -5 5]);

%*******************Generate the pilot signal************
  
train_sym1=randint(1,2*OFDM_per_Symbol);
train_sym2=randint(1,2*OFDM_per_Symbol);
t=2*(train_sym1.*2-1)+(train_sym2.*2-1);
treal=t(1:2:2*OFDM_per_Symbol);
timage=t(2:2:2*OFDM_per_Symbol);
training_symbols1=treal+i.*timage;
training_symbols2=training_symbols1.';
training_symbols=repmat(training_symbols2,1,Np);

pilot=1:LI+1:Carrier_Num+Np;
if length(pilot)~=Np
    pilot=[pilot,Carrier_Num+Np];
end

% **********************P/S transform*********************

SymQAM1=reshape(SymQAM,Carrier_Num,OFDM_per_Symbol).';

% *******************Insert the pilot symbols****************

signal=1:Carrier_Num+Np;
signal(pilot)=[];
SymQAM2(:,pilot)=training_symbols;
SymQAM2(:,signal)=SymQAM1;
SymQAM3=SymQAM2.';

% **********************Add Training Symbol******************************

%加保護(hù)間隔(循環(huán)前綴)
SymTxtmp=zeros(Carrier_Num+GI+Np,OFDM_per_Symbol);
SymTxtmp(1:GI,:)=SymQAM3(Carrier_Num-GI+1+Np:Carrier_Num+Np,:);
SymTxtmp(GI+1:GI+Carrier_Num+Np,:)=SymQAM3;
SymTx=reshape(SymTxtmp,1,(Carrier_Num+GI+Np)*OFDM_per_Symbol);

% *************************Channel*********************************

d=[2 3 4 5 9 13]; % 信道延遲
channel1=zeros(size(SymTx));
channel1(1+d(1):length(SymTx))=SymTx(1:length(SymTx)-d(1));
channel2=zeros(size(SymTx));
channel2(1+d(2):length(SymTx))=SymTx(1:length(SymTx)-d(2));
channel3=zeros(size(SymTx));
channel3(1+d(3):length(SymTx))=SymTx(1:length(SymTx)-d(3));
channel4=zeros(size(SymTx));
channel4(1+d(4):length(SymTx))=SymTx(1:length(SymTx)-d(4));
channel5=zeros(size(SymTx));
channel5(1+d(5):length(SymTx))=SymTx(1:length(SymTx)-d(5));
channel6=zeros(size(SymTx));
channel6(1+d(6):length(SymTx))=SymTx(1:length(SymTx)-d(6));

BER_plot=[];
for snr_db=SNR_Bit:-SNR_N:-SNR_Bit
%for snr_db=SNR_Bit:(-SNR_N):0 % ???????????????????????????????????????????倒序才可產(chǎn)生對(duì)應(yīng)圖  
%snr_db=10;
code_power=(norm(SymTx))^2/(length(SymTx));  %符號(hào)平均功率
bit_power=code_power/Bit_Num; %比特功率
noise_power=10*log10(bit_power/(10^(snr_db/10))); %噪聲功率
noise=wgn(1,length(SymTx),noise_power,'complex'); %產(chǎn)生高斯白噪聲信號(hào)
SymTx=SymTx+noise;

SymTxChannel=SymTx+channel1+channel2+channel3+channel4+channel5+channel6;

% ************************FFT  transform*********************************

%去保護(hù)間隔
SymRxtmp=reshape(SymTxChannel,Carrier_Num+GI+Np,OFDM_per_Symbol);
SymRx=SymRxtmp(GI+1:GI+Carrier_Num+Np,:);

figure(2)
plot(SymRx,'x');
axis([-20 20 -20 20]);

%************************Channel Estimation*****************************

HLs=ChannelEstimate(SymRx,OFDM_per_Symbol,Np,training_symbols,Carrier_Num,LI,pilot);

SymRx1=SymRx.';
SymRx2=SymRx1(:,signal);
SymRx3=SymRx2./HLs;
SymRxtmptmp=SymRx3.';

figure(3)
plot(SymRxtmptmp,'x');
axis([-5 5 -5 5]);

% ***********************Demodulate ***************************************

SymDeQAM=rx_16QAM_mod(SymRxtmptmp,OFDM_per_Symbol,Carrier_Num,Bit_Num);
SymDeQAM_test=rx_16QAM_mod(SymRx2,OFDM_per_Symbol,Carrier_Num,Bit_Num);

%***********************Error detection************************************

Error_Num=length(find(BitTx~=SymDeQAM));
BER=Error_Num./(4*N_Num);
fprintf('\n SNR is %1.2f dB ,BER is %e\n',snr_db,BER);

Error_Num_test=length(find(BitTx~=SymDeQAM_test));
BER_test=Error_Num_test./(4*N_Num);
fprintf('\n SNR is %1.2f dB ,BER is %e\n',snr_db,BER_test);

BER_plot=[BER_plot,BER];
end