function sticks2(jd1,u1,v1,umag0,n,name)
%function sticks2(jd,u,v,umag0,n,[name])
%                  1 2 3	4	 5	  6
%    plots time line and stick vectors for u and v
%    umag is magnitude for a 1 cm long stick
%    n is the number of the plot.  1 is bottom one, 2 is middle, and 3 is upper
year=90
if length(v1)==1;
  if nargin==5; 
   name=n;
  end
  if nargin>=4; 
    n=umag0;
  else
    n=1;
  end;
  umag0=v1;
  v1=imag(u1);
  u1=real(u1);
elseif nargin==4;
   n=1;
end

if n<=1
   timeplt(jd1,0,0,1)
end

[n1,m1]=size(u1);
[n2,m2]=size(jd1);
if m1~=m2; u1=u1';v1=v1'; end;

hold on
[xfac,yfac]=arrow2(jd1,(n-2)*ones(jd1),u1,v1,umag0,1,1)

ax=axis;axis;
xx=ax(1)+[0 xfac*umag0/10];
yy=(n-2)+[yfac*umag0 yfac*umag0];
plot(xx,yy,'c5')
[xc,yc]=dc2sc(jd1(1),yy(1));
text(0.06,yc,int2str(umag0),'sc')

yy=(n-2)-[yfac*umag0 yfac*umag0];
plot(xx,yy,'c5')
[xc,yc]=dc2sc(jd1(1),yy(1));
text(0.055,yc,int2str(-umag0),'sc')

if exist('name')==1
[xc,yc]=dc2sc(jd1(1),n-2);
text(0.04,yc,name,'sc')
end
