%The current and voltage waveform of the Doherty carrier and peak power amplifier
%2006-12-15
%wujianfeng
%Sweden;
close all
clear all
k=2;
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);
hold on
plot(imm,iax);
xlabel('output current of the main amplifier');
ylabel('output current of the main amplifier and auxiliary power amplifier');
title();
figure(2)
plot(imm,vma);
hold on
plot(imm,vmp);