papr.asv

OFDM Source is very easy. so you can easily understand.

clear all;

M = 16;
N = 64;
L = 1000;

PAPR1 = [];

for i=1: L
    percent = i / L
    [papr1]= original_PAPR(M, N, percent);
    PAPR1 = [PAPR1 papr1];
end
ccdf_plot(PAPR1,'-o');