function [ccdf,rango] = calcular_ccdf( vector_PAPR )

%=======================================================================
% Se calcula la CCDF del PAPR dado un vector de entrada con un elevado
% número de PAPR calculados en las simulaciones
%=======================================================================

rango=linspace(0,max(vector_PAPR),5*10^5);
ccdf=zeros(length(rango),1);

for it=1:length(rango)
    ccdf(it,1)= length(find(vector_PAPR(:)>rango(1,it)))/length(vector_PAPR);
end

end

