8 lines
345 B
Mathematica
8 lines
345 B
Mathematica
|
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
|