
% Figura 2: Comparación de las respuestas empleando modulacion banda base con una única portadora 
% con canal ideal y con canal multitrayecto.


clear all; 

n_max_sim=10000;
v_canal_ideal=[1];
v_canal_mult=[1 0 0 0 0 1/exp(1) 0 0 0 0 1/exp(2)];
v_EbNo_dB=[0:16];
v_ber_qpsk_ideal=[];
v_ber_qpsk_mult=[];

% MODULACION QPSK en CANAL IDEAL
n_mod_tipo=2;
for n_EbNo_dB=v_EbNo_dB
    [n_ber]= sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal_ideal);
    v_ber_qpsk_ideal=[v_ber_qpsk_ideal n_ber]
end
semilogy(v_EbNo_dB,v_ber_qpsk_ideal,'Color','b','Marker','.')
xlabel('S/N (dB)')
ylabel('BER (%)')
title('Comparación QPSK en canal ideal y canal multitrayecto')
hold on

% MODULACION QPSK en CANAL MULTITRAYECTO
n_mod_tipo=2;
for n_EbNo_dB=v_EbNo_dB
    [n_ber]= sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal_mult);
    v_ber_qpsk_mult=[v_ber_qpsk_mult n_ber]
end
semilogy(v_EbNo_dB,v_ber_qpsk_mult,'Color','b','Marker','x')


legend('QPSK canal ideal','QPSK canal multitrayecto','Location', 'SouthWest')
