% Figura 1: Modulacion banda base con una única portadora y canal ideal.
% Comparación de las respuestas empleando BPSK, QPSK, 16-QAM, 64-QAM

clear all; 

n_max_sim=10000;
N=32;
v_canal=[1];
v_EbNo_dB=[0:16];
v_ber_qpsk=[];
v_ber_qpsk_mult=[];
v_ber_qpsk_mult_eq=[];

% MODULACION QPSK CON UNA UNICA PORTADORA
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);
    v_ber_qpsk=[v_ber_qpsk n_ber]
end
semilogy(v_EbNo_dB,v_ber_qpsk,'Color','g')
hold on

% MODULACION QPSK MULTIPORTADORA
for n_EbNo_dB=v_EbNo_dB
    [n_ber]= sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal);
    v_ber_qpsk_mult=[v_ber_qpsk_mult n_ber]
end
semilogy(v_EbNo_dB,v_ber_qpsk_mult,'Color','b')

title('Comparación QPSK una portadora y 4 portadoras en canal ideal')


legend('QPSK con una unica portadora','QPSK multiportadora','QPSK multiportadora con eq','Location', 'SouthWest')
