function [PAPR_dex,Mean_Power] = calculate_PAPR(x)
% PAPR_dex 计算得到所有符号各自的PAPR
% Mean_Power 符号的平均功率
    Signal_Power = abs(x).^2;
    Peak_Power   = max(Signal_Power,[],1); % norm(x,Inf)^2
    Mean_Power   = mean(Signal_Power,1);   % norm(x,2)^2/(K*IF)    
    PAPR_dex     = Peak_Power./Mean_Power;
end