%Comparación sistema basico y sistema OFDM sin pc ambos QPSK en canal
%multitrayecto

clear all; 

N=64;

v_canal_mult=[1 0 0 0 0 1/exp(1) 0 0 0 0 1/exp(2)];
v_EbNo_dB=[0:15];
v_ber_qpsk_conpc=[];
v_ber_qpsk_conceros=[];
n_mod_tipo=2;

%n_mod_tipo=2 MODULACION QPSK OFDM con intervalo de guarda zero padding
n_max_sim=300;
u0=0.8;
for n_EbNo_dB=v_EbNo_dB
    [n_ber]= sist_ceros(n_EbNo_dB,u0,N,n_max_sim,n_mod_tipo,v_canal_mult);
    v_ber_qpsk_conceros=[v_ber_qpsk_conceros n_ber]
end
semilogy(v_EbNo_dB,v_ber_qpsk_conceros,'Color','g')
xlabel('S/N (dB)')
ylabel('BER')
title('Comparación CP-OFDM y ZP-OFDM QPSK con la misma energía')
hold on


%n_mod_tipo=2 MODULACION QPSK OFDM con intervalo de guarda PC
n_max_sim=300;
u0=0.8;
for n_EbNo_dB=v_EbNo_dB
    [n_ber]= sist_ofdm_enred(n_EbNo_dB,u0,N,n_max_sim,n_mod_tipo,v_canal_mult);
    v_ber_qpsk_conpc=[v_ber_qpsk_conpc n_ber]
end
semilogy(v_EbNo_dB,v_ber_qpsk_conpc,'Color','b')


legend ('sistema ZP-OFDM','sistema CP-OFDM','Location','SouthWest')

