利用pts降低papr的matlab代码

%OFDM PAPR Reduction---PTS Method源代码及参考文献
%******************************************************************************
%******************************SOURCE CODE************************************
%******************************************************************************

% PTS--PAPR Simulation
%
% Reference: S. H. Müller and J. B. Huber “OFDM with Reduced
% Peak–to–Average Power Ratio by Optimum Combination
% of Partial Transmit Sequences” Elect. Lett. vol. 33
% no. 5 Feb. 1997 pp. 368–69.%
% 
% Author: Bin Jiang
% National Mobile Communication Research Laboratory
% Southeast University 210096 Nanjing China
% Email: bjiang@seu.edu.cn

clear all; clc; close all;

K = 128;                                                                    % SIZE OF FFT 
V = 4;                                                                       % NUMBER OF SELECTIONS
QPSK_Set  = [1 -1 j -j];
Phase_Set = [1 -1];

Choose = [1 1 1 1; 1 1 1 2; 1 1 2 1; 1 2 1 1; 2 1 1 1;...
          1 1 2 2; 1 2 1 2; 1 2 2 1; 2 2 1 1; 2 1 2 1; 2 1 1 2;...
          2 2 2 1; 2 2 1 2; 2 1 2 2; 1 2 2 2; 2 2 2 2];
Choose_Len = 16;      

MAX_SYMBOLS  = 1e4;
PAPR_Orignal = zeros（1MAX_SYMBOLS）;
PAPR_PTS     = zeros（1MAX_SYMBOLS）;

for nSymbol=1:MAX_SYMBOLS
    Index = randint（1Klength（QPSK_Set））+1;
    X = QPSK_Set（Index（1:））;                                               % Orignal Frequency domain signal
    x = ifft（X[]2）;