% 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;
v_canal=[1];
v_EbNo_dB=[0:16];
v_ber_bpsk=[];
v_ber_qpsk=[];
v_ber_16qam=[];
v_ber_64qam=[];
%n_mod_type=1 MODULACION BPSK
n_mod_tipo=1;
for n_EbNo_dB=v_EbNo_dB
[n_ber]= sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal);
v_ber_bpsk=[v_ber_bpsk n_ber]
end
semilogy(v_EbNo_dB,v_ber_bpsk,'Color','g')
xlabel('S/N (dB)')
ylabel('BER (%)')
title('Una única portadora en canal ideal ')
hold on
%n_mod_type=2 MODULACION QPSK
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','b')
hold on
%n_mod_type=4 MODULACION 16-QAM
n_mod_tipo=4;
for n_EbNo_dB=v_EbNo_dB
[n_ber]= sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal);
v_ber_16qam=[v_ber_16qam n_ber]
end
semilogy(v_EbNo_dB,v_ber_16qam,'Color','m')
hold on
%n_mod_type=6 MODULACION 64-QAM
n_mod_tipo=6;
for n_EbNo_dB=v_EbNo_dB
[n_ber]= sist_basico(n_EbNo_dB,n_max_sim,n_mod_tipo,v_canal);
v_ber_64qam=[v_ber_64qam n_ber]
end
semilogy(v_EbNo_dB,v_ber_64qam,'Color','k')
legend('BPSK','QPSK','16-QAM','64-QAM','Location', 'SouthWest')
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
