0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013 clear all
0014 close all
0015
0016
0017 Para=InitializeChainParameters( 'CP-OFDM' )
0018 Para.Ns=20;
0019 Para.Es_N0_dB=20;
0020
0021
0022 Para.PreamblePilotSubcarriers=Para.ActiveSubcarriers(1:2:end);
0023 Para.PreambleLength=2;
0024 A=sqrt(length(Para.ActiveSubcarriers)/(length(Para.PreamblePilotSubcarriers) ));
0025 d_TR=A.*((randi([0 1],Para.nSubcarriers,1))*2-1);
0026
0027
0028
0029
0030
0031 d_preamble=GeneratePreamble(d_TR, Para,'synchro');
0032
0033 d_data = GenerateData (Para);
0034
0035 d=MergePreambleData(d_preamble,d_data,Para);
0036 s = Modulator(d, Para );
0037
0038
0039
0040 C=GenerateRayleighChannelReal('ITU_VehA', Para);
0041 r = Channel_Multipath( s, C );
0042 [ r, Delta_omega, Delta_tau ]=Channel_Desynchronization( r, Para );
0043 r=Channel_AWGN( r, Para );
0044
0045
0046
0047 [r_corrected, Delta_tau_est, Delta_omega_hat ] = Synchronization( r, Para );
0048
0049
0050 z = Demodulator( r_corrected, Para );
0051 [ z_preamble,z_data ] = SeparatePreambleData(z,Para);
0052
0053
0054
0055 L=Para.nSubcarriers*Para.CP;
0056 C_est=ChannelEstimator(z_preamble,L,d_TR,Para);
0057
0058
0059 figure
0060 plot(squeeze(abs(fft(squeeze(C(1,1,:)),Para.nSubcarriers))),'-b')
0061 hold on
0062 Htemp=fft(squeeze(C_est(1,1,:)),Para.nSubcarriers);
0063 plot(abs(Htemp),'xb')
0064 xlim([min(Para.ActiveSubcarriers) max(Para.ActiveSubcarriers)])
0065 xlabel('Subcarrier index')
0066 ylabel('Channel frequency response')
0067 legend('True', 'Estimated')
0068
0069
0070
0071 ParaEqualizer.criterion='MMSE';
0072 [ d_hat, B ] = Equalizer( z_data, C_est, Para, 'SingleTap', ParaEqualizer );
0073 MSE = MSEComputes( d_data, d_hat, Para );
0074
0075
0076 figure
0077 plot(Para.ActiveSubcarriers, 10*log10(MSE),'-xb','markersize',8,'linewidth',1.5)
0078 hold on
0079 xlabel('Subcarrier index')
0080 ylabel('MSE [dB]')
0081 xlim([min(Para.ActiveSubcarriers) max(Para.ActiveSubcarriers)])
0082