function eigshowf(h,A)
%EIGSHOWF used in EIGSHOW

% from Cleve Moler jul95, somewhat adapted by cb
% latest change: 17oct97

pt = get(gca,'currentpoint');
x = pt(1,1:2)';
x = x/norm(x);
Ax = A*x;
set(h(1),'xdata',[0 x(1)],'ydata',[0 x(2)]);
set(h(2),'xdata',[0 -x(1)],'ydata',[0 -x(2)]);
set(h(3),'xdata',Ax(1),'ydata',Ax(2));
set(h(4),'xdata',[0 Ax(1)],'ydata',[0 Ax(2)]);
