%   phasor diagram for AM signal
%   written by CYM in May, 2007
    t=[0:0.01:10];
    Ac=1;
    beta=0.5;
    fm=1;
   axis manual;
for i = 1:150
       phasor(i)=Ac+beta*Ac*0.5.*exp(j*2*pi*fm*t(i))+beta*Ac*0.5.*exp(-j*2*pi*fm*t(i));
       input('c');
       plot(real(phasor(i)), imag(phasor(i)),'o');
       axis([0 2.5 -1 1]);
end;