clc
clear all
close all
load('simrfV2_powamp_dpd_data.mat')
DataRate = 15.36e6;
Tstep = 1/DataRate;
PAPR_in=10*log10(max(abs(inDataPA).^2)/mean(abs(inDataPA).^2));
PAPR_out=10*log10(max(abs(outDataPA).^2)/mean(abs(outDataPA).^2));
numDataPts = length(inDataPA);
figure(1)
plot((1:numDataPts)*Tstep, abs(inDataPA),(1:numDataPts)*Tstep, abs(outDataPA))
legend('Abs(In)','Abs(Out)','Location','northeast')
xlabel('Time (s)')
xlim([0 1e-5])
ylabel('Voltage (V)')
title('Absolute Values of Input and Output Voltage Signals')
figure(2)
scatter(abs(inDataPA/max(inDataPA)),abs(outDataPA/max(outDataPA)),'r','MarkerEdgeColor',[0 .5 .5],...
'MarkerFaceColor',[0 .8 .8],...
'LineWidth',1.5)
xlabel('Normalized Input')
ylabel('Normalized Output')
title('PA curve')
TransferPA = abs(outDataPA./inDataPA);
figure(3)
plot(abs(inDataPA),20*log10(TransferPA),'.')
xlabel('Input Voltage Absolute Value(V)')
ylabel('Magnitude Power Gain (dB)')
title('Power Gain Transfer Function')
0 Comments
Sign in to comment.