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

