298
aPPenDix B
for iter1 = 1:iter1
Mod edDumSig = QPSK_Set(DumSig(1:iter1,:));
%modulation of dummy signal
X3 = [X2,ModedDumSig(iter1,:)];
%multiplexing the signal and dummy
Xsa m = UltraSample(X3,samplerate);
%oversampling factor by samplerate
x = ifft(Xsam,K*samplerate); % IFFT of the
signal
Signal_Power = abs(x.^2); % find the signal power
Pea k_Power = max(Signal_Power,[],2);
%find the maximum of the signal power
Mea n_Power = mean(Signal_Power,2); % find the
average of signal power
PAP R_DSI(iter1) = 10*log10(Peak_Power./Mean_
Power); % calculate the log of PAPR
end
if min(PAPR_DSI) < PAPRTH % comparison of PAPR
PAPR_OPS_DSI(nSymbol)= min(PAPR_DSI);
end
PAPR_OPS(iter2)= min(PAPR_DSI);
end
PAPR_OPS_DSI(nSymbol)= min(PAPR_OPS); ...