%pol_locus_plot.m
%1/15/01  TDM
%
%input vector: state = two-element jones vector
%                       first element is the y axis
%                       second element is teh z axis
%                       the propagation direciton is x
% output is an ellipse tracing the tip of the polarization vector

Npts        = 1;
xvec        = 0;
yvec        = zeros(1,Npts);
zvec        = zeros(1,Npts);
uvec        = zeros(1,Npts);

tvec        = 0:0.01:1; 

%figure(2);

plot_xvec   = [];
plot_yvec   = [];

for t = tvec

vvec        = real(state(1)*exp(2*pi*i*(xvec-t)));
wvec        = real(state(2)*exp(2*pi*i*(xvec-t)));

plot_xvec   = [plot_xvec vvec];
plot_yvec   = [plot_yvec wvec];

end

%figure(3);
plot(plot_xvec,plot_yvec);grid;axis('equal')