% phasor diagram for NBFM signal
% written by CYM in May, 2007
t=[0:0.01:10];
Ac=1;
beta=0.5;
fm=1;
    axis manual;
for i = 1:200
        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)));   
        plot(real(phasor(i)), imag(phasor(i)),'o');
          axis([0 2.5 -1 1]);
end;