function PruebaCanales(n_mod_tipo,G,muestras,BW,figura)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%                                                                        %
%%   Nombre: PruebaCanales.m                                              %
%%                                                                        %
%%      Funci髇 con la que llamamos a la rutina que simula el sistema     %
%%       con diferentes par醡etros. En este caso, estamos probando si     %
%%       hay cambios en la simulaci髇 si variamos el canal en el que      %
%%       realizamos la simulaci髇 (SUI 1 al 6)                            %
%%                                                                        %
%%      Devolvemos una gr醘ica de las diferencias de la simulaci髇 en     %
%%       dichos canales.                                                  %
%%                                                                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

figure(figura);

% Los diferentes canales SUI a simular.
v_SUI = [1 2 3 4 5 6];              

v_EbN0_dB=[1:15];
codifico = 1;           % Indico que voy a usar codificaci髇

% Hago la bateria de simulaciones para cada uno de los canales.
for SUI = v_SUI  
    canal = canalSUI(SUI,G,BW);
    v_ber=[];
    for SNR = v_EbN0_dB
        n_ber = sistema(SNR,n_mod_tipo,G,SUI,codifico,muestras,BW,canal);
        v_ber = [v_ber n_ber];
    end   
    dibujar('Canales',SUI,v_EbN0_dB,v_ber,1);
end


switch n_mod_tipo
    case 1
        modula = 'BPSK';
    case 2
        modula = 'QPSK';
    case 4
        modula = '16QAM';
    case 6
        modula = '64QAM';
end


title(['BER de los s韒bolos recibidos. ( G=',num2str(G),',BW=',num2str(BW),...
    'MHz y Modulaci髇 de ',modula,' )']);


% C醠culo te髍ico de la BER, en funci髇 de la modulaci髇 usada.(AWGN)
figure(figura);
BERteorica(v_EbN0_dB,n_mod_tipo,SUI);
etiqueta = legend('SUI-1','SUI-2','SUI-3','SUI-4','SUI-5','SUI-6','Te髍ica',...
    'Location','SouthWest');