%The current and voltage waveform of the Doherty carrier and peak power amplifier
%2006-12-15
%wujianfeng
%Sweden;
close all
clear all
k=4;
n=0;
immax=1;
rl=1;
for im=0:0.01:1
    n=n+1;
    imm(n)=im;
    if im<=immax/k
        ima(n)=im;
        iax(n)=0;
        vma(n)=k*rl*(k*im-iax(n));
        vmp(n)=k*rl*im;
    else
        ima(n)=im;
        iax(n)=k*(im-immax/k);
         vma(n)=k*rl*(k*im-iax(n));
        vmp(n)=k*rl*im;
    end
end
figure(1);
plot(imm,ima,'r-+');
hold on
plot(imm,iax,'y-*');
legend('current of the main power amplifier','current of the auxiliary power amplifier');
xlabel('output current of the main amplifier');
ylabel('output current of the main amplifier and auxiliary power amplifier');
title('current of Doherty main and auxiliary power amplifiers');
figure(2)
plot(imm,vma,'r-+');
hold on
plot(imm,vmp,'g-*');
legend('voltage of the main power amplifier','voltage of the auxiliary power amplifier');
xlabel('output current of the main amplifier');
ylabel('output voltage of the main amplifier and auxiliary power amplifier');
title('voltage of Doherty main and auxiliary power amplifiers');