% Tests eig() operator for AOs.
%
% A Monsky 09-05-07
%
% $Id: test_eig.m,v 1.10 2009/02/02 15:20:37 hewitson Exp $
%
function test_eig()
  
  
  % make test data files
  testmat=[1 2 3; 4 5 6; 7 8 9];
  
  % Load data into analysis objects
  a1 = ao(testmat);
  a1 = a1.setName;
  
  % Create plist
  pl = plist('option', 'nobalance');
  
  % Calc svd
  e = eig(a1, pl)
  
  % Plot
  iplot(a1, e)
  
end
% END