function grafica(s_n,SYS,simbolos,rkl,simulacion,flag,s_n_2)
%==========================================================================
% Se encarga de representar gráficamente los resultados en las distintas
% simulaciones : Formas de señal, constelaciones e histogramas
%==========================================================================
%%%%%%%%%%%%%% Representación en el tiempo y frecuencia de la señal %%%%%
if (flag==1) || (flag==4)
nf = 1 ;
nc = 2 ;
aux = 0;
osciloscopio(s_n,SYS,flag,simulacion,nf,nc,aux)
end
%%%%%%%%%%%%%% Dibujar histogramas %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if (flag==2)||(flag==5)
eje_hist_abs = 0:0.05*mean(abs(s_n)):max(abs((s_n)));
eje_hist_2 = 0:0.05*mean(abs(s_n_2)):max(abs(s_n_2));
if simulacion
subplot(2,4,1),hist(abs(s_n),eje_hist_abs)
xlim([0.9*min(eje_hist_abs) 1.1*max(eje_hist_abs)])
xlabel('Amplitud')
ylabel('Número de muestras')
title(' Histograma señal antes de pasar por SSPA ')
end
subplot(2,4,simulacion+1),hist(abs(s_n_2),eje_hist_2)
xlim([0.9*min(eje_hist_abs) 1.1*max(eje_hist_abs)])
xlabel('Amplitud')
ylabel('Número de muestras')
title({' Histograma señal SSPA con IBO ',SYS.IBO(simulacion)})
%%%%%%%%%%%%%%%%%%% Dibujar constelaciones %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
lim = ceil(max(abs(reshape(rkl,SYS.Nsimbolos_total,1))));
if (simulacion==1)
subplot(2,4,5),plot(simbolos,'r.')
grid on ,axis square
xlabel('I')
ylabel('Q')
title('Constelación señal antes de pasar por SSPA')
axis([-lim lim -lim lim ])
end
subplot(2,4,simulacion+5),plot(rkl,'b.')
hold on,plot(simbolos,'r.'),hold off
grid on ,axis square
xlabel('I')
ylabel('Q')
title({'Constelación señal SSPA con IBO ',SYS.IBO(simulacion)})
axis([-lim lim -lim lim ])
end
%%%%%%%%%%%%%%%%%% Representar señal antes y después del SSPA %%%%%%%%%%%%
if (flag == 3)||(flag==6)
nf = 2 ;
nc = 4 ;
aux = 1;
if (simulacion==1)
figure()
aux=0 ;
osciloscopio(s_n,SYS,flag,simulacion,nf,nc,aux)
aux=1;
end
osciloscopio(s_n_2,SYS,flag,simulacion,nf,nc,aux)
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
