% COMUNICACIONES DIGITALES
% Tema 2
% Ejemplo de Canal de dos rayos
% Curso 2015-2016

alfa0=0.5;     % Amplitud media del rayo secundario
tau0=20;    % Retardo del rayo secundario

fc=0.25;
W=0.0001;    % Ancho de banda: banda estrecha ==> no selectivo (plano) 
% W=0.1;      % Ancho de banda: banda ancha ==> selectivo

for i=1:20  % Número de realizaciones
    a=alfa0*2*rand(1,1);
    tau=tau0+randi([1,10],1);
    hc=zeros(1,100);
    hc(1)=1;
    hc(tau)=a;

    [Hc,f]=freqz(hc,1,8*1024,1);
    figure(1);
    subplot(211);plot(f,abs(Hc));axis([0 0.5 0 2]);grid;xlabel('f');ylabel('|H_c(f)|');title('Respuesta en frecuencia del canal')
    subplot(235);plot(f,abs(Hc));axis([fc-W/2 fc+W/2 0 2]);grid;xlabel('f');ylabel('|H_c(f)|');title('Detalle de banda estrecha')
    figure(2);
    subplot(211);plot(f,20*log10(abs(Hc)));axis([0 0.5 -50 20]);grid;xlabel('f');ylabel('|H_c(f)| (dB)');title('Respuesta en frecuencia del canal')
    subplot(235);plot(f,20*log10(abs(Hc)));axis([fc-W/2 fc+W/2 -50 20]);grid;xlabel('f');ylabel('|H_c(f)| (dB)');title('Detalle de banda estrecha')
    pause
end
